Wm_syscommand

[Sharky]

Zitat von marabu:

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

Hai ihr,

und falls es jemanden interessiert

Delphi-Quellcode:

procedure Shell(sMethod: Integer);
var
  Shell :  OleVariant;
begin
 Shell := CreateOleObject('Shell.Application');
 case sMethod of
 0:
    //Minimizes all windows on the desktop
  begin
    Shell.MinimizeAll;
  end;
 1:
    //Displays the Run dialog
  begin
    Shell.FileRun;
  end;
 2:
    //Displays the Shut Down Windows dialog
  begin
    Shell.ShutdownWindows;
  end;
 3:
    //Displays the Find dialog
  begin
    Shell.FindFiles;
  end;
 4:
    //Displays the Date/Time dialog
  begin
    Shell.SetTime;
  end;
 5:
    //Displays the Internet Properties dialog
  begin
    Shell.ControlPanelItem('INETCPL.cpl');
  end;
 6:
    //Enables user to select folder from Program Files
  begin
    Shell.BrowseForFolder(0, 'My Programs', 0, 'C:\Programme');
  end;
 7:
    //Displays the Taskbar Properties dialog
  begin
    Shell.TrayProperties;
  end;
  8:
    //Un-Minimizes all windows on the desktop
  begin
    Shell.UndoMinimizeAll;
  end;
 end; {case}
 Shell := VarNull;
end;