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

zusammenfalten · markieren

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!?

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

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

Übergib das Handle doch einfach an die Funktion.

GetWindow(GetActiveWindow, GW_HWNDFIRST);

danke klappt!