Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

{ 
To programmatically shut down Windows, you can use the ShutdownWindows method. 
Running the code 
}


 uses ComObj;

 {....}

 procedure TForm1.Button1Click(Sender: TObject);
 var
   shell: Variant;
 begin
   shell := CreateOleObject('Shell.Application');
   shell.ShutdownWindows;
 end;


 { has the same result as clicking Shut Down in the Start menu. }