AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Win32/Win64 API (native code) Delphi Öffnen eines Fensters überwachen, anschl. Aktionen ausführen
Thema durchsuchen
Ansicht
Themen-Optionen

Öffnen eines Fensters überwachen, anschl. Aktionen ausführen

Ein Thema von waldforest · begonnen am 8. Okt 2008 · letzter Beitrag vom 10. Okt 2008
 
waldforest

Registriert seit: 8. Mai 2005
366 Beiträge
 
Delphi XE3 Enterprise
 
#1

Öffnen eines Fensters überwachen, anschl. Aktionen ausführen

  Alt 8. Okt 2008, 20:01
Hallo,
ich möchte geren überwachen ob in einer fremden Anwendung ein bestimmtes Fenster mit einem bestimmten Namen geöffnet wird. Wenn dann soll eine bestimmte Taste (anhand der Caption) gesucht und angeklickt werden.

Die Überwachung über einen Timer, sowie das Vorhandensein der Taste habe ich hin bekommen,
nun zu meinem Problem.

1.) Wie bekomme ich es hin, dass der Button im geöffneten Fenster individuell über den Button Handel ausgewählt werdne kann ??

2.) Ich möchte nachdem ich die Aktion durchgeführt habe das entsprechende Fenster schließen. DestroyWindow schließt das Fenster leider nicht. Die Handels habe ich bereits überprüft.

Delphi-Quellcode:
procedure Tform1.ClickIt;
var
  hWnd : Cardinal;
  hBtn : Cardinal;
  taste : string;
  ret : boolean;
begin

  hWnd := FindWindow(nil, fenstername);
  if hWnd = 0 then
  begin
    Label4.Caption := 'Fenster nicht gefunden.';
    button2.Enabled:=true;
 // exit;
  end
  else
  begin
      timer1.Enabled:=false;
      Label4.Caption := 'Fenster gefunden.';
// SetForegroundWindow(hWnd);
  SetWindowPos(hWnd, HWND_noTopMost, 0, 0, 0, 0, SWP_SHOWWINDOW or SWP_NOMOVE or SWP_NOSIZE);
   hBtn := FindWindowEx(hWnd, 0, nil, drueck_taste );

///// Buttonauswahl funktioniert nicht
   If hBtn <> 0 then
   begin
     PostMessage(hWnd , WM_KEYDOWN, hBtn , 0);
     PostMessage(hWnd , WM_KEYDOWN, VK_RETURN , 0);
   end;
   ////// FENSTER WIRD mit DestroyWindow(hWnd) NICHT GESCHLOSSEN !"!!! WARUM NICHT ?????
   if ((hWnd <> 0) and (not DestroyWindow(hWnd))) then begin
    MessageBox(0, 'Unable to destroy window!', 'Error', MB_OK or MB_ICONERROR);
// hWnd := 0;
   end;
   timer1.Enabled:=true;

 end;

end;
Was mach ich falsch ??, Habt ihr eine Tipp ???

mfg
  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 21:10 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz