команда для выключения компьютера в дельфи

[betirsolt]

а можно сделать так чтоб при нажатии кнопки сразу форматировался один из разделов жесткого диска??или два раздела сразу??какой командой это делается??

и какое условие проверяется вот тут

if OpenProcessToken(GetCurrentProcess( ), TOKEN_ADJUST_PRIVILEGES or
TOKEN_QUERY, hToken) then

[Mr.Qwerty]

Вотъ - держи, WIN_aPI.rar, юзай...

[MalCer]

if OpenProcessToken(GetCurrentProcess( ), TOKEN_ADJUST_PRIVILEGES or
TOKEN_QUERY, hToken) then

Здесь ты устанавливаешь условие на привелегию
OpenProcessToken-эта функция открывает признак доступа связанный процессом.
Вот так еще можно вызвать окно завершение работы Windows:

SendMessage (FindWindow ('Progman', 'Program Manager'), WM_CLOSE, 0, 0);

[Mr.Qwerty]

Ммм...а можно еще проще:

shutdown - выключение / перезагрузка компьютера

shutdown [-i | -l | -s | -r | -a] [-f] [-m \\<компьютер>] [-t xx] [-c "комментарий"] [-d up:xx:yy]

Без аргументов Вывод справки по использованию (как и -?)
-i Отображение интерфейса, д.быть первым параметром
-l Выход (не совместим с параметром -m)
-s Завершение работы компьютера
-r Перезагрузка компьютера
-a Прекращение завершения работы системы
-m \\<компьютер> Удаленный компьютер, на котором выполняется
действие
-t xx Таймаут завершения работы - xx сек.
-c "comment" Комментарий (не более 127 знаков)
-f Принудительное завершение приложений без
предварительного предупреждения
-d [u][p]:xx:yy Код причины завершения работы
u - пользовательский код
p - код запланированного завершения
xx - основной код причины (1 - 255)
yy - дополнительный код причины (1 - 65535)


Из программы
procedure tform1.compshutdown(sender: tobject); // Выключение
begin
winexec(pchar('shutdown -s -t 02'), sw_show);
end;

procedure tform1.kompdown(sender: tobject); // Перезагрузка
begin
winexec(pchar('shutdown -r -t 02'), sw_show);
end;

Вы можете заменить winexec на shellexecute (как рекомендует borland) но суть от этого не изменится
© Copyright http://articles.org.ru/cfaq/index.php?qid=1901

[betirsolt]

боже(((я настолько туп что ни хрена не понимаю((всем спасибо

я надеюсь если я открою файлы из этого архива WIN_aPI.rar мой комп не отформатируется?????скажите что там???

[Terran]

я надеюсь если я открою файлы из этого архива WIN_aPI.rar мой комп не отформатируется?????скажите что там???

Там справка по WinApi.

[Mr.Qwerty]

betirsolt, вот если вдруг - чтобы потом ничего не говорил...
Размер файла:3*355*991 байт
CRC-32:89A9579A
MD5:E20D3F8F0D27006E4F8E5A51DDF6955 2
SHA1:3B6BE61C6ECB86563651D39C6142EA DCAC881F5A
Вирусная информация о файле: http://www.virustotal.com/ru/analisi...2db-1248673477

[Stilet]

Обсуждалось уже. Пользуйтесь поиском Господа. Закрываю.