Скачать: CL | DM;

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

← →
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;

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.018 c