写到程序里就行。这是写的一个函数,,当checkbox1选择时,程序随系统启动,反之。。
//设置checkBox1,实现启动自动运行与否
procedure Check_AutoRun(CheckBox1: TCheckBox; StrRegName: String; StrRegValue: String);
var
RegMy : Tregistry; //定义变量RegMy
begin
RegMy := Tregistry.Create; //创建变量
RegMy.RootKey := HKEY_CURRENT_USER; //指定要操作的根键
if CheckBox1.Checked=True then
try
if RegMy.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',True) then
RegMy.WriteString(StrRegName,StrRegValue);
finally
RegMy.CloseKey;
RegMy.Free;
end;
if CheckBox1.Checked=False then
try
if RegMy.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',False) then
begin
if RegMy.ValueExists(StrRegName) then
RegMy.DeleteValue(StrRegName);
end;
finally
RegMy.CloseKey;
RegMy.Free;
//inherited;
end;
end;