Handle Finden

[Xzeer]

Hallo,

Ich verstehe nicht, wie man Handles finden kann und dann benutzt. Das Tutorial von Luckie habe ich schon gelesen, aber so richtig verstehen tut ich den Code nicht. Erstaml würde mich interessieren, wie man ein Handle überhaupt findet. Als Aufgabe habe ich mir gestellt, das Windows-Explorer Fenster zu finden:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  window: hwnd;
begin
  window:=findwindow('Explorer', nil);
  if window<>0 then
  begin
    showmessage('gefunden');
  end
  else
  begin
    showmessage('nicht gefunden');
  end;
end;

So bekomme ich immer die Meldung "nicht gefunden". Auch...

Delphi-Quellcode:

window:=findwindow('Windows-Explorer', nil); //...und...
window:=findwindow('Dokumente', nil);

geben keine andere Meldung heraus.

Wie finde ich denn ein bestimmtes Handle überhaupt???? :gruebel:

[Apollonius]

Niemand ist gezwungen, den Klassennamen eines Fensters charakteristisch zu wählen. Setze für den ersten Parameter nil ein und gib im zweiten den Fenstertitel an, wenn du den Fensterklassennamen nicht kennst.

[Xzeer]

ahhh...schon viel besser :thumb:

hab jetzt so:

Delphi-Quellcode:

window:=findwindow(nil, 'Dokumente');

Und das geht immer, also es reicht der Fenstertitel, so wie er im Taskmannager und in der Taskleiste steht?

Edit: Aber wenn ich unter die showmessages jetzt folgendes schreibe, bekomme ich die Fehlermeldung, das eine anweisung erforderlich ist, und keine Integer Zahl.

Delphi-Quellcode:

sendmessage(window, WM_Close, 0, 0);

Woran liegt das denn?

[Apollonius]

Ja, aber unpraktisch wird es, wenn der Titel vom geöffneten Dokument abhängt. Da findet man lieber einmal den Klassennamen und hat dann keinen Ärger mehr.

[Rastaman]

An dem Sendmessage is nix falsch.
Poste ma die Zeilen darüber bzw darunter.

[Xzeer]

Zitat:

Zitat von Rastaman

An dem Sendmessage is nix falsch.
Poste ma die Zeilen darüber bzw darunter.

Habs schon rausgefunden, ich habe erst das geschrieben

Delphi-Quellcode:

sendmessage(window,wm_close, 0, 0)

die leerzeichen sind aber falsch, ich denke mal, weils dann keine integer zahl mehr ist. Richtig ist es so:

Delphi-Quellcode:

sendmessage(window,wm_close,0,0)

[Rastaman]

Du kannst auch 1000 Leerzeichen machen und es klappt :|