有些程式要設定為開機啟動，所以自己寫了個函數方便以後使用，供大家參考
複製代碼代碼如下:
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); //刪除啟動