Как выключить/перезагрузит/ждущий режим комп?

← →
Dr.Pauk © (2004-05-31 23:45) [0]

я тут впервые.. так что извиняйте, если что не так ;)
вопрос: обьясните какой функцией реализуется выкл,перезагруз. и переход в ждущий режим компьютера? и какие приэтом модули подключаются? И ваще КАК это делается?

ответ буду ждать с нетерпением.... так как на носу курсовик...
а это фишка в проге не работает:(
заранее благодарен!

← →
Cobalt © (2004-05-31 23:51) [1]

выкл и перезагруз - ExitWindows (или ExitWindowsEx)
переход в ждущий режим - вроде(типа ;-) SetSystemPowerState

← →
grom (2004-06-01 08:50) [2]

пример для ХР
procedure TForm1.Button1Click(Sender: TObject);
var hToken:THandle;
Luid: TLargeInteger;
tkp: TTokenPrivileges;
ReturnLength: Cardinal;
begin
if OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES,
hToken)
then begin
LookupPrivilegeValue(nil, "SeShutdownPrivilege", Luid);
tkp.Privileges[0].Luid := Luid;
tkp.PrivilegeCount:=1;
tkp.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
if AdjustTokenPrivileges(hToken, False, tkp, 0, nil,
ReturnLength)
then if not ExitWindowsEx(EWX_LOGOFF,0)
then ShowMessage("Íå óäàëîñü ñìåíèòü ïîëüçîâàòåëÿ");
end;
end;
//mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm
procedure TForm1.Button2Click(Sender: TObject);
var hToken:THandle;
Luid: TLargeInteger;
tkp: TTokenPrivileges;
ReturnLength: Cardinal;
begin
if OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES,
hToken)
then begin
LookupPrivilegeValue(nil, "SeShutdownPrivilege", Luid);
tkp.Privileges[0].Luid := Luid;
tkp.PrivilegeCount:=1;
tkp.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
if AdjustTokenPrivileges(hToken, False, tkp, 0, nil,
ReturnLength)
then if not ExitWindowsEx(EWX_SHUTDOWN or EWX_POWEROFF,0)
then ShowMessage("Íå óäàëîñü âûêëþ÷èòü êîìïüþòåð");
end;
end;
//mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm
procedure TForm1.Button3Click(Sender: TObject);
var hToken:THandle;
Luid: TLargeInteger;
tkp: TTokenPrivileges;
ReturnLength: Cardinal;
begin
if OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES,
hToken)
then begin
LookupPrivilegeValue(nil, "SeShutdownPrivilege", Luid);
tkp.Privileges[0].Luid := Luid;
tkp.PrivilegeCount:=1;
tkp.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
if AdjustTokenPrivileges(hToken, False, tkp, 0, nil,
ReturnLength)
then if not ExitWindowsEx(EWX_REBOOT,0)
then ShowMessage("Íå óäàëîñü ïåðåçàãðóçèòü ñèñòåìó");
end;
end;

Как выключить/перезагрузит/ждущий режим комп? Найти похожие ветки