SHUTDOWN DIALOGUE DE WINDOWS

Type
  SHShutDownDialogProc =  procedure (wnd : HWND); stdcall;
const
shell32 = 'shell32.dll';


var
 SHShutDownDialog : SHShutDownDialogProc = nil;
  ShellHandle: THandle = 0;



procedure TForm1.Button1Click(Sender: TObject);
begin
 ShellHandle := Windows.LoadLibrary(PChar(shell32));
 if ShellHandle <> 0 then
     SHShutDownDialog :=      GetProcAddress(ShellHandle, PChar(60));

 if Assigned( SHShutDownDialog ) Then SHShutDownDialog(handle);
  if Shellhandle <> 0 then
   FreeLibrary(ShellHandle);
end;