Probleme mit Findwindow in dll? Result = 0?

[SimStar001]

Hallo, ich führe folgenden code in einer dll aus:

Delphi-Quellcode:

Function Find_IvAc_WindowHandle : HWND;
Var
  NextHandle: HWND;
  WinTitle, WinClass: Array[0..255] of Char;
  Const ClassName = 'Afx:00400000:0';
        WindowTitle = 'IvAc';
begin
  Result := 0;
  NextHandle := GetWindow(Application.Handle, GW_HWNDFIRST);
  while NextHandle > 0 do
  begin
    
    GetWindowText(NextHandle, WinTitle, SizeOf(WinTitle));
    GetClassName(NextHandle, WinClass, SizeOf(WinClass));
    if (Copy(WinTitle, 1, Length(WindowTitle)) = WindowTitle) and
    (Copy(WinClass, 1, Length(ClassName)) = ClassName) then
    begin
      Result := NextHandle;
      Break;
    end
    else
      NextHandle := GetWindow(NextHandle, GW_HWNDNEXT);
  end;
end;

es wird aber kein Handle gefunden, es wird immer 0 zurpckgegeben!?

Muss ich wenn ich diesen code in einer dll ausführe etwas anders machen!?

[DeddyH]

Ich denke, es liegt an Application.Handle. Das dürfte sich zwischen Applikation und DLL unterscheiden, wenn ich das noch richtig in Erinnerung habe.

[SimStar001]

Ok und was muss ich dann dafür in der dll schreiben?

[DeddyH]

Übergib das Handle doch einfach an die Funktion.

[toms]

GetWindow(GetActiveWindow, GW_HWNDFIRST);

[SimStar001]

danke klappt!