Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Periodični restart PC-a

[es] :: Pascal / Delphi / Kylix :: Periodični restart PC-a

[ Pregleda: 1885 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

MyWay

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



+629 Profil

icon Periodični restart PC-a18.05.2004. u 09:39 - pre 213 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

icon Re: Periodični restart PC-a19.05.2004. u 14:23 - pre 213 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

icon Re: Periodični restart PC-a22.05.2004. u 21:48 - pre 213 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

icon Re: Periodični restart PC-a23.05.2004. u 11:03 - pre 213 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

[es] :: Pascal / Delphi / Kylix :: Periodični restart PC-a

[ Pregleda: 1885 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.