// Variante 1 
 
// Getestet mit D4 unter WinME 
 
procedure TForm1.Button5Click(Sender: TObject); 
var h: HWND; 
begin 
  h := findwindow('Progman', nil); 
  postmessage(h, wm_close, 0, 0); 
end; 
 
 
// Variante 2 
 
// Getestet mit D4 unter XP 
 
uses ComObj; 
 
procedure TForm1.Button6Click(Sender: TObject); 
var 
  shll: OleVariant; 
begin 
  shll := CreateOleObject('shell.Application'); 
  shll.ShutdownWindows; 
end;