本文整理自网络，侵删。
Delphi 一个不错的枚举进程例子
代码很少 感觉很不错 芊芊小魔女的博客看到的 ！ 喜欢的顶下
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls,TlHelp32 ;
type
TForm1 = class(TForm)
lst1: TListBox;
tmr1: TTimer;
procedure tmr1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.tmr1Timer(Sender: TObject);
var
prophoto:THandle ;
openpro:ProcessEntry32;
bfirst:Boolean;
begin
lst1.Clear;
prophoto := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
openpro.dwSize := SizeOf(openpro);
bfirst:=Process32First(prophoto,openpro);
while bfirst <> False do
begin
lst1.Items.Add(openpro.szExeFile + ' PID : ' +inttostr(openpro.th32ProcessID));
bfirst:=Process32Next(prophoto,openpro);
end;
CloseHandle(prophoto);
end;
end.
相关阅读 >>
Delphi firedac 下的 sqlite [2] - 第一个例子
Delphi如何获取系统服务(即service服务程序)列表
Delphi firedac 获取mysql 数据库databases 列表
Delphi trestclient + trestrequest + trestresponse
更多相关阅读请进入《Delphi》频道 >>
