Delphi获得一个进程的主窗体

type
TMainWindow = packed record
ProcessID: THandle;
MainWindow: THandle;
end;
PMainWindow =^ TMainWindow;

function IsMainWindow(AHandle: THandle): Boolean;

begin

Result :=(GetWindow(AHandle, GW_OWNER) = 0) and (IsWindowVisible(AHandle));

end;{ IsMainWindow }

function fFindMainWindow(hWnd: THandle; lParam: PMainWindow): BOOL; stdcall;

var

vProcessID: THandle;

begin

GetWindowThreadProcessId(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;

var

vMainWindow: TMainWindow;

begin

vMainWindow.ProcessID := AProcessID;

vMainWindow.MainWindow := 0;

EnumWindows(@fFindMainWindow, Integer(@vMainWindow));

Result := vMainWindow.MainWindow;

end;{ FindMainWindow }

procedure TForm1.Button1Click(Sender: TObject);

begin

Caption := Format('Application.Handle: %d, FindMainWindow(): %d',[

Application.Handle, FindMainWindow(GetCurrentProcessId)]);

end;