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
function ShutdownNTplatform:boolean; const ADJUST_PRIV = TOKEN_QUERY or TOKEN_ADJUST_PRIVILEGES; SHTDWN_PRIV = 'SeShutdownPrivilege'; PRIV_SIZE = sizeOf(TTokenPrivileges) ; var Len: DWORD; TokenPriv, Dummy: TTokenPrivileges; Token: THandle; Text, Machine:array [0..128] of Char; Force,Reboot:boolean; Error:integer; begin Error := 0; if not OpenProcessToken(GetCurrentProcess(), ADJUST_PRIV, Token) then Error := Error or 4; { ShowMessage('OpenProcessToken failed') ; } if not LookupPrivilegeValue(nil, SHTDWN_PRIV,TokenPriv.Privileges[0].Luid) then Error:=Error or 8; { ShowMessage('LookupPrivilegeValue failed') ; } TokenPriv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED; TokenPriv.PrivilegeCount := 1; // One privilege to set if not AdjustTokenPrivileges(Token, false, TokenPriv, PRIV_SIZE,Dummy, Len) then Error:=Error or 16; { ShowMessage('AdjustTokenPrivileges failed') ; } StrPCopy(Text,FMessage) ; StrPCopy(Machine,FMachineName) ; InitiateSystemShutDown (Machine,Text,FTimeOut,True,False) ; Result := (Error = 0) ; end;

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

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

Ko je trenutno na forumu
 

Ukupno su 2444 korisnika na forumu :: 87 registrovanih, 7 sakrivenih i 2350 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 20624 - dana 04 Apr 2026 04:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: advokat84, AndrejPetar, berste23, Betty25, Bo96, boromir, Botovac, boxbole, bunker, carinko, Cirkon, cole77, dano, Dejan_vw, Despot1, dexteroza, DezurniOperativni, Dorcolac, Dragacevac, DrMrPr, Dukelander, dule10savic, EVIDENTICAR, g_g, Gall, goxin, Ilija84, IpMan, ivan_8282, Ivica1102, jalos, kapela, kaput21, kikisp, kraJo, Kruger, kybonacci, lacko, laki_bb, LostInSpaceandTime, Magarac, max power, mercedesamg, Mercury, mgolub, Michellefromrezistance, miki kv, Milan A. Nikolic, Milan1996, mir juzni, N.e.m.a.nj.a., neutrino, nezavisni mislilac, nixos, nudzejmt, Obrenovic, pedja savic, Podljub, Prečanin30, Prometeus, Qvazimodo, razumihin, redstar011, Regrut Boskica, Resnica, rokokoko, samojednoimeznam, slowhand, sova72, Srky Boy, ssekir75, StalniPromatrač, Stanislav1970, strelac07, Tamna_strana_Meseca, tanakadzo, TT, Tumansky, Vića, Vlada76, vladaa012, vobo, voja64, Vojo06, vrgudinac, vukajlo71, ZlatniRez