Программирование на Delphi и не только

Delphi FAQ >> Диалоги

Перед разделом var запишите объявление процедуры:

Procedure ExitWindowsDialog (Handle: THandle); stdcall; external 'shell32.dll' index 60;
 

Пример использования:

ExitWindowsDialog (0);

Ссылки в тему:
  Диалог "Завершение работы Windows" (способ 1)

Те, у кого быстрый интернет, могут смотреть фильмы онлайн безо всяких проблем.