怎么查看一个进程打开的有哪些句柄

用NtQueryInformationProcess可以查询单个进程的句柄数 但是要打开进程

用NtQuerySystemInformation可以获取所有进程的统计信息，而且没有任何权限要求

这个用一个api就可以解决，你用pdh涉及到的更多

通过Delphi获得当前所有进程名，进程PID

代码如下

// 获取系统当前进程名和进程ID，

//注：应引用"TLHelp32"单元"use TLHelp32"。

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, StdCtrls,TLHelp32;

type

TForm2 = class(TForm)

ListBox1: TListBox;

ListView1: TListView;

Button1: TButton;

Button2: TButton;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

ContinueLoop:BOOL; //是否继续循环

FSnapshotHandle:THandle; //进程快照句柄

FProcessEntry32:TProcessEntry32; //进程入口的结构体信息

implementation

{$R dfm}

procedure TForm2Button1Click(Sender: TObject);

//在listview中显示进程

var

NewItem: TListItem;

Summ:integer;

begin

ListView1ItemsBeginUpdate;

ListView1ItemsClear;

FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);

//CreateToolhelp32Snapshot函数得到进程快照

FProcessEntry32dwSize := Sizeof(FProcessEntry32); //初始化

ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);

//Process32First 得到一个系统快照里第一个进程的信息

Summ := 0;

while ContinueLoop do

begin

Summ := Summ + 1;

NewItem := ListView1ItemsAdd; //在ListView1显示

NewItemImageIndex := -1;

NewItemCaption := ExtractFileName(FProcessEntry32szExeFile); //进程名称

//NewItemCaption := ExtractFilePath(FProcessEntry32szExeFile);//进程名称

NewItemsubItemsAdd(FormatFloat('00', Summ));//序号

NewItemsubItemsAdd(IntToStr(FProcessEntry32th32ProcessID));//进程ID

ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);

end;

CloseHandle(FSnapshotHandle);

ListView1ItemsEndUpdate;

Label1Caption:='进程数：'+inttostr(ListView1ItemsCount);

end;

procedure TForm2Button2Click(Sender: TObject);

//在listbox中显示进程 id

var

ProcessName : string; //进程名

ProcessID : integer; //进程表示符

begin

FSnapshotHandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0); //创建一个进程快照

FProcessEntry32dwSize:=Sizeof(FProcessEntry32);

ContinueLoop:=Process32First(FSnapshotHandle,FProcessEntry32); //得到系统中第一个进程

//循环例举

while ContinueLoop do

begin

ProcessName := FProcessEntry32szExeFile;

ProcessID := FProcessEntry32th32ProcessID;

Listbox1Itemsadd('应用程序名 ：'+ProcessName +'#进程ID：'+ inttostr(ProcessID));

ContinueLoop:=Process32Next(FSnapshotHandle,FProcessEntry32);

end;

end;

procedure TForm2FormCreate(Sender: TObject);

begin

//对ListView1的初始化

ListView1ViewStyle:=vsReport; //设置ListView的显示方式 不设置这种方式不显示列头

ListView1ColumnsAdd; //添加第一列

ListView1Column[0]Caption:='进程名';

ListView1Column[0]AutoSize:=false;

ListView1Column[0]Width:=100;

ListView1Column[0]Alignment:=taLeftJustify;//左对齐

ListView1ColumnsAdd; //添加第二列

ListView1Column[ListView1ColumnsCount-1]Caption:='序号';

ListView1Column[ListView1ColumnsCount-1]AutoSize:=true;

ListView1Column[ListView1ColumnsCount-1]Alignment:=taLeftJustify;//左对齐

ListView1ColumnsAdd; //添加第三列

ListView1Column[ListView1ColumnsCount-1]Caption:='ID';

ListView1Column[ListView1ColumnsCount-1]AutoSize:=true;

ListView1Column[ListView1ColumnsCount-1]Alignment:=taLeftJustify;//左对齐

end;

end

我有一个自定义函数,需要获取PB应用程序中当前活动的窗口,并将其实例化,查得了很多资料,没有解决,哪位高手帮一下

window lw_activateWindow

//

//

//

lw_activateWindow=//在这里我需要获取当前活动窗口实例

if IsValid(lw_activateWindow) then

//程序段

end if

我试过用API获取活动窗口,但只能得到一个窗口句柄,如何将句柄实例化,PB中怎么弄不知道

ULong hWnd

hWnd = GetForegroundWindow()

另外补充一下,其实我的这个函数是一个热键调用的,我想让用户按了热键后,查找出当前活动窗口内的数据窗口,然后作相应处理,对PB来说,MDI内的子窗口PB提供了函数GetActiveSheet()可直接得出,而现在的关键是我无法将活动的窗口实例化来处理

对于以上功能,还用没有更好的思路,麻烦大家帮我想一想,谢谢了!

提问者：dytxy - 童生 一级

我也来回答：

回答即可得2分，回答被采纳则获得悬赏

以上就是关于怎么查看一个进程打开的有哪些句柄全部的内容，包括:怎么查看一个进程打开的有哪些句柄、delphi7 已知进程PID，怎样通过PID获取进程窗体的句柄，、[PB]求救高手!!!!!!请问PB如何获得应用程序当前活动窗口等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！