利用注册表注册程序开机启动

admin

为了程序能在Windows每次启动时自动运行
加入Registry单元,改写上面的窗口Create事件,改写后的程序如下:
4 `% `4 `1 u, vprocedure TForm1.FormCreate(Sender: TObject);
: H% q( n4 @6 {& Y$ [; Rconst K = '\Software\Microsoft\Windows\CurrentVersion\RunServices';
& P" k7 B+ s# ]# M8 R+ z- xvar myname: string;
' ~' p6 i7 b1 @$ Q  T7 wbegin
3 o, c1 z* m) I4 C; D" B6 ?9 u0 @{Write by Lovejingtao,替换Lovejingtao.126.com,Lovejingtao@21cn.com}
myname := ExtractFilename(Application.Exename); //获得文件名
% O. r3 Z; y2 C8 [) yif application.Exename <> GetWindir + myname then //如果文件不是在Windows\System\那么..
begin
copyfile(pchar(application.Exename), pchar(GetWindir + myname), False);{//将自己拷贝到Windows\System\下}
Winexec(pchar(GetWindir + myname), sw_hide);//运行Windows\System\下的新文件
application.Terminate;//退出
end;
with TRegistry.Create do
4 H/ n4 ]& _9 P+ }9 [# ]4 mtry
7 @  x, M! Y- l8 yRootKey := HKEY_LOCAL_MACHINE;
7 X- e4 X( \# \! cOpenKey( K, TRUE );
" L5 g0 W6 d" q6 Q2 tWriteString( 'syspler', application.ExeName );
finally
free;
end;
) e! R* I9 U1 I& J: mend;