怎样由进程ID获得进程可视主窗体的句柄？？？ (100分)

行

行者孙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-06

• #1

源代码！谢谢

 

飘

飘摇客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-06

• #2

Uses
TLHelp32

procedure TForm1.Button1Click(Sender: TObject);
var lppe: TProcessEntry32;
found : boolean;
Hand : THandle;
begin
Hand := CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);
found := Process32First(Hand,lppe);
while found do
begin
ListBox1.Items.Add(StrPas(lppe.szExeFile));
found := Process32Next(Hand,lppe);
end;
end;
看看对你有没有帮助。

 

行

行者孙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-06

• #3

不行拉，进程ID现在已知，需要的是求进程窗体句柄！

 

S

shakehand

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-06

• #4

gz

 

S

shawn-yau

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-06

• #5

HWND GetProcessMainWnd(DWORD dwProcessId)
{
WNDINFO wi;
wi.dwProcessId = dwProcessId;
wi.hWnd = NULL;
EnumWindows(YourEnumProc,(LPARAM)&wi);
return wi.hWnd;
}
看得明白吧？

 

行

行者孙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-06

• #6

to shawn-yau
本人很笨的，不太明白：）
WNDINFO是什么？包含在那里文件里面？

 

S

shawn-yau

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-06

• #7

不好意思，自定义的
typedef struct tagWNDINFO
{
DWORD dwProcessId;
HWND hWnd;
} WNDINFO, *LPWNDINFO;

 

行

行者孙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-06

• #8

谢谢，对了，对后台窗口有效果嘛？我现在正在调试!
对了，高手，能在QQ上面联系一下嘛？？彻底解决问题另加100分！

 

行

行者孙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-06

• #9

YourEnumProc该如何定义了？？？

 

S

shawn-yau

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-06

• #10

typedef struct tagWNDINFO
{
DWORD dwProcessId;
HWND hWnd;
} WNDINFO, *LPWNDINFO;

BOOL　CALLBACK YourEnumProc(HWND hWnd,LPARAM lParam)
{
DWORD dwProcessId;
GetWindowThreadProcessId(hWnd, &dwProcessId);
LPWNDINFO pInfo = (LPWNDINFO)lParam;
if(dwProcessId == pInfo->dwProcessId)
{
pInfo->hWnd = hWnd;
return FALSE;
}
return TRUE;
}

HWND GetProcessMainWnd(DWORD dwProcessId)
{
WNDINFO wi;
wi.dwProcessId = dwProcessId;
wi.hWnd = NULL;
EnumWindows(YourEnumProc,(LPARAM)&wi);
return wi.hWnd;
}
如果这个进程没有窗口，函数返回NULL

这段代码是我收藏的，因为我以前做过一下这方面的东西，算是借花献佛吧

 

行

行者孙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-07

• #11

接受答案了.