Eigene Dateien Beenden

[citybreaker]

Moin Moin!

Hab mal wieder nen Problem, was das beenden der Eigenen Dateien angeht.
Bei dem unten genannten Code wird mein Fenster gefunden, aber leider nicht
geschlossen. Jemand ne Idee?

Delphi-Quellcode:

var hFenster: hWnd;
begin
  hFenster := FindWindow(nil,'Eigene Dateien');
  if hFenster <> 0 then begin
    Caption := 'Fenster gefunden';
    SendMessage(hFenster,WM_CLOSE,0,0);
  end else begin
    Caption := 'Fenster wurde nicht gefunden';
  end;
end;

[chris]

hi,

versuche es mit

Delphi-Quellcode:

PostMessage()

, dann sollte es klappen.

[Christian Seehase]

Moin Alexander,

oder nimm WM_SYSCOMMAND mit wParam = SC_CLOSE