WindowHandle über den Programmnamen herausfinden?

[SimStar001]

Hallo hat jemande vielleicht eine idee, nen link oder nen code um von einem externen programm das windowhandle herauszufinden nur über dessen programmnamen!?

[Luckie]

Ein Programm/Prozess kann mehr als ein Fenster haben. Es gibt also keine eindeutige Zuordnung.

[SimStar001]

also wird es keine möglichkeit geben das auptfenster über den programmnamen herauszufinden?

[lbccaleb]

schau dir mal findwindow an, das sollte dir weiter helfen!!

[Luckie]

Damit probiert er schon den ganzen Tag rum, deswegen sucht er wohl nach einer anderen Möglichkeit. Ichh habe nur das Gefühl, er weiß gar nicht was er da tut und kopiert nur Quelltexte ohne sie richtig zu verstehen.

[toms]

Hallo

Vorgehen:

- Prozesse auflisten mit Hilfe von TLHELP32 API.
- Exe-Namen vergleichen
- Zugehörige Fenster des Prozesses ermitteln mittels EnumThreadWindows API

[SimStar001]

Zitat:

Hallo

Vorgehen:

- Prozesse auflisten mit Hilfe von TLHELP32 API.
- Exe-Namen vergleichen
- Zugehörige Fenster des Prozesses ermitteln mittels EnumThreadWindows API

Also scheint es ja doch irgendwie zu gehen.....

vielen dank für den Tip, aber ich als einfacher Hobby Programmierer kenne mich nicht mit den vorgeschlagenen Units und deren Funktionen aus, von daher wäre ich sehr froh wenn mir jemand für mein Problem einen fertigen Code liefern könnte..

Problem...

Das Handle von dem Programm was ich rausbekommen möchte hat ja eine bestimmte Windowclass....Diese gibt es allerdings mehrmals, sprich dieselbe kalsse hat bei mir noch mein Antiviren programm und mein defrag programm...

Ich möchte aber nun das WindowHandle von meinem Programm eindeutig bestimmen. Leider kann ich das nicht über

Delphi-Quellcode:

Handle := FindWindow('Afx:00400000:0',nil)

machen. das klappt insofern nicht, weil ich damit nicht immer meine Anwendung herausfinde sondern auch mal die anderen, was ich nicht will....

Leider kann ich aber auch keine "Caption" eintragen, weil diese sich ständig ändert...

Wenn mir jetzt noch jemand weierhelfen kann bin ich total happy....

[Luckie]

Einen gleichbleibenden Bestandteil wird der Fenstertitel doch haben oder nicht? Dann kannst du dir mit EnumWindows alle Fenster auflisten lassen und dir das passende raussuchen.

[SnuffMaster23]

Wenn der Titel immer gleich bleibt müsste dir auch

Delphi-Quellcode:

FindWindow(nil, 'der-Titel');

helfen...

[SimStar001]

ja der erste teil bleibt gleich ...."IvAc v.1.1.10.171 -" ist immer gleich der Rest ändert sich!


und wie genau funktioniert das mit dem enumWindows nun?

[toms]

Zitat:

Zitat von SimStar001

ja der erste teil bleibt gleich ...."IvAc v.1.1.10.171 -" ist immer gleich der Rest ändert sich!

Habe mal eine Funktion dafür geschrieben. Klick Beitrag.

[SimStar001]

Dank an toms....klappt bisher alles super, sogar mein tastendruck den ich sende....juhu...<nur


was ich jetzt noch brauche ist das FENSTER Handle eines neuen fensters herauszufinden, nur diesmal muss nicht die Caption übereinstimmen sondern ein Button mit einer bestimmten caption muss vorhanden sein??? geht das auch irgendwie? bestimt nur ich weiß net wie....

HILFE....



so schauts aus...

Delphi-Quellcode:

Handle2 := myfindwindow('#32770','');

so dieses fenster gibt es sehr oft, und nu muss ich wissen obs da halt nen bestimmten butten mit einr caption gibt....

[toms]

Mit FindWindowEx() kannst du ein Child Control eines Fensters suchen.

[SimStar001]

wie muss dass dann quellcodemäßig aussehen?

kann man diese funktion nicht irgendwie so umschreiben dass sie nicht mehr nach captions des windows sucht, sondern nach buttoncaptions im window?

Delphi-Quellcode:

function GetProcessHandleFromID(ID: DWORD): THandle;
begin
  result := OpenProcess(SYNCHRONIZE, False, ID);
  CloseHandle(result);
end;

function MyFindWindow(ClassName, WindowTitle: string): integer;
var
  NextHandle: HWND;
  WinTitle, WinClass: array[0..255] of Char;
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;

[extrem]

Nimm dir am Besten so ein Tool mit Codegenerator zB. von toms, mit dem zielst du auf diesem Button.
Den damit erstellten Code baust du einfach in deine Funktion ein.

[lbccaleb]

Zitat:

Zitat von extrem

Nimm dir am Besten so ein Tool mit Codegenerator zB. von toms, mit dem zielst du auf diesem Button.
Den damit erstellten Code baust du einfach in deine Funktion ein.

nur zum besseren verständnis, er meint winspy von toms!!

[toms]

Das könnte in etwa so aussehen:

Delphi-Quellcode:

function MyFindWindow(MainWinClassName, ButtonCaption: string): integer; 
var 
  NextHandle: HWND; 
  WinTitle, WinClass: array[0..255] of Char; 
begin 
  Result := 0; 
  NextHandle := GetWindow(Application.Handle, GW_HWNDFIRST); // erstes Fenster ermitteln 
  while NextHandle > 0 do // falls Fenster gefunden 
  begin 
    GetClassName(NextHandle, WinClass, SizeOf(WinClass)); 
    // Überprüfung, ob Anfang der Strings übereinstimmen 
    if (Copy(WinClass, 1, Length(MainWinClassName)) = MainWinClassName) then 
    begin 
      // Fenster gefunden

      // Hier nun nach dem Button suchen mit EnumChildWindows
      ...
      ...
      Falls Button gefunden, abbrechen, sonst weitersuchen ...
       ...

      Result := NextHandle; 
      Break; 
    end 
    else 
      NextHandle := GetWindow(NextHandle, GW_HWNDNEXT); // nächstes Fenster ermitteln 
  end; 
end;