设置随机启动--《用delphi开发共享软件》-15.1任务管理器

在设置窗体中 chkAutoStart: TCheckBox;

在设置窗体中 chkAutoStart: TCheckBox;

procedure TFrmSetup.FormCreate(Sender: TObject);
Var s:String;
_RootKey: HKEY;
_Localkey: String;
begin
{$ifdef Proxy}
btnAbout.Enabled :=False;
{$endif}

_RootKey:=HKEY_LOCAL_MACHINE;
_LocalKey:='software\microsoft\windows\currentversion\run';

chkAutoStart.Checked :=RegistryValueExist(_RootKey,_Localkey,'AutoTvStart',application.ExeName);

end;

procedure TFrmSetup.chkAutoStartClick(Sender: TObject); //点击TCheckBox时；
Var _RootKey: HKEY;
_Localkey: String;
begin
_RootKey:=HKEY_LOCAL_MACHINE;
_LocalKey:='software\microsoft\windows\currentversion\run';
if chkAutoStart.Checked then
AddOneRegistryValue(_RootKey,_Localkey,'AutoTask', Application.ExeName)
else
DeleteOneRegistryValue(_RootKey, _Localkey,'AutoTask');
end;