
GetDlgItem()//只有一个参数就是你要获取的子窗口的ID,返回值是一个指向CWnd类的指针.该函数可以根据一个ID号获取一个对应的对象指针,在任何派生自CWnd类的类中都可以使用.如果你非要句柄的话.那就
CWnd pWnd= GetDlgItem(/子窗口ID/);
pWnd->m_HWnd;//得到这个子窗口的句柄
一般用FindWindow。。。
Delphi中获取其它进程的窗口句柄,在Delphi中获取其它进程的窗口句柄,绝大部分人首先想到的会使用:FindWindow或者用GetWindow来遍历查找,如:
Delphi/Pascal code
handle := FindWindow(nil,PChar('窗口的标题'));
或者:
Delphi/Pascal code
procedure TForm1Button1Click(Sender: TObject);
var
hCurrentWindow: HWnd;
WndText:String;
begin
hCurrentWindow := GetWindow(Handle, GW_HWNDFIRST);
while hCurrentWindow <> 0 do
begin
WndText:=GetWndText(hCurrentWindow);
if UpperCase(WndText)='窗口的标题' then begin
end;
hCurrentWindow:=GetWindow(hCurrentWindow, GW_HWNDNEXT);
end;
end;
因为目前网络上绝大部分的代码都是介绍用这两种方法取得其它进程的窗口句柄。虽这两种方法都可以达到查找其它进程的窗口句柄的目的,但本人认为这两都方法存在较大的弊端。因为这两种方法都是根据其它进程的标题来查找的,如果其它进程的标题在运行时不断的发生变化,那么这两种方法就无法没办法用了。
介绍第三种通过进程的文件名来查找窗口句柄。首先通过进程快照得到要查找的进程ID(ProcessId),其次,再跟据ProcessId获取进程的窗口句柄。以下为本文章的代码:
Delphi/Pascal code
uses TLHelp32;
procedure TForm1Button1Click(Sender: TObject);
var
ProcessName : string; //进程名
FSnapshotHandle:THandle; //进程快照句柄
FProcessEntry32:TProcessEntry32; //进程入口的结构体信息
ContinueLoop:BOOL;
MyHwnd:THandle;
begin
FSnapshotHandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0); //创建一个进程快照
FProcessEntry32dwSize:=Sizeof(FProcessEntry32);
ContinueLoop:=Process32First(FSnapshotHandle,FProcessEntry32); //得到系统中第一个进程
//循环例举
while ContinueLoop do
begin
ProcessName := FProcessEntry32szExeFile;
if(ProcessName = '要找的应用程序名exe') then begin
MyHwnd := GetHWndByPID(FProcessEntry32th32ProcessID);
end;
ContinueLoop:=Process32Next(FSnapshotHandle,FProcessEntry32);
end;
CloseHandle(FSnapshotHandle); // 释放快照句柄
end;
//跟据ProcessId获取进程的窗口句柄
function TForm1GetHWndByPID(const hPID: THandle): THandle;
type
PEnumInfo = ^TEnumInfo;
TEnumInfo = record
ProcessID: DWORD;
HWND: THandle;
end;
function EnumWindowsProc(Wnd: DWORD; var EI: TEnumInfo): Bool; stdcall;
var
PID: DWORD;
begin
GetWindowThreadProcessID(Wnd, @PID);
Result := (PID <> EIProcessID) or
(not IsWindowVisible(WND)) or
(not IsWindowEnabled(WND));
if not Result then EIHWND := WND;
end;
function FindMainWindow(PID: DWORD): DWORD;
var
EI: TEnumInfo;
begin
EIProcessID := PID;
EIHWND := 0;
EnumWindows(@EnumWindowsProc, Integer(@EI));
Result := EIHWND;
end;
begin
if hPID<>0 then
Result:=FindMainWindow(hPID)
else
Result:=0;
end;
我说的是组件的句柄,不是窗体的句柄
findwindowex();获取指定句柄窗口下的子控件,当然是有句柄的控件
窗体的句柄都知道,还能不知道里面组件的句柄?——windows标准组件
procedure TForm1Button2Click(Sender: TObject);
var
canvas1: TCanvas;
begin
Canvas1 := TCanvasCreate;
//这是OK。这真要感谢baidu,google
canvas1Handle := GetDc(panel1Handle);
canvas1TextOut(1,1,'hello');
canvas1Free ;
Form1CanvasTextOut(10, 10, 'fff');
end;
有的组件是没有句柄的
ShowMessage(IntToStr(TWinControl(Form1FindChildControl('Panel1'))Handle));
强制转换是肯定不行的,我想了个笨方法。在获得某进程的Id后,获取桌面上每个窗口的进程Id,再与先获得的进程Id进行比较,然后就能知道哪个窗口属于哪个进程的了。
另外网上找的一篇文章:>
通过进程名称结束 进程
BOOL FindProcessHandleAndKill(const CString &cs_WndName)
{
HWND hWnd;
DWORD ProcessID;
HANDLE hProcess;
hWnd=::FindWindow(NULL, cs_WndName);
if(hWnd==NULL)//テサモミユメオスエーソレ
{
return FALSE;
}
else
{
if(GetWindowThreadProcessId(hWnd, &ProcessID)==0)//ハァーワ
{
return FALSE;
}
else
{
hProcess=OpenProcess(PROCESS_ALL_ACCESS,FALSE,ProcessID);
if(hProcess==NULL)
{
return FALSE;
}
else
{
if(TerminateProcess(hProcess, 0))
{
return TRUE;
}
else
{
return FALSE;
}
}
}
}
}
版本 2 子程序 _按钮_后台鼠标点击按钮_被单击 取句柄 () 发送消息整数 (外部按钮句柄, 245, 0, 0) 子程序 取句柄 局部变量 外部窗口句柄, 整数型 外部窗口句柄 = 窗口_取句柄 (, , , “被点击的程序”) 如果真 (外部窗口句柄 > 0) 外部按
以上就是关于mfc主窗口如何获得子窗口句柄全部的内容,包括:mfc主窗口如何获得子窗口句柄、如何获取窗体中组件的句柄、VC怎么通过进程ID得到窗口句柄等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)