Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.03;
Скачать: CL | DM;

Вниз

Как выключить   Найти похожие ветки 

 
xfrost   (2003-02-08 15:30) [0]

Подскажите пожалуйста как выключить комп под win2000 без сообщения "Теперь питание компа можно отключить"!!!!!!!!!!


 
Михайлов Антон   (2003-02-08 17:52) [1]

Procedure Shutdown;
var
hToken: THandle;
tkp: TTokenPrivileges;
ReturnLength: Cardinal;
begin
If Win32Platform = VER_PLATFORM_WIN32_WINDOWS Then
Begin
if not ExitWindowsEx(EWX_Force or
EWX_PowerOff or
EWX_ShutDown, 0) then
MessageBox(0, "An application refused to terminate", "Win32", MB_OK);
end;

If Win32Platform = VER_PLATFORM_WIN32_NT Then
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_SHUTDOWN or EWX_POWEROFF, 0);
end;

end;

procedure TForm1.button1Click(Sender: TObject);
begin
Shutdown;
end;


Код не тестировался, но думаю работать будет



Страницы: 1 вся ветка

Текущий архив: 2003.04.03;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.017 c
14-6768
manumba
2003-03-14 16:41
2003.04.03
Автоматическое тестирование


7-6803
Alpine
2003-02-04 18:32
2003.04.03
Как можно отключить CTRL+ALT+DEL в W2k ?


3-6407
Kent1
2003-03-16 01:24
2003.04.03
связать таблицы через КомбоБоксы


14-6718
Феликс
2003-03-15 02:39
2003.04.03
Сколько вы тратите в среднем на свою девушку в месяц?


3-6308
Veronika
2003-03-17 10:04
2003.04.03
защита от копирования листа в Excel