MID窗体的容器为MDIClient,在主窗体中先找到MDIClient,再搜索
procedure TForm1.Button1Click(Sender: TObject);
var
vHandle: THandle;
vBuffer: array[0..255] of Char;
begin
vHandle := Handle;
vHandle := FindWindowEx(vHandle, 0, 'MDIClient ', nil);
if vHandle = 0 then Exit;
vHandle := GetWindow(vHandle, GW_CHILD);
while vHandle <> 0 do
begin
GetClassName(vHandle, vBuffer, SizeOf(vBuffer));
ShowMessage(IntToStr(vHandle) + ', ' + vBuffer);
vHandle := GetWindow(vHandle, GW_HWNDNEXT);
end;
end;
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。