Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 2004.05.16;
Скачать: [xml.tar.bz2];

Вниз

Как без лишних вопросов выключить комп под WinXP?   Найти похожие ветки 

 
Zheks ©   (2004-04-09 15:21) [0]

Моё почтение мастерам и начинающим программерам! Те варианты которые я попробовал в WinXP не прокатывают :(


 
tpa   (2004-04-09 15:29) [1]

В 2к работает. Попробуй на XP и если не лень сообщи. А то вокруг только 2k.

procedure ExitWindows2k(Flags:  UINT);
var Token: THandle;
   TP1, TP2: TTokenPrivileges;
   D: DWORD;
begin
 OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, Token);
 LookupPrivilegeValue( nil, "SeShutdownPrivilege", TP1.Privileges[0].Luid);
 TP1.PrivilegeCount:= 1;
 TP1.Privileges[0].Attributes:= SE_PRIVILEGE_ENABLED;
 AdjustTokenPrivileges(Token, False, TP1, SizeOf(TTokenPrivileges), TP2, D);
 ExitWindowsEx(Flags, 0);
end;


 
WebErr ©   (2004-04-09 15:55) [2]

BOOL InitiateSystemShutdown(

   LPTSTR lpMachineName, // address of name of computer to shut down  
   LPTSTR lpMessage, // address of message to display in dialog box
   DWORD dwTimeout, // time to display dialog box
   BOOL bForceAppsClosed, // force applications with unsaved changes flag
   BOOL bRebootAfterShutdown  // reboot flag
  ); :))))


 
WebErr ©   (2004-04-09 15:56) [3]


> WebErr ©   (09.04.04 15:55) [2]

Это надо привелегии сначала получить - потом юзать.


 
Wiz@rd ©   (2004-04-09 16:04) [4]

function ZwSystemShutdown (Z: Byte): DWORD; external "ntdll.dll",
Z: 1 - по-моему ребут, 2 - выключение - тут на форуме это было



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

Форум: "Система";
Текущий архив: 2004.05.16;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.041 c
1-1083082162
solo
2004-04-27 20:09
2004.05.16
Таблицы в .rtf


11-1069465382
azsd
2003-11-22 04:43
2004.05.16
ShowModal Must Close Twice?


14-1081857216
Digitman
2004-04-13 15:53
2004.05.16
Платформа Аллегро ... баннер перед носом ... чуть выше..


1-1083194506
Бегун
2004-04-29 03:21
2004.05.16
Абсолютные координаты мыши.


3-1082449810
turich
2004-04-20 12:30
2004.05.16
Подскажите с BDE





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский