Auf den Desktop schalten ?

[Sharky]

Zitat von Vader:

... auf den desktop gelangen ??

Hai Vader,

meinst Du so etwas?

Delphi-Quellcode:

procedure ShowDesktop;
var
  Shell :  OleVariant;
begin
  Shell := CreateOleObject('Shell.Application');
  Shell.MinimizeAll;
  Shell := VarNull;
end;


procedure TForm1.btn_ShowDesktopClick(Sender: TObject);
begin
  ShowDesktop;
end;