引用psapi
varh:hwnd;
pid: cardinal;
phandle: thandle;
buf: array[0..max_path] of char;
begin
h:=getforegroundwindow; //獲取當前啟用的窗體控制代碼
getwindowthreadprocessid(h, @pid); //通過控制代碼獲取其程序id
phandle := openprocess(process_all_access, false, pid);//通過程序id獲取程序控制代碼
getmodulefilenameex(phandle, 0, buf, length(buf));//通過程序控制代碼獲取其模組路徑
closehandle(phandle);
edit1.text:= buf;
end;
把它放進乙個timer裡，半秒獲取一次。。。
Delphi 窗體建立過程
來自大富翁.1 tcustomform.create 在 tcustomform.create 中呼叫 tcustomform.createnew 2 tcustomform.createnew 呼叫 fcanvas tcontrolcanvas.create 觸發 tcontrolcanvas.c...
通過api獲取控制代碼控制其他窗體
很多時候，編寫程式模擬滑鼠和鍵盤操作可以方便的實現你需要的功能，而不需要對方程式為你開放介面。比如，操作飛信定時傳送簡訊等。我之前開發過飛信耗子，用的是對飛信協議進行抓包，然後分析協議，進而模擬協議的執行，開發出了客戶端，與移動伺服器進行通訊，但是這有一些缺點。如果移動的伺服器對介面進行變更，我所編...
delphi製作程式啟動歡迎窗體
這是我以前做畢業設計時學到的知識,相信現在也有不少初學者在尋找這方面的資訊,現在在這裡做簡單記錄,供大家參考 製作程式啟動窗體 製作啟動 歡迎 窗體的另一種方法 轉載.當然自己也使用過 設定封面窗體屬性使之符合啟動封面要求。請修改下列封面窗體屬性 position poscreencenter 執行...