AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

ShellExecute() >> WindowHandle

Ein Thema von taaktaak · begonnen am 29. Jun 2009 · letzter Beitrag vom 30. Jun 2009
 
taaktaak

Registriert seit: 25. Okt 2007
Ort: Radbruch
1.993 Beiträge
 
Delphi 7 Professional
 
#1

ShellExecute() >> WindowHandle

  Alt 29. Jun 2009, 14:36
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?
Ralph
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:36 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz