Delphi 获取系统当前进程、窗口句柄、文件属性以及程序运行状态

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,);
 found := Process32First(Hand,lppe);
 while found do
 begin
 s := StrPas(lppe.szExeFile);
 if lppe.th32ProcessID> then
 p := lppe.th32ProcessID
 else
 p := ;
 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<> 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 >  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 <>  then
begin
SetLength(fileName, StrLen(PCHAR(fileName)));
ShowMessage(fileName);
end;
end;
CloseHandle(h);
end;
end;

(4)取得窗口列表：

begin
ListBox1.Items.Clear ;
EnumWindows(@EnumWindowsProc, );
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<> then
begin
GetWindowThreadProcessId(H,@P);
if P<> 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<> then
begin
GetWindowThreadProcessId(H,@P);
if P<> then
begin
h := OpenProcess(PROCESS_ALL_ACCESS, false, p); //p 为 进程ID
if h >  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 <>  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) =  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 <>  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;
//begin
//文件属性
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 <>  then
begin
if IsIconic(PrevInstHandle) then
ShowWindow(PrevInstHandle, SW_RESTORE)
else
BringWindowToTop(PrevInstHandle);
SetForegroundWindow(PrevInstHandle);
end;
end;

获取进程列表

ListView1.Items.BeginUpdate;
  ListView1.Items.Clear;
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, );
  // CreateToolhelp32Snapshot函数得到进程快照
  FProcessEntry32.dwSize := SizeOf(FProcessEntry32); // 初始化
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
  // Process32First 得到一个系统快照里第一个进程的信息
  Summ := ;
  while ContinueLoop do
  begin
    Summ := Summ + ;
    NewItem := ListView1.Items.Add; // 在ListView1显示
    NewItem.ImageIndex := -;
    NewItem.Caption := ExtractFileName(FProcessEntry32.szExeFile); // 进程名称
    // ??NewItem.Caption := ExtractFilePath(FProcessEntry32.szExeFile);//进程名称
    NewItem.subItems.Add(FormatFloat('', Summ)); // 序号
    NewItem.subItems.Add(IntToStr(FProcessEntry32.th32ProcessID)); // 进程ID
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
  CloseHandle(FSnapshotHandle);
  ListView1.Items.EndUpdate;
  Label1.Caption := '进程数：' + IntToStr(ListView1.Items.count);
  ShowMessage(GetPathFileofModule('explorer.exe'));
  ShowMessage(GetProcessPath());