WindowHandle über den Programmnamen herausfinden?

[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;