AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

FindWindow findet Fenster nicht

Ein Thema von dusty · begonnen am 30. Apr 2012 · letzter Beitrag vom 2. Mai 2012
Antwort Antwort
Seite 1 von 2  1 2   
dusty

Registriert seit: 6. Mär 2004
Ort: D-45772 Marl
17 Beiträge
 
Delphi 5 Enterprise
 
#1

FindWindow findet Fenster nicht

  Alt 30. Apr 2012, 11:00
Ich suche mit FindWindow ein Fenster, welches auch existiert
(z. B. 'Google - Microsoft Internet Explorer').

FindWindow meldet jedoch, dass er das Fenster nicht findet.

Wenn ich mir mit EnumWindows alle Fenstertitel auflisten lassen,
wird es aber angezeigt.

Wo liegt der Fehler??
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#2

AW: FindWindow findet Fenster nicht

  Alt 30. Apr 2012, 11:16
Schwer zusagen ohne deinen Code.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.533 Beiträge
 
Delphi 11 Alexandria
 
#3

AW: FindWindow findet Fenster nicht

  Alt 30. Apr 2012, 12:33
Evtl. Parameter verwechselt oder Leerzeichen im Fenstertitel ?
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von jaenicke
jaenicke

Registriert seit: 10. Jun 2003
Ort: Berlin
9.287 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: FindWindow findet Fenster nicht

  Alt 30. Apr 2012, 12:44
Oder eine falsche Fensterklasse angegeben (nil sollte z.B. gehen)?
Und was ist denn der Rückgabewert von FindWindow?
Sebastian Jänicke
Alle eigenen Projekte sind eingestellt, ebenso meine Homepage, Downloadlinks usw. im Forum bleiben aktiv!
  Mit Zitat antworten Zitat
Benutzerbild von Zacherl
Zacherl

Registriert seit: 3. Sep 2004
4.629 Beiträge
 
Delphi 10.2 Tokyo Starter
 
#5

AW: FindWindow findet Fenster nicht

  Alt 30. Apr 2012, 12:56
Hier im Forum gibt es ein nützliches Tool namens "WinSpy - der Fensterspion" oder so ähnlich. Damit kannst du Fenster anwählen und bekommst dann den korrekten Klassennamen und Titel angezeigt.
Als kleines Zusatzfeature lässt sich mit dem Programm sogar der passende FindWindow() Code dazu generieren.
Projekte:
- GitHub (Profil, zyantific)
- zYan Disassembler Engine ( Zydis Online, Zydis GitHub)
  Mit Zitat antworten Zitat
dusty

Registriert seit: 6. Mär 2004
Ort: D-45772 Marl
17 Beiträge
 
Delphi 5 Enterprise
 
#6

AW: FindWindow findet Fenster nicht

  Alt 1. Mai 2012, 10:24
Die meisten Fenster werden gefunden, aber eben einzelne partout nicht.
Weil die Fenstertitel mit Paste/Copy übertragen werden und auch visuell
verglichen werden, schließe ich die Variante "Leerzeichen vergessen" aus.

WinSpy kann ich auf dem fremden Rechner nicht einsetzen. Scheidet aus.
Hier auf Wunsch der Code zum Problem:

Fenster auflisten Code:

Delphi-Quellcode:
function EnumWinProc(Wnd: THandle; LParam: LongInt): Boolean; stdcall;
var
  WinCaption : string;
  Len: integer;
begin
  Result := True;
  Len := GetWindowTextLength(Wnd);
  SetLength(WinCaption, Len);
  GetWindowText(Wnd, PChar(WinCaption), Len+1);
  if Trim(WinCaption) <> 'then
    Form1.Memo2.Lines.Add(Format('%.6x : %s', [Wnd, WinCaption]));
end;

procedure TForm1.BtnEnumWindowsClick(Sender: TObject);
begin
   Memo2.lines.Clear;
   EnumWindows(@EnumWinProc, 0);
end;
Fenster abfragen Code:

