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);   //刪除啟動


注意!

本站转载的文章为个人学习借鉴使用,本站对版权不负任何法律责任。如果侵犯了您的隐私权益,请联系我们删除。



 
粤ICP备14056181号  © 2014-2021 ITdaan.com