[es] - Periodični restart PC-a

MyWay

Član broj: 25141
Poruke: 1263
*.telekom.yu

+629 Profil

^{18.05.2004. u 09:39 - pre 242 meseci}

Imam problem: krljav PC a treba mi stalno da bude online, i on se lepo posle 12-20 h rada zaglupi (i jedino reboot mašine uradi posao) pa sam kao rešenje smislio da napišem kodić u Delphi-ju koj bi ga reboot-ovao na npr 12h. Jedini problem je što NE ZNAM KAKO

Ajd' upomoć dobri ljudi

Save time... see it my way.

Odgovor na temu

neor
Nenad Orlovic

Član broj: 26828
Poruke: 74
*.panline.net

Profil

Re: Periodični restart PC-a

^{19.05.2004. u 14:23 - pre 242 meseci}

Ovo restartuje XP. Za Win9x mislim da je dovoljan samo red sa ExitWindowsEx.

Code:

program Reboot;
uses  windows;
var
  TokenHandle,ReturnLength: Cardinal;
  NewState: TTokenPrivileges;
begin
  if OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES, TokenHandle) then
  begin
    try
      NewState.PrivilegeCount := 1;
      LookupPrivilegeValue(nil, 'SeShutdownPrivilege', NewState.Privileges[0].Luid);
      NewState.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
      AdjustTokenPrivileges(TokenHandle, False, NewState, SizeOf(NewState), nil, ReturnLength);
    finally
      CloseHandle(TokenHandle);
    end;
  end;

  { Ostaviti samo jedan od sledecih redova }
  //ExitWindowsEx(EWX_LOGOFF); //0
  //ExitWindowsEx(EWX_SHUTDOWN); //1
  ExitWindowsEx(EWX_REBOOT); //2
  //ExitWindowsEx(EWX_FORCE); //4
  //ExitWindowsEx(EWX_POWEROFF,0); //8
  //ExitWindowsEx(EWX_FORCEIFHUNG); //16
  //SetSystemPowerState(False,False); //Hibernate

end.

Odgovor na temu

MyWay

Član broj: 25141
Poruke: 1263
*.telekom.yu

+629 Profil

Re: Periodični restart PC-a

^{22.05.2004. u 21:48 - pre 242 meseci}

Citat:

neor:Ovo restartuje XP. Za Win9x mislim da je dovoljan samo red sa ExitWindowsEx.

Prvo, hvala za kod. Nisam još probao (nemam Delphi ovde), ali imam dodatno pitanje:
Spominješ razlike za različite OS, da li i šta treba menjati za NT4.0 (spominjao sam krljav PC)?

Save time... see it my way.

Odgovor na temu

neor
Nenad Orlovic

Član broj: 26828
Poruke: 74
*.panline.net

Profil

Re: Periodični restart PC-a

^{23.05.2004. u 11:03 - pre 242 meseci}

Za NT/2000/XP treba onaj deo sa postavljanjem privilegija, za 9x toga nema.
Mislim da hibernacija radi samo na XP a ostalo radi na svim verzijama.

Odgovor na temu