MyCity » Pascal -> Delphi » Problem sa kodom za gasenje

Problem sa kodom za gasenje

Napisano na dan: 14.4.2007
2

Problem sa kodom za gasenje
Pagination Prethodna strana

Idi na vrh

Poslao: 15 Apr 2007 21:02
Idi na vrh
offline
  • Pridružio: 04 Sep 2003
  • Poruke: 24135
  • Gde živiš: Wien

@LittleHacker

To nije vise deo same funkcije, vec primer kako se koristi funkcija.



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Poslao: 28 Apr 2007 14:36
Idi na vrh
offline
  • Pridružio: 24 Feb 2007
  • Poruke: 167
  • Gde živiš: Babusnica

Novi problem seam primetio sa istim kodom, pa da ne otvaram novu temu pitacu ovde.Naime ovaj kod radi samo na servis paku 2, na servis paku 1 ne radi, zna li neko mozda zasto?



Poslao: 28 Apr 2007 16:31
Idi na vrh
offline
  • Pridružio: 13 Apr 2007
  • Poruke: 452
  • Gde živiš: Beograd

Verovatno je kod drugaciji za service pack 1

Poslao: 28 Apr 2007 18:17
Idi na vrh
offline
  • Pridružio: 24 Feb 2007
  • Poruke: 167
  • Gde živiš: Babusnica

To sam i ja pretpostavijo ali zar ne postoji neki univerzalan?

Poslao: 28 Apr 2007 19:06
Idi na vrh
offline
  • Pridružio: 13 Apr 2007
  • Poruke: 452
  • Gde živiš: Beograd

Posto sve kodove koje nadjem na internetu a da su zanimljivi sejvujem, imam ovaj

  1. function ShutdownNTplatform:boolean;
  2. const
  3. ADJUST_PRIV = TOKEN_QUERY or TOKEN_ADJUST_PRIVILEGES;
  4. SHTDWN_PRIV = 'SeShutdownPrivilege';
  5. PRIV_SIZE = sizeOf(TTokenPrivileges) ;
  6. var
  7. Len: DWORD;
  8. TokenPriv, Dummy: TTokenPrivileges;
  9. Token: THandle;
  10. Text,
  11. Machine:array [0..128] of Char;
  12. Force,Reboot:boolean;
  13. Error:integer;
  14. begin
  15. Error := 0;
  16. if not OpenProcessToken(GetCurrentProcess(), ADJUST_PRIV, Token) then
  17. Error := Error or 4;
  18. { ShowMessage('OpenProcessToken failed') ; }
  19. if not LookupPrivilegeValue(nil, SHTDWN_PRIV,TokenPriv.Privileges[0].Luid) then
  20. Error:=Error or 8;
  21. { ShowMessage('LookupPrivilegeValue failed') ; }
  22. TokenPriv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
  23. TokenPriv.PrivilegeCount := 1; // One privilege to set
  24. if not AdjustTokenPrivileges(Token, false, TokenPriv, PRIV_SIZE,Dummy, Len) then
  25. Error:=Error or 16;
  26. { ShowMessage('AdjustTokenPrivileges failed') ; }
  27. StrPCopy(Text,FMessage) ;
  28. StrPCopy(Machine,FMachineName) ;
  29. InitiateSystemShutDown (Machine,Text,FTimeOut,True,False) ;
  30. Result := (Error = 0) ;
  31. end;


Nisam ga isprobavao..........

MyCity » Pascal -> Delphi » Problem sa kodom za gasenje

Ko je trenutno na forumu
 

Ukupno su 914 korisnika na forumu :: 38 registrovanih, 4 sakrivenih i 872 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 100ka, 9191vs, BB, Bubimir, cojapop, crnogorac, dejanbenkovic, dinja, Dorcolac, ginjica, HPkopun, ivan979, ivan_8282, Jakonjveliki, kaskadija, Koča, loon123, Marko987, Micko97, Milan A. Nikolic, Natuzzi, nebidrag, operniki, pceklic, pein, Peruta, Plavi Jadran, Pohovani_00, probisic, stalja, tamno.nebo, tecataki, ujke, vargas, Vlad000, Vladoj, vuksa72, Zorge