Moin, Moin.
Ein kleines Problem, welches sich hartnäckig allen Lösungsversuchen widersetzt. Aufrufs eines Links (im Beispiel das Programm calc.exe) mit ShellExecute. Anschließend benötige ich das Fensterhandle des gestarteten Programms. Mein Lösungsansatz ist folgender:
Delphi-Quellcode:
function GetWinHandle(HInstance:LongInt):HWnd;
var TmpHWnd : HWnd;
WinCaption : PChar;
begin
GetMem(WinCaption,255); // für test-anzeige
Result :=0;
TmpHWnd:=FindWindow(nil,nil);
while TmpHWnd<>0 do begin
GetWindowText(TmpHWnd,WinCaption,255); // test-anzeige
if WinCaption<>'' then
ShowMessage('Find=' +IntToStr(HInstance) +#13#13+
'HWnd=' +IntToStr(TmpHWnd) +#13+
'HInst='+IntToStr(GetWindowLong(TmpHWnd,GWL_HINSTANCE))+#13+
'WinCaption='+WinCaption);
if GetWindowLong(TmpHWnd,GWL_HINSTANCE)=HInstance then begin
Result:=TmpHWnd;
Break;
end;
TmpHWnd:=GetWindow(TmpHWnd,GW_HWNDNEXT)
end;
end;
procedure ExecuteFile;
var HInstance : LongInt;
WndHnd : HWnd;
begin
HInstance:=ShellExecute(Self.Handle,'open',PChar('calc.exe'),nil,nil,SW_ShowNormal);
WndHnd :=GetWinHandle(HInstance);
// ...
end;
begin
ExecuteFile
end;
Laut MS gibt ShellExecute() als Funktionsergebnis das "instance
handle of the application" zurück. Nach meiner Interpretation das "instance
handle" des mit ShellExecute() aufgerufenen Programms. Nun muss das "window
handle" gesucht werden. Dies versuche ich mit der Funktion GetWinHandle() zu erledigen. Funktioniert nur leider nicht.
GetWinHandle() findet zwar das gesuchte Fenster und ermittelt auch das korrekte Fensterhandle - aber der Vergleich mit dem Übergabe-Parameter "HINstance" wird nie wahr!? Warum? Das Funktionsergebnis von ShellExecute() ist im meinem Beispiel der Wert 42 - der korrekte Wert von HInstance ist aber laut GetWinHandle() = 16 777 216.
Hmm, wo liegt mein Denkfehler?