各位先進: 請問如何讓我ㄉ程式在進入os之後就執行 謝謝^o^ 逃避不一定躲得過 面對不一定最難受 孤單不一定不快樂 得到不一定能長久 失去不一定不再有 轉身不一定最軟弱 別急著說別無選擇 別以為世上只有對與錯 許多事情的答案都不是只有一個 所以我們永遠有路可以走 你能找個理由難過 也一定能找到快樂 懂得放心的人找到輕鬆 懂得遺忘的人找到自由 懂得關懷的人找到朋友

http://delphi.ktop.com.tw/topic.php?topic_id=23915

以下這幾個機碼下的值，為每次開機時都會執行的檔案（也是病毒常用的進入點） HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunOnce HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunOnceEx HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunServices HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Runonce

procedure TForm1.Button1Click(Sender: TObject);  begin  SetRegistryData(HKEY_LOCAL_MACHINE,  'Software\Microsoft\Windows\CurrentVersion\Run',  Application.Title, rdString, Application.ExeName);  end;  作為應用程序的替代，Title你可以為應用程序另寫一個唯一的字串作為Title，ExeName處你可以寫應用程序的完整地址(如果執行需要命令和參數的話亦可加上).     

引言: procedure TForm1.Button1Click(Sender: TObject); begin SetRegistryData(HKEY_LOCAL_MACHINE, 'Software\Microsoft\Windows\CurrentVersion\Run', Application.Title, rdString, Application.ExeName); end; 作為應用程序的替代，Title你可以為應用程序另寫一個唯一的字串作為Title，ExeName處你可以寫應用程序的完整地址(如果執行需要命令和參數的話亦可加上).

請教一下： SetRegistryData()是D7的新函數嗎？我找不到ㄝ...(我用的是D6)

uses 後，請記得加入 Registry    uses Registry; . . . . procedure TForm1.Button1Click(Sender: TObject);  begin  SetRegistryData(HKEY_LOCAL_MACHINE,  'Software\Microsoft\Windows\CurrentVersion\Run',  Application.Title, rdString, Application.ExeName);  end;