[Delphi] Compil qui passe pas et pourtant...

Recherche :

Dernière réponse
Sujet : [Delphi] Compil qui passe pas et pourtant...
Profil supprimé	Voila je tente de coder un soft qui éteint la machine locale. Mais sous 2000 ou NT c'est pas évident... Cette procedure me permet de donner les droits qui vont bien a mon exe, mais la ligne en gras ne compile pas... procedure ShutDown; var CurrentProc : THandle; TokenHandle : THandle; TokenPriv : PTokenPrivileges; Success: Boolean; a,b : pinteger; begin CurrentProc := GetCurrentProcess; if OpenProcessToken (CurrentProc, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, TokenHandle) then begin // get privilege If LookupPrivilegeValue (Nil, 'SESHUTDOWNPRIVILEGE', TokenPriv.Privileges[0].LUID) then begin TokenPriv.PrivilegeCount := 1; TokenPriv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED; // Reboot system if AdjustTokenPrivileges(TokenHandle, False, TokenPriv, 0, nil, nil) then Success := ExitWindowsEx(EWX_REBOOT, 0); if not Success then ShowMessage ('Koin') end; end; Aucune version surchargée de AdjustTokenPrivileges ne peut etre appellée avec ces arguments... Comprend pas la...

Dernière réponse

Sujet : [Delphi] Compil qui passe pas et pourtant...

Profil supprimé

Voila je tente de coder un soft qui éteint la machine locale. Mais sous 2000 ou NT c'est pas évident...

Cette procedure me permet de donner les droits qui vont bien a mon exe, mais la ligne en gras ne compile pas...

procedure ShutDown;
var
CurrentProc : THandle;
TokenHandle : THandle;
TokenPriv : PTokenPrivileges;
Success: Boolean;
a,b : pinteger;
begin
CurrentProc := GetCurrentProcess;
if OpenProcessToken (CurrentProc, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,
TokenHandle) then
begin
// get privilege
If LookupPrivilegeValue (Nil, 'SESHUTDOWNPRIVILEGE',
TokenPriv.Privileges[0].LUID) then
begin
TokenPriv.PrivilegeCount := 1;
TokenPriv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
// Reboot system
if AdjustTokenPrivileges(TokenHandle, False, TokenPriv, 0, nil, nil) then
Success := ExitWindowsEx(EWX_REBOOT, 0);
if not Success then
ShowMessage ('Koin')
end;
end;

Aucune version surchargée de AdjustTokenPrivileges ne peut etre appellée avec ces arguments...
Comprend pas la...