Главная страница
    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.042 c
9-1073424736
Orcy
2004-01-07 00:32
2004.05.16
Как загрузить 3ds в OpenGL


1-1082953631
WondeRu
2004-04-26 08:27
2004.05.16
Cursor in RUNTIME


3-1082221283
CyBeR
2004-04-17 21:01
2004.05.16
Как создать список просмотра DbGrid????


1-1083658988
ivan-xp
2004-05-04 12:23
2004.05.16
Многострочный TRadioButton


1-1082978828
Имя2
2004-04-26 15:27
2004.05.16
Воспроизведение из memorystream





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский