delphi中如何檢視某個程式在程序中是否已經存在

2021-06-07 17:20:35 字數 902 閱讀 6211

uses   tlhelp32 

注意 function findprocess(afilename: string): boolean;

var

hsnapshot: thandle;//用於獲得程序列表

lppe: tprocessentry32;//用於查詢程序

found: boolean;//用於判斷程序遍歷是否完成

begin

result :=false;

lppe.dwsize := sizeof(tprocessentry32);//在呼叫process32first api之前,需要初始化lppe記錄的大小

found := process32first(hsnapshot, lppe);//將程序列表的第乙個程序資訊讀入ppe記錄中

while found do

begin

if ((uppercase(extractfilename(lppe.szexefile))=uppercase(afilename)) or (uppercase(lppe.szexefile )=uppercase(afilename))) then

begin

result :=true;

end;

found := process32next(hsnapshot, lppe);//將程序列表的下乙個程序資訊讀入lppe記錄中

end;

end;

例子 if findprocess( 'mysqld-nt.exe ') then memo1.lines.add( '發現sql服務! ');

特此感謝資料:

Linux中檢視某個埠在執行什麼程式

我們在linux常常要檢視一下某個埠下在執行著什麼程式或服務,如檢視80埠被什麼程式占用著呢?這個時候就能檢視一下該埠下有什麼程式或服務在執行著。當我們用 netstat an 時,我們常常會看到類似這樣毫無意義的輸出 udp 00 0.0.0.0 32768 0.0.0.0 udp 00 0.0....

LINUX中如何檢視某個埠是否被占用

之前查詢埠是否被占用一直搞不明白,問了好多人,終於搞懂了,現在總結下 1.netstat anp grep 埠號 如下,我以3306為例,netstat anp grep 3306 此處備註下,我是以普通使用者操作,故加上了sudo,如果是以root使用者操作,不用加sudo即可檢視 如下圖1 圖1...

LINUX中如何檢視某個埠是否被占用

1.netstat anp grep 埠號 如下,我以3306為例,netstat anp grep 3306 此處備註下,我是以普通使用者操作,故加上了sudo,如果是以root使用者操作,不用加sudo即可檢視 如下圖1 圖1圖1中主要看監控狀態為listen表示已經被占用,最後一列顯示被服務m...