Callback-Funktion wird nicht aufgerufen.

[BurtaN]

Hallo,
ich habe das Problem, dass EnumThreadWindows nicht die Callback-Funktion EnumThreadWndProc auslöst, was ich mit ShowMessage('OK') testen will. Ich weiss nicht wirklich woran es liegt. Es kommt keine Fehlermeldung. Die Thread ID wird korrekt ausgegeben (habs mit Winspector Spy überprüft). Vielleicht hat es damit zu tun:" An application must register this callback function by passing its address to the EnumThreadWindows function." Aber ich verstehe nciht wirklich was damit gemeint ist.

Delphi-Quellcode:

function EnumThreadWndProc(WND : HWND; HWNDName : String): Boolean; stdcall;
var wText : Array [0..250] of Char;
begin
  ShowMessage('OK');
  GetWindowText(WND,wText,SizeOf(wText));
  If HWNDName=wText then
  begin
    destwindow:=WND;
    result:=false;
  end else
    result:=true;
end;

function TForm1.WindowExists(name : String) : boolean;
var ID : Cardinal;
begin
  GetWindowThreadProcessID(destwindow,@ID);
  destwindow:=0;
  EnumThreadWindows(ID,@EnumThreadWndProc,Integer(name));
  If destwindow<>0 then
    result:=true
  else
    result:=false;
end;

Danke

BurtaN

[Luckie]

Also im meinem SDK sieht die Deklaration so aus:

Code:

BOOL CALLBACK EnumThreadWndProc(
    HWND hwnd,
    LPARAM lParam
);

Und bei dir:
function EnumThreadWndProc(WND : HWND; HWNDName : String): Boolean; stdcall;

[BurtaN]

Zitat von Luckie:

Also im meinem SDK sieht die Deklaration so aus:

Code:

BOOL CALLBACK EnumThreadWndProc(
    HWND hwnd,
    LPARAM lParam
);

Und bei dir:
function EnumThreadWndProc(WND : HWND; HWNDName : String): Boolean; stdcall;

Ich komm nicht drauf

[Luckie]

Der zweite Parameter ist vom Typ LPARAM und nicht vom Typ String.

Ob es allerdings daran liegt, kann ich nicht sagen.

[BurtaN]

lParam
[in] Specifies the application-defined value given in the EnumThreadWindows function.
Kann beliebig gewählt werden, schließe ich daraus und scheint auch bei anderen Beispielen hier im Forum so gemacht worden zu sein.

[Luckie]

Ja du kannst übergeben was du willst*, aber die Parameter in der Deklaration müssen schon passen.

*) In Form eines Zeigers auf beliebige Daten.

[BurtaN]

Naja, auch wenn ich testweise DATA :lParam benutze, wird die Callback-Funktion einfach nicht ausgeführt. Bin ratlos -.-

[sirius]

Du sollst ja auch die ThreadID übergeben und nicht die ProcessID.
Edit: Und was hat diese Abfrage mit dem destwindow zu tun

[BurtaN]

destwindow ist das Handle eines Fensters des Threades. Mit GetWindowThreadProcessId bekomme ich die ID des Threades des Fensters:" The return value is the identifier of the thread that created the window". Mit EnumThreadWindows gehe ich nun alle Fenster mit der gleichen ID wie mein bekanntes Fenster durch. In EnumThreadWndProc lese ich die Namen aus und falls diese mit meinen Vorgaben übereinstimmt, bekommt destwindow das Handle des Fensters, falls kein Fenstername übereinstimmt, bleibt destwindow=0. So ist es zumindest gedacht .

BurtaN

[sirius]

"the return value"

Delphi-Quellcode:

var ThreadID,ProcessID: cardinal;
begin
  ThreadID:=GetWindowThreadProcessID(destwindow,@ProcessID);
  //oder
  ThreadID:=GetWindowThreadProcessID(destwindow,nil);
...