Главная
Регистрация
Вход
Воскресенье, 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
Copyright MyCorp © 2024 |
Бесплатный хостинг
uCoz