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

[betirsolt]

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

[Terran]

procedure TForm1.FormCreate(Sender: TObject);
var
hToken: THandle;
tkp: TTokenPrivileges;
ReturnLength: Cardinal;
begin
if OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or
TOKEN_QUERY, hToken) then
begin
LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid);
tkp.PrivilegeCount := 1;
tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
if AdjustTokenPrivileges(hToken, False, tkp, 0, nil, ReturnLength) then
// ExitWindowsEx(EWX_Reboot,0); // Перезагрузка
ExitWindowsEx(EWX_ShutDown,0);// Выключение
// SetSystemPowerState(true, true);  } //Перевести комп в ждущий режим
end;
end;

[betirsolt]

спасибо все работает)))но я хотел понять сам код но не понимаю(((я думал будет проще((например почему нельзя просто написать shutdown??ты можешь объяснить мне код???

[Terran]

В старых виндах, комп можно было просто выключить командой

ExitWindowsEx(EWX_ShutDown,0);

А в новых так нельзя. Винда не даст включить комп. Для того, что бы можно было выключить комп нужно получить привилегию. И вся остальная писанина в коде - это получение привилегий для программы.

[betirsolt]

примерно понимаю....но примерно это не полностью(((пришлось мне сделать так чтобы выключался при нажатии кнопки)))а то когда я скомпилировал ее комп сразу выключался и не давал мне сохранять)))эх если бы я сам умел все делать(((

[Terran]

Не волнуйтесь! Если есть желание, то научитесь, а для того, чтобы при компиляции проект не запускался компилируйте его Ctrl+F9.

[betirsolt]

надеюсь... а (hToken;tkp;ReturnLength)-это имена переменных??? а вот это (THandle;TTokenPrivileges;Cardinal; )-это что такое объясните если не трудно..я просто хочу вникнуть в этот код и понять каждую команду

[Terran]

(hToken;tkp;ReturnLength)-это имена переменных???

Да, это переменные.

а вот это (THandle;TTokenPrivileges;Cardinal; )-это что такое объясните если не трудно

Это их типы.

[betirsolt]

я понял что это типы...хочу знать что конкретно означают эти типы????)))) ну например integer или real я понимаю что это за типы...вот точно так же хотел понять что это за типы

[Terran]

Если не ошибаюсь, то тип THandle - опpеделяет общий тип описателя и равен типу LongWord. Диапазон от 0 до 4 294 967 295. Формат 32 бита, беззнаковый.
Тип TTokenPrivileges - это пакет записей.
Тип Cardinal - это основной тип целого числа без знака. Диапазон от 0 до 4 294 967 295. Формат 32 бита.