// Es wird ein Neustart der Oberfläche eingeleitet (Taskbar, Traybar,
// Hintergrund, Icons). Je nachdem, wie die Programme geschrieben sind,
// können dabei Icons in der Traybar verloren gehen.


// Getestet mit D4 unter XP
 

uses shellapi; 
 
procedure TForm1.Button1Click(Sender: TObject); 
var 
  h: hwnd; 
begin 
  h := FindWindow('Progman', nil); 
  PostMessage(h, WM_QUIT, 0, 0); 
  ShellExecute(0, 'open', 'Explorer', nil, nil, SW_SHOWNORMAL); 
end;