Воскресенье, 19.05.2024, 16:21
Приветствую Вас Гость | RSS
delphicode.clan.su
Форма входа
Поиск
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0
 
 ПРОГРАММНОЕ ЗАВЕРШЕНИЕ РАБОТЫ
  
 procedure TForm1.Button1Click(Sender: TObject);
begin
ExitWindowsEx(EWX_FORCE and EWX_SHUTDOWN,0);
//EWX_SHUTDOWN for shutdown
//EWX_REBOOT for reboot
//EWX_LOGOFF for logoff
end;
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
 
Источник: http://www.delphi3000.com