Wm_syscommand

[Amd]

Hallo...danke für eure Hilfe.

@Sharky & marabu

Zitat:

...Für das Minimieren gibt es inzwischen eine modernere Lösung:

Danke, wußte ich auch noch nicht.

Ich habe es nun so gemacht, leider mit dem gleichen Ergebnis.
Der Desktop wird geschlossen.

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
var
  h: HWnd;
  buf: array [0..255] of char;
begin
  h := Handle;
  while h > 0 do
  begin
    if IsWindowVisible(h) then
    begin
      GetWindowText(h, buf, SizeOf(buf));
      if StrPas(@buf) <> 'Program Manager' then
        PostMessage(h, WM_SYSCOMMAND, SC_Close, 0);
    end;
    h := GetNextWindow(h, GW_HWNDNEXT);
  end;
end;

Es wäre ja das einfachste wenn es sowas wie

Code:

Shell.CloseAll;

(außer Program Manager)

Grüße