如何開機時就自動執行某程式

[tim]

[轉貼自 Delphi K. Top]
http://delphi.ktop.com.tw/topic.asp?TOPIC_ID=26139

以下這幾個機碼下的值，為每次開機時都會執行的檔案（也是病毒常用的進入點）

HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRun
HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunOnce
HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunOnceEx
HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionRunServices
HKEY_USERS.DEFAULTSoftwareMicrosoftWindowsCurrentVersionRunonce

代碼: 選擇全部

    procedure Tform1.Button1Click(Sender: TObject);  
    　begin  
    　　SetRegistryData(HKEY_LOCAL_MACHINE,  
    　　　'SoftwareMicrosoftWindowsCurrentVersionRun',  
    　　　Application.Title, rdString, Application.ExeName);  
    　end; 

作為應用程序的替代，Title你可以為應用程序另寫一個唯一的字串作為Title，ExeName處你可以寫應用程序的完整地址(如果執行需要命令和參數的話亦可加上).