delphi 為什麼我找不到 TLHelp32 單元

清構造的目標過程的模型分支談話塊的快照。

handle md_handle;

md_handle = createtoolhelp32snapshot(th32cs_snapmodule, dwpropid);

if (!md_handle){

printf("createtoolhelp32snapshot failed ");

return false;

moduleentry32 md;

sizeof(md);

while (ex){

printf("sz module %s"激烈的嫉妒， ;

在 C++ Builder 2010 中，您需要新增乙個 idhttp 控制項，tidmultipartformdatastream *poststream; 將有效，並且不會有任何錯誤。

xe5 也有可能就是這種情況。

剩下的就是參考了，一樓的**還可以！！ 謝謝一樓。

跨平台 tidmultipartformdatastream 尚未準備就緒。

見下文**：

Delphi 強制結束乙個過程。

afilename 已上行，例如。

首先使用 tlhelp32;

例如，要注入的程序是。

首先，確定程序是否存在，方法如下：

新增 tlhelp32 單元以供使用。

function : string): boolean;確定程序是否存在。

constprocess_terminate=$0001;

varcontinueloop: bool;

fsnapshothandle: thandle;

fprocessentry32: tprocessentry32;

beginresult :=false;

fsnapshothandle :=createtoolhelp32snapshot(th32cs_snapprocess,0);

sizeof(fprocessentry32);

continueloop :=process32first(fsnapshothandle,fprocessentry32);

while integer(continueloop) <0 do begin

if ((uppercase(extractfilename( uppercase(exefilename))

or (uppercase( =uppercase(exefilename)))then

result :=true;

continueloop :=process32next(fsnapshothandle,fprocessentry32);

end;end;

呼叫方法： procedure ： tobject）;按鈕。

beginif checktask(''）=true，以確定它是否存在。

showmessage('QQ流程存在！ '如果有提示。

（當然，在這裡你可以把它改成你要執行的**：載入dll。 取決於您的需要）。

end;

遍歷整個過程！ 如果是，只需注入它！

有些流程沒有表單，所以他們不一定能得到它。

c 有乙個類似的函式，它檢視源 ** 並如下所示：

使用 EnumWindows 列舉所有桌面窗體，然後使用 GetWindowThreadProcessId 獲取窗體的相應 PID，然後進行比較。

開啟delphi後，預設是新建專案，點選儲存開始提示你儲存專案檔案和單元檔案，每個單元檔案都可以對應表單，也可以建立乙個無表單的單元檔案，如果要建立對應的表單，可以直接點選新建表單按鈕， 如果要建立沒有表單的單元檔案，請使用此 file->new->unit