Delphi程序开机自动启动

需要单元Registry；

procedure SetAutoRun(ok: boolean);

var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', true);
    if ok then
    begin
      Reg.WriteString(Application.Title, ExpandFileName(ParamStr(0)));
    end
    else
    begin
      reg.DeleteValue(Application.Title);
    end;
    Reg.CloseKey;
  finally
    Reg.Free;
  end;
end;