Выключение компьютера

[zhook]

Сообщение от MyLastHit

Может начать с чего нибудь попроще, раз нуб?..С "фэйков аськи например"
Это же автономная функция. Куда ты ее в процедуру кнопки пихаешь? Оформи отдельно и вызови в процедуре.
Заяц в яйце, яйцо в утке, утка в духовке?

Это и есть фейк
Но я решил с умничать, после вывода сообщения, комп офф что бы пароль не успел поменять, на случай если попадется более умная школота

[zhook]

Мне Valio кинул исходник спасибо ему большое, я посмотрел, нефига не понял, но он работает, и понял для себя одну важную вещь. Мне нужно найти учебник и сначала выучить, а потом делать...
А то фейк сделал и радуюсь...

[misher]

ShellExecute(handle, nil,'shutdown',' -s -t 00','', SW_SHOWNORMAL);

ShellApi в uses добавь. У меня работает.

[celovec]

Есть еще вот такой вариант:

ExitWindowsEx(EWX_SHUTDOWN or ewx_force,0);

Очень понравился вариант от, misher

ShellExecute(handle, nil,'shutdown',' -s -t 00','', SW_SHOWNORMAL);

misher, скажите пожалуйста ваш вариант работает в XP, Vista, 7, 8?

[fucil]

Я уверен что его код работает в 99% случае. Это стандартная фишка винды. Нажми f1 в винде набери шатдовн и прочти про нее и ее параметры. Цифры -00 в конце это вроде таймаут перед выключением в милисикундах.