procedure TForm1.SetAutoRun(ok: boolean); var Reg:TRegistry; //首先定义一个TRegistry类型的变量Reg begin Reg:=TRegistry.Create; try //创建一个新键 Reg.RootKey:=HKEY_LOCAL_MACHINE; //将根键设置为HKEY_LOCAL_MACHINE Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',true);//打开一个键 if ok then begin Reg.WriteString('Ad',application.ExeName); //在Reg这个键中写入数据名称和数据数值 form2.checkbox1.Checked:=true; end else begin reg.DeleteValue('Ad'); form2.checkbox1.Checked:=false; end; Reg.CloseKey; //关闭键 finally Reg.Free; end; end;
----------------------------------------------
-