var reg:Tregistry; begin if a.Checked then begin //写注册表 reg:=Tregistry.Create; reg.RootKey:=HKEY_LOCAL_MACHINE; reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',true); reg.WriteString('myserver',application.ExeName); reg.Free; //========================================================= end else begin reg:=Tregistry.Create; reg.RootKey:=HKEY_LOCAL_MACHINE; reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',false); reg.DeleteValue('myserver'); reg.Free; end; end;
2.findwindow();
autoexec.bat
winstart.bat
注册表
开始菜单->启动
TaskMon
Go to Bed ...
begin
if a.Checked then
begin
//写注册表
reg:=Tregistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',true);
reg.WriteString('myserver',application.ExeName);
reg.Free;
//=========================================================
end else
begin
reg:=Tregistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',false);
reg.DeleteValue('myserver');
reg.Free;
end;
end;
http://www.csdn.net/Develop/Read_Article.asp?Id=9204
应该对你有用!
--------------------------------------
看见了么,
那支蛾子,
正飞向太阳,
那就是我!
--------------------------------------