Type
Tmainwindow = packed record
Processid:thandle;
Mainwindow:thandle;
End;
Pmainwindow =^ Tmainwindow;
function Ismainwindow (ahandle:thandle): Boolean;
beginResult: = (GetWindow (ahandle, gw_owner) =
0)
and (IsWindowVisible (Ahandle));
End;
{Ismainwindow}
function Ffindmainwindow (hwnd:thandle; lparam:pmainwindow): BOOL;
stdcall;
varVprocessid:thandle;
beginGetWindowThreadProcessId (hWnd, vprocessid);
if (lparam^. ProcessID = vprocessid)
and Ismainwindow (hWnd)
Then
begin lparam^. MainWindow: = hWnd;Result: = False;
End
else Result: = True;
end;
function FindMainWindow (aprocessid:thandle): Thandle;
varVmainwindow:tmainwindow;
beginVmainwindow.processid: = Aprocessid;Vmainwindow.mainwindow: =
0;EnumWindows (@fFindMainWindow, Integer (@vMainWindow));Result: = Vmainwindow.mainwindow;
End;
{FindMainWindow}
procedure Tform1.button1click (sender:tobject);
beginCaption: = Format (
' Application.handle:%d, FindMainWindow ():%d ', [Application.handle, FindMainWindow (GETCURRENTPROCESSID)]);
end;
http://blog.csdn.net/zswang/article/details/1598516
Delphi obtains a Process main form (GetWindow (Ahandle, Gw_owner) equals 0 of the form is the main form, and to iswindowvisible Exclude application window)
