Handle eines Fensters über die Processid?

[gandime]

Hi,
ich ich glaube mein Titel beschreibt mein Problem gut ;-)
also ich habe eine Processid und hätte gerne das Handel des Fensters.

mfg
gandime

[OregonGhost]

Zitat:

Zitat von gandime

ich habe eine Processid und hätte gerne das Handel des Fensters.

Welches Fensters?

[Luckie]

Welches Fensters? Ein Prozess kann mehrere Fenster haben.

[gandime]

hmm ok wie komme ich alle Fenster-handels von einer Processid?

[Vjay]

Geh alle Fenster durch und mach getWindowThreadProcessId

[Luckie]

...und vergleiche die mit deiner ProzesID.

[gandime]

mit folgendem Code habe ich jetzt versucht das Handle zu finden aber hatte keinen Erfolg

Delphi-Quellcode:

 

ProcInfo: TProcessInformation;

function GetWindows(const hWnd: Longword; Param: PMyEnumParam): LongBool;
  stdcall;
var
  Len: Longint;
  dwThreadID:dword;
begin
  Result := True;
  if not (IsWindow(hWnd) and IsWindowVisible(hWnd)) then
    Exit;
  Len := SendMessage(hWnd, WM_GETTEXTLENGTH, 0, 0);
  if Len > 0 then
  begin
    if (ProcInfo.dwProcessId=GetWindowThreadProcessId(hWnd,nil)) then
    begin
      MessageBox(0, 'hier', 'joa', 0);
    end;
  end;
end;

begin
 EnumWindows(@GetWindows, LPARAM(@Param));
end;

kann es vlt daran liegen das ProcInfo.dwProcessId ein Cardinal ist und GetWindowThreadProcessId ein DWORD ist?

[Luckie]

So geht es:

Delphi-Quellcode:

function EnumWindowsProc(hWnd: THandle; lp: LPARAM): LongBool; stdcall;
var
  ID                : DWORD;
  len               : Integer;
  Caption           : PChar;
begin
  if IsWindow(hWnd) and IsWindowVisible(hWnd) then
  begin
    GetWindowThreadProcessId(hWnd, ID);
    if GetCurrentProcessId = ID then
    begin
      len := SendMessage(hWnd, WM_GETTEXTLENGTH, 0, 0);
      Caption := GetMemory(len + 1);
      try
        SendMessage(hWnd, WM_GETTEXT, len, Integer(Caption));
        MessageBox(0, Caption, 'Test', 0);
      finally
        Freememory(Caption);
      end;
    end;
  end;
  Result := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  EnumWindows(@EnumWindowsProc, 0);
end;

GetWindowThreadID gibt nicht die ProzesID als Funktionsrückgabewert zurück, sondern im zweiten Parameter. Und wieder hilft es die Hilfe zu lesen:

Zitat:

Code:

hWnd
[in] Handle to the window. 
lpdwProcessId
[out] Pointer to a variable that receives the process identifier. If this parameter is not NULL, GetWindowThreadProcessId copies the identifier of the process to the variable; otherwise, it does not.

Und

Zitat:

Code:

Return Value

The return value is the identifier of the thread that created the window.

[gandime]

genau so funktioniert es :-)
danke!