AdjustTokenPrivileges!?!

Jeg har ikke lige en C Builder he .. men jeg har noget Delphi kode der kan tricket for dig :

function ExitWIndows( iFlags : integer ) : boolean;

  function SetPrivilege( sPrivilegeName : string; bEnabled : boolean ) : boolean;
  var
    TPPrev, TP : TTokenPrivileges;
    Token      : THandle;
    dwRetLen  : DWord;
  begin
    Result := False;
    OpenProcessToken( GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES  or TOKEN_QUERY, Token );
    TP.PrivilegeCount := 1;
    if( LookupPrivilegeValue( Nil, PChar( sPrivilegeName ), TP.Privileges[ 0 ].LUID ) )then
      begin
      if( bEnabled )then
        TP.Privileges[ 0 ].Attributes  :=  SE_PRIVILEGE_ENABLED
      else
        TP.Privileges[ 0 ].Attributes  :=  0;
      dwRetLen := 0;
      Result := AdjustTokenPrivileges( Token, False,TP, SizeOf( TPPrev ), TPPrev, dwRetLen );
    end;
    CloseHandle( Token );
  end;

begin
  Result := True;
  if( SetPrivilege( \'SeShutdownPrivilege\', True ) )then
  begin
    if( not ExitWindowsEx( iFlags, 0 ) )then
    begin
      // handle errors...
      Result := False;
    end;
    SetPrivilege( \'SeShutdownPrivilege\', False )
  end
  else
  begin
    // handle errors...
    Result := False;
  end;
end;


Som parameter giver du den bare en af de flag som står beskrevet i hjælpen unde ExitWindowsEx

Jens B

UHH.. Det ser godt nok komplekst ud!
Øhh, kan det ikke lade sig gøre at \"bare\" lave det i en simpel linie? Jeg behøves ikke at vide om brugeren har sat \"hak\" ved fanebladet.

Sorry, men jeg kan ikke rigtigt følge med.. Det her er ikke min stærke side ;o)

Fartzzz

du kalder bare 
  ExitWIndows( EXW_REBOOT );

Nemmer kan det da ikke blive ?

Jens B

Nope. Men jeg kunne godt tænke mig at undgå funktionen.
Helst så simpelt som muligt.

Jeg kunne godt bare tænke mig at vide hvordan man definér hvert \"felt\" i:
AdjustTokenPrivileges( Token, False,TP, SizeOf( TPPrev ), TPPrev, dwRetLen );
Det er ligemeget om det kun virker til en der har slået fanen til eller omvendt.. (Hvis det ka\' lade sig gøre)   

Fartzzz

Du kan ikke undgå funktionen .... du er nødtil først at sætte din token før du forsøger at ligge windows ned så derfor de to funktioner .. Pak dem ind i en unit for sig selv. Så har du den enkle linje du efterlyser ....

Jens B

Ok.. Prøver lige at bakse med det ;o)

Fartzzz

PUHAA.. Takker for hjælpen!
Efter ha\' GENNEMLÆST din funktion samtidig med en masse TXT-hjælp virker det! :o)
Tak for hjælpen! ;o)

Fartzzz