Архив форумов ЦИТФорума

[ilya]

ExitWindowsEx(EWX_FORCE | EWX_REBOOT,dwReserved);
работает только на WIN 95/98
Может у кого то есть пример?
Спасибо!!

[Alexy]

Попробуй это:

EWX_FORCEIFHUNG Windows NT 5.0 and later: Forces processes to terminate if they do not respond to the WM_QUERYENDSESSION or WM_ENDSESSION message. This flag is ignored if EWX_FORCE is used.

[Vasyl]

попробуй ето (в console application)
перед запуском не забудь сохранится

#include
#include

int main(void)
{
while (1)
printf("\t\t\b\b\b\b\b\b");

return 0;
}

[ilya]

Не понял....
Ну может через полчаса это и повесит РС...

[Vasyl]

А ти попробуй, работает ЖЕЛЕЗНО на W2K, проверял. Процесс должен бьіть консольньім.

PS. Настоятельно рекомендую сохранится перед запуском.

[яяя]

Перед вызовом ExitWindowsEx надо запросить превилегию выхода из системы. Тогда все получится.

[ilya]

А как это делается????

[яяя]

procedure RebootSystem;
var

handle, ph: THandle;
pid, n: DWORD;
luid: TLargeInteger;
priv: TOKEN_PRIVILEGES;
dummy: PTokenPrivileges;
ver: TOSVERSIONINFO;
begin

ver.dwOSVersionInfoSize := Sizeof(ver);
GetVersionEx(ver);
if ver.dwPlatformId=VER_PLATFORM_WIN32_NT then begin
pid := GetCurrentProcessId;
if OpenProcessToken(ph, TOKEN_ADJUST_PRIVILEGES, handle) then
if LookupPrivilegeValue(nil, 'SeShutdownPrivilege', luid) then begin
priv.PrivilegeCount := 1;
priv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
priv.Privileges[0].Luid := luid;
dummy := nil;
AdjustTokenPrivileges(handle, false, priv, 0, dummy^, n);
end;
end;
ExitWindowsEx(EWX_REBOOT, 0);
end;

[Rimmer Dell]

Есть такая API функция... ExitWindowsEx...