如何讓我ㄉ程式在進入os之後就執行 |
尚未結案
|
delphi
初階會員 發表:52 回覆:64 積分:38 註冊:2002-05-21 發送簡訊給我 |
|
william
版主 發表:66 回覆:2535 積分:3048 註冊:2002-07-11 發送簡訊給我 |
|
00156
高階會員 發表:45 回覆:195 積分:112 註冊:2002-06-01 發送簡訊給我 |
以下這幾個機碼下的值,為每次開機時都會執行的檔案(也是病毒常用的進入點) 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
|
flyup
資深會員 發表:280 回覆:508 積分:385 註冊:2002-04-15 發送簡訊給我 |
procedure TForm1.Button1Click(Sender: TObject);
begin
SetRegistryData(HKEY_LOCAL_MACHINE,
'Software\Microsoft\Windows\CurrentVersion\Run',
Application.Title, rdString, Application.ExeName);
end;
作為應用程序的替代,Title你可以為應用程序另寫一個唯一的字串作為Title,ExeName處你可以寫應用程序的完整地址(如果執行需要命令和參數的話亦可加上).
|
00156
高階會員 發表:45 回覆:195 積分:112 註冊:2002-06-01 發送簡訊給我 |
引言: 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) |
flyup
資深會員 發表:280 回覆:508 積分:385 註冊:2002-04-15 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |