进程、窗口句柄、文件属性、程序运行状态

　2006-02-04 13:48:01　来源：WEB开发网　闂傚倸鍊搁崐椋庢濮橆兗缂氱憸宥堢亱闂佸湱铏庨崰鏍不椤栫偞鐓ラ柣鏇炲€圭€氾拷

闂傚倸鍊搁崐椋庣矆娓氣偓楠炲鏁撻悩鎻掔€梺姹囧灩閻忔艾鐣烽弻銉︾厵闁规鍠栭。濂告煕鎼达紕校闁靛洤瀚伴獮鎺楀箣濠靛啫浜鹃柣銏⑶圭壕濠氭煙閻愵剚鐏辨俊鎻掔墛缁绘盯宕卞Δ鍐冣剝绻涘畝濠佺敖缂佽鲸鎹囧畷鎺戭潩閹典焦鐎搁梻浣烘嚀閸ゆ牠骞忛敓锟�

婵犵數濮烽弫鍛婃叏椤撱垹绠柛鎰靛枛瀹告繃銇勯幘瀵哥畼闁硅娲熷缁樼瑹閳ь剙岣胯鐓ら柕鍫濇偪濞差亜惟闁宠桨鑳堕崝锕€顪冮妶鍡楃瑐闁煎啿鐖奸崺濠囧即閵忥紕鍘梺鎼炲劗閺呮稒绂掕缁辨帗娼忛埡浣锋闂佽桨鐒﹂幑鍥极閹剧粯鏅搁柨鐕傛嫹闂傚倸鍊搁崐椋庢濮橆兗缂氱憸宥堢亱闂佸湱铏庨崰鏍不椤栫偞鐓ラ柣鏇炲€圭€氾拷　　闂傚倸鍊搁崐鐑芥嚄閼哥數浠氱紓鍌欒兌缁垶銆冮崨鏉戠厺鐎广儱顦崡鎶芥煏韫囨洖校闁诲寒鍓熷铏圭磼濡搫顫岄梺鍦拡閸嬪棝鎯€椤忓浂妯勯梺鍝勬湰濞叉ḿ鎹㈠┑濠勭杸闁哄洨濮烽悰銉╂⒒娴ｅ搫甯跺鐟帮攻缁傚秴饪伴崼姘ｅ亾閺冨牆绀冩い蹇庣娴滈箖鏌ㄥ┑鍡涱€楀褜鍠栭湁闁绘ɑ鐟ョ€氼喚绮绘ィ鍐╃厱妞ゆ劑鍊曢弸搴ㄦ煟韫囧鍔滈柕鍥у瀵潙螣閸濆嫬袝婵＄偑鍊戦崹娲偡閳哄懎绠栭柍鈺佸暞閸庣喖鏌曢崶褍绨婚柟鍑ゆ嫹

核心提示：uses TLHelp32,PsAPI;(1)显示进程列表：PRocedure TForm1.Button2Click(Sender: TObject);var lppe: TProcessEntry32; found : boolean; Hand : THandle; P:DWord; s:string;b

uses TLHelp32,PsAPI;

(1)显示进程列表：
PRocedure TForm1.Button2Click(Sender: TObject);
var lppe: TProcessEntry32;
　 found : boolean;
　 Hand : THandle;
　 P:DWord;
　 s:string;
begin
ListBox1.Items.Clear ;
Hand := CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);
found := Process32First(Hand,lppe);
while found do
begin
　 s := StrPas(lppe.szExeFile);
　 if lppe.th32ProcessID>0 then
　　 p := lppe.th32ProcessID
　 else
　　 p := 0;
　 ListBox1.Items.AddObject(s,pointer(p));//列出所有进程。
　 found := Process32Next(Hand,lppe);
end;
end;

(2)杀死某进程：
procedure TForm1.Button3Click(Sender: TObject);
var lppe: TProcessEntry32;
　 found : boolean;
　 Hand : THandle;
　 P:DWORD;
　 sExeFile,sSelect:string;
　 killed:boolean;
begin
p :=DWORD(ListBox1.Items.Objects[ListBox1.itemindex]);
if P<>0 then
begin
　 killed := TerminateProcess(OpenProcess(PROCESS_TERMINATE,False,P),$FFFFFFFF);
　 if not killed then
　　　 messagebox(self.handle,pchar(sExeFile+'无法杀死！'),'提示',MB_OK or MB_ICONWARNING)
　 else
　　 ListBox1.Items.Delete(ListBox1.ItemIndex);
end;
end;

(3)取得某进程EXE路径：
procedure TForm1.Button8Click(Sender: TObject); //uses PSAPI;
var
h:THandle; fileName:string; iLen:integer; hMod:HMODULE;cbNeeded,p:DWORD;
begin
p :=DWORD(ListBox1.Items.Objects[ListBox1.itemindex]);
h := OpenProcess(PROCESS_ALL_access, false, p);　　 //p 为进程ID
if h > 0 then
begin
　 if EnumProcessModules( h, @hMod, sizeof(hMod), cbNeeded) then
　 begin
　　　 SetLength(fileName, MAX_PATH);
　　　 iLen := GetModuleFileNameEx(h, hMod, PCHAR(fileName), MAX_PATH);
　　　 if iLen <> 0 then
　　　 begin
　　　　 SetLength(fileName, StrLen(PCHAR(fileName)));
　　　　 ShowMessage(fileName);
　　　 end;
　 end;
　 CloseHandle(h);
end;
end;

(4)取得窗口列表
begin
　 ListBox1.Items.Clear ;
　 EnumWindows(@EnumWindowsProc, 0);
end;

(5)杀死窗口进程
procedure TForm1.Button6Click(Sender: TObject);
var
H:THandle;
P:DWORD;
s:string;
killed:boolean;
begin
s := ListBox1.Items[ListBox1.ItemIndex];
H:=FindWindow(nil,pchar(s));
if H<>0 then
begin
　 GetWindowThreadProcessId(H,@P);
　 if P<>0 then
　　 killed:=TerminateProcess(OpenProcess(PROCESS_TERMINATE,False,P),$FFFFFFFF);
　 if not killed then
　　　 messagebox(self.handle,pchar(s+'无法杀死！'),'提示',MB_OK or MB_ICONWARNING)
　 else
　　 ListBox1.Items.Delete(ListBox1.ItemIndex);
end;
end;

(6)取得窗口进程路径：
procedure TForm1.Button9Click(Sender: TObject);
var
H:THandle; P,cbNeeded: DWORD; s,fileName:string;
iLen:integer;　 hMod:HMODULE;
begin
s := ListBox1.Items[ListBox1.ItemIndex];
H:=FindWindow(nil,pchar(s));

if H<>0 then
begin
　 GetWindowThreadProcessId(H,@P);
　 if P<>0 then
　 begin
　　　 h := OpenProcess(PROCESS_ALL_ACCESS, false, p);　　 //p 为进程ID
　　　 if h > 0 then
　　　 begin
　　　　 if EnumProcessModules( h, @hMod, sizeof(hMod), cbNeeded) then
　　　　 begin
　　　　　 SetLength(fileName, MAX_PATH);
　　　　　 iLen := GetModuleFileNameEx(h, hMod, PCHAR(fileName), MAX_PATH);
　　　　　 if iLen <> 0 then
　　　　　 begin
　　　　　　　　　 SetLength(fileName, StrLen(PCHAR(fileName)));
　　　　　　　　　 ShowMessage(fileName);
　　　　　 end;
　　　　 end;
　　　　 CloseHandle(h);
　　　 end;
　 end;
end;
end;

(7)文件属性：
procedure TForm1.Button1Click(Sender: TObject);
var
SR: TSearchRec;
V1, V2, V3, V4: integer ;
const
dtFmt:string = 'YYYY-MM-DD HH:NN:SS';
begin
// ============== 方法一 ==================== //
if FindFirst(sFileName, faAnyFile, SR) = 0 then
begin
　 Edit1.Text := intToStr(SR.Attr);　 //文件属性
　 Edit2.Text := intToStr(SR.Size);　 //文件大小
　 Edit3.Text := FormatDateTime(dtFmt,CovFileDate(SR.FindData.ftCreationTime));　 //创建时间
　 Edit4.Text := FormatDateTime(dtFmt,CovFileDate(SR.FindData.ftLastWriteTime)); //最后修改时间
　 Edit5.Text := FormatDateTime(dtFmt,CovFileDate(SR.FindData.ftLastAccessTime)); //最后访问时间

　 if SR.Attr and faHidden <> 0 then
　　 FileSetAttr(sFileName, SR.Attr-faHidden);

　 FindClose(SR);
end;

if GetFileVersion(sFileName,V1, V2, V3, V4) then
　　 Edit7.Text := intToStr(v1)+'.'+intToStr(v2)+'.'+intToStr(v3)+'.'+intToStr(v4);

// ============== 方法二 ==================== //
{
var
Attrs: Word;
f: file of Byte;　 // 文件大小必须要定义为" file of byte" ,这样才能取出 bytes
size: Longint;

//文件属性
Attrs := FileGetAttr(sFileName);

Edit1.Text := intToStr(Attrs);

//文件大小
AssignFile(f, OpenDialog1.FileName);
Reset(f);
try
　 AssignFile(f, sFileName);
　 Reset(f);
　 size := FileSize(f);
　 Edit2.Text := intToStr(size);
finally
　 CloseFile(f);
end;
}
end;

(8)判断程序是否在运行：
procedure TForm1.Button5Click(Sender: TObject);
var PrevInstHandle:Thandle;
AppTitle:pchar;
begin
AppTitle := pchar('test');
PrevInstHandle := FindWindow(nil, AppTitle);
　 if PrevInstHandle <> 0 then begin
　　 if IsIconic(PrevInstHandle) then
　　　 ShowWindow(PrevInstHandle, SW_RESTORE)
　　 else
　　　 BringWindowToTop(PrevInstHandle);
　　 SetForegroundWindow(PrevInstHandle);
　 end;
end;