Hallo, ich habe ein kleines Problem,
und zwar kann ich das
Handle für eine ListBox nicht finden.
Hier mal mein Code:
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); // erstes Fenster ermitteln
while NextHandle > 0 do // falls Fenster gefunden
begin
// Fenster Titel, Klassennamen ermitteln
GetWindowText(NextHandle, WinTitle, SizeOf(WinTitle));
GetClassName(NextHandle, WinClass, SizeOf(WinClass));
// Überprüfung, ob Anfang der Strings übereinstimmen
if (Copy(WinTitle, 1, Length(WindowTitle)) = WindowTitle) and
(Copy(WinClass, 1, Length(ClassName)) = ClassName) then
begin
// Fenster gefunden, abbrechen
Result := NextHandle;
Break;
end
else
NextHandle := GetWindow(NextHandle, GW_HWNDNEXT); // nächstes Fenster ermitteln
end;
end;
Function Find_IvAc_HandoffBox(IvAc_Handle :HWND):HWND;
var wndChild : HWND;
begin
wndChild := 0;
if IvAc_Handle > 0 then
wndChild := FindWindowEx(ivAc_Handle, 0, 'ListBox', nil);
result := wndChild;
end;
Ich bekomme nun bei der Funktion Find_IvAc_HandoffBox immer null als ergebnis zurück!
Wieso das? Mit WinSpy wurde das
Handle ja auch ermittelt.
Was mache cih falsch?
LG Marco!