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

Вниз

Правильное завершение системы   Найти похожие ветки 

 
Clamat ©   (2003-05-01 09:25) [0]

Нужна функция которая правильно будет выполнять перезагрузку,
выход из системы (log off) и выключение компа. Желательно под
системы с ядром NT. За ранее благодарен.


 
Yanis ©   (2003-05-01 13:24) [1]

Я уже задолбался видеть эти вопросы. Неужели трудно полазить по поисковикам, по FAQам, ну ладно держи:

Что бы перезагрузить NT нам нужны привилегии

function SetPrivilege(aPrivilegeName : string;
aEnabled : boolean ): boolean;
var
TPPrev,
TP : TTokenPrivileges;
Token : THandle;
dwRetLen : DWord;
begin
Result := False;
OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES
or TOKEN_QUERY, @Token );
TP.PrivilegeCount := 1;
if( LookupPrivilegeValue(nil, PChar( aPrivilegeName ),
TP.Privileges[ 0 ].LUID ) ) then
begin
if( aEnabled )then
TP.Privileges[0].Attributes:= SE_PRIVILEGE_ENABLED;
else
TP.Privileges[0].Attributes:= 0;
dwRetLen := 0;
Result := AdjustTokenPrivileges(Token,False,TP,
SizeOf( TPPrev ),
TPPrev,dwRetLen );
end;
CloseHandle( Token );
end;
function WinExit( iFlags : integer ) : boolean;
// возможные флаги:
// EWX_LOGOFF
// EWX_REBOOT
// EWX_SHUTDOWN
begin
Result := True;
if( SetPrivilege( "SeShutdownPrivilege", true ) ) then
begin
if( not ExitWindowsEx( iFlags, 0 ) )then
begin
Result := False;
end;
SetPrivilege( "SeShutdownPrivilege", False )
end
else
begin
Result := False;
end;
end;




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

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

Наверх




Память: 0.46 MB
Время: 0.02 c
6-7585
Armageddon
2003-04-27 18:36
2003.07.03
Как по сети передать файл


1-7380
anatolyk
2003-06-22 19:51
2003.07.03
вызов форм


1-7521
U-351
2003-06-21 21:39
2003.07.03
Расположение окон в Win


1-7509
Leech
2003-06-21 13:59
2003.07.03
Delphi VI: fsMDIForm, fsMDIChild, Action := caFree...


14-7695
Jimal
2003-06-14 01:15
2003.07.03
Как программе скопировать саму себя не зная местонахождение