请问根据进程名或PID获得窗口句柄用VB6怎么实现

没有很直接的办法,我能想到的就是遍历窗口,并用GetWindowThreadProcessID函数获取pID,并与你的pID进行比对,相同则这个窗口就是你要的窗口,请参考>

The GetProcessHandleFromHwnd function retrieves a process handle from a window handle HANDLE WINAPI GetProcessHandleFromHwnd( HWND hwnd, ); 这个函数通过窗口句柄获得进程句柄。有了进程句柄，PID是不是就知道怎么获得了？什么？不知道？那我告诉你，GetProcessId可以通过进程句柄获得进程ID： DWORD WINAPI GetProcessId( __in HANDLE Process );

通过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

以上就是关于请问根据进程名或PID获得窗口句柄用VB6怎么实现全部的内容，包括:请问根据进程名或PID获得窗口句柄用VB6怎么实现、易语言如何通过窗口句柄获取进程、在C#中，如何根据主窗口的句柄，获取该窗口所属进程或者是进程的名字等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！