Delphi获取进程和进程ID(用ListView和ListBox分别实现)
获取系统当前进程名和进程ID,注意在编写本单元时,应注意引用"TLHelp32"单元"use TLHelp32"。
Delphi获取系统进程和进程ID,ListBox实现:

var
Form1: TForm1;
Summ: Word;
implementation
{$R *.dfm}
procedure TForm1.N2Click(Sender: TObject);
var
ContinueLoop: BOOL;
NewItem: TListItem;
begin
ListView1.Items.BeginUpdate;
ListView1.Items.Clear;
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
//CreateToolhelp32Snapshot函数得到进程快照
FProcessEntry32.dwSize := Sizeof(FProcessEntry32); //初始化
ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
//Process32First 得到一个系统快照里第一个进程的信息
Summ := 0;
while ContinueLoop do
begin
Summ := Summ + 1;
NewItem := ListView1.Items.Add; //在ListView1显示
NewItem.ImageIndex := -1;
NewItem.Caption := ExtractFileName(FProcessEntry32.szExeFile);//进程名称
NewItem.subItems.Add(FormatFloat('00', Summ));//序号
NewItem.subItems.Add(IntToStr(FProcessEntry32.th32ProcessID));//进程ID
ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
end;
CloseHandle(FSnapshotHandle);
ListView1.Items.EndUpdate;
end;
Delphi获取系统进程和进程ID,ListBox实现:

procedure TForm1.Button1Click(Sender: TObject);
var
ProcessName : string; //进程名
ProcessID : integer; //进程表示符
i : integer;
ContinueLoop:BOOL;
FSnapshotHandle:THandle; //进程快照句柄
FProcessEntry32:TProcessEntry32; //进程入口的结构体信息
begin
FSnapshotHandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0); //创建一个进程快照
FProcessEntry32.dwSize:=Sizeof(FProcessEntry32);
ContinueLoop:=Process32First(FSnapshotHandle,FProcessEntry32); //得到系统中第一个进程
//循环例举
while ContinueLoop do
begin
ProcessName := FProcessEntry32.szExeFile;
ProcessID := FProcessEntry32.th32ProcessID;
Listbox.Items.add('应用程序名 :'+ProcessName +'#进程ID:'+ inttostr(ProcessID));
ContinueLoop:=Process32Next(FSnapshotHandle,FProcessEntry32);
end;
end;
本文永久链接地址:http://www.hack520.org/delphi-process-id-listview-listbox
- 『原创』Delphi7完美精简版下载
- Delphi启动提示Error“Can’t load package Bin\dclite70.bpl”的解决方法
- Delphi7的完美注册与破解 – 去除启动画面里的“Unregistered”
- 《Delphi下深入Windows核心编程》PDF下载 – 献给Delphi编程高手
- Delphi编程中出现“File not found”的完全解决方法
- Delphi域名转IP地址 – 用NMHTTP和WINSOCK
- Delphi学习笔记 – 写个关闭共享的小程序,熟悉一下基本操作
- Delphi学习笔记 – 获取Windows系统目录
- Delphi学习笔记 – 创建和删除文件夹
- Delphi编程常用函数解析
我来讲两句