Delphi-Quellcode:
procedure TForm1.BtnEnumChildsClick(Sender: TObject);
var hmain, hsub : HWND;
    ilen : integer;
    ptext : pChar;
    fenstername : string;
begin
   Memo2.clear;
   fenstername := Edit_Fenstername.Text;
   if fenstername = 'then exit;
   hmain := FindWindow(nil, PChar(fenstername));
   // if hmain = 0 then ShowMessage(inttostr(GetLastError()));
   if hmain <> 0 then // Fenster vorhanden!
      ShowMessage('Fenster gefunden: ' + fenstername)
   else
     ShowMessage('Fenster NICHT gefunden: ' + fenstername);
end;
GetLastError war immer 0, deshalb auskommentiert.

Geändert von dusty ( 1. Mai 2012 um 10:31 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#7

AW: FindWindow findet Fenster nicht

  Alt 1. Mai 2012, 11:22
IE mit Google ist bei mir in der Liste ....

Delphi-Quellcode:
function EnumWindowsProc1(Wnd: HWND; LB:TListBox): BOOL; stdcall;
const
  MyMaxName = 255;
  MyMaxText = 255;
var
  ClassName: String;
  WindowText: String;
begin
  Result := True;
  SetLength(ClassName, MyMaxName);
  SetLength(ClassName,GetClassName(Wnd, PChar(ClassName), MyMaxName));
  SetLength(WindowText, MyMaxText);
  SetLength(WindowText,GetWindowText(Wnd,PChar(WindowText),MyMaxText));
  LB.Items.AddObject('[' + ClassName + '] "' + WindowText + '"' + ' Handle: ' + IntToStr(Wnd), Pointer(Wnd));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Treeview1.Items.Clear;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Treeview1.Items.Clear;
  Listbox1.Items.Clear;
  Listbox1.Items.BeginUpdate;
  EnumWindows(@EnumWindowsProc1, Integer(TObject(ListBox1)));
  Listbox1.Items.EndUpdate;
  Listbox1.Sorted := true;
end;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat
dusty

Registriert seit: 6. Mär 2004
Ort: D-45772 Marl
17 Beiträge
 
Delphi 5 Enterprise
 
#8

AW: FindWindow findet Fenster nicht

  Alt 1. Mai 2012, 11:58
Bei mir auch - in der Fensterliste wird es aufgelistet.
Wenn ich aber mit FindWindow das Fenster abfrage wird als
Handle "0" zurückgegeben - also nicht gefunden.

DAS ist ja das Kuriosum. Merkwürdig ?!
  Mit Zitat antworten Zitat
Benutzerbild von Zacherl
Zacherl

Registriert seit: 3. Sep 2004
4.629 Beiträge
 
Delphi 10.2 Tokyo Starter
 
#9

AW: FindWindow findet Fenster nicht

  Alt 1. Mai 2012, 12:08
Ich bin mal so frei und poste dir den von WinSpy generierten Code, welcher auf meinem System (Win7 64 bit) wunderbar funktioniert:
Delphi-Quellcode:
var
  wndMain: HWND;
begin
  wndMain := FindWindow('IEFrame','Google - Windows Internet Explorer');
  if wndMain <> 0 then
  begin
     ShowMessage('Window Handle: ' + IntToStr(wndMain));
  end;
end;
Du hast in deinem Code schlicht und einfach vergessen den Klassennamen (in diesem Falle 'IEFrame') an FindWindow() zu übergeben.
Projekte:
- GitHub (Profil, zyantific)
- zYan Disassembler Engine ( Zydis Online, Zydis GitHub)
  Mit Zitat antworten Zitat
dusty

Registriert seit: 6. Mär 2004
Ort: D-45772 Marl
17 Beiträge
 
Delphi 5 Enterprise
 
#10

AW: FindWindow findet Fenster nicht

  Alt 1. Mai 2012, 12:16
Was sagt denn dein Programm wenn du

wndMain := FindWindow(NIL,'Google - Windows Internet Explorer');

abfragst? Bei NIL müsste es das Fenster doch auch finden oder nicht?
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 16:13 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