delphi 設置開機自動啟動函數

有些程序要設置為開機啟動，所以自己寫了個函數方便以後使用，供大家參考

procedure TMainForm.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('SMS服務',ExpandFileName(ParamStr(0)));           //在Reg這個鍵中寫入數據名稱和數據數值
        ShowMessage('注冊成功！');
     end
     else begin
        reg.DeleteValue('SMS服務');
        ShowMessage('刪除成功！')
     end;
     Reg.CloseKey;       //關閉鍵
   finally
     Reg.Free;
   end;
end;

例子：

SetAutoRun(true);   //注冊啟動

SetAutoRun(false);   //刪除啟動