ошибка в AdjustTokenPrivileges

[helper999999]

Есть код, вот он

procedure TForm1.Button1Click(Sender: TObject);
var
     Token           : THandle;
     TokenPrivileges : TTokenPrivileges;
     ProcessHandle   : THandle;
     TokenHandle     : THandle;
     SID             : _SID_AND_ATTRIBUTES;
     Buff            : pointer;
     Snap,d,TypeUser : DWORD;
     Process         : TPROCESSENTRY32;
     user,domain     : array[0..MAX_PATH] of char;
 begin
     if OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, Token) then
     begin
       if LookupPrivilegeValue(nil, PChar('SeDebugPrivilege'), TokenPrivileges.Privileges[0].Luid) then
       begin
         TokenPrivileges.PrivilegeCount := 1;
         TokenPrivileges.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
         if AdjustTokenPrivileges(Token, false, TokenPrivileges, 0, PTokenPrivileges(nil)^, PDWord(nil)^) then//<- Вот тут
         begin
           Snap := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
           if Snap <> INVALID_HANDLE_VALUE then
           begin
             Process.dwSize := SizeOf(TPROCESSENTRY32);
             if Process32First(Snap, Process) then
             repeat
               ProcessHandle := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_TERMINATE,false,Process.th32ProcessID);
               OpenProcessToken(ProcessHandle,TOKEN_QUERY,TokenHandle);
               Buff:= HeapAlloc(GetProcessHeap,0,cbBuff);
               if GetTokenInformation(TokenHandle,TokenUser,buff,cbBuff,d) then
               begin
                 SID := SID_AND_ATTRIBUTES(buff^);
                 d := cbBuff;
                 TypeUser:= SidTypeUser;
                 if LookupAccountSid(nil,sid.Sid,user,d,domain,d,TypeUser) then
                 begin
                   if (lstrcmp(user,'SYSTEM') <> 0) and
                      (lstrcmp(user,'система') <> 0) and
                      (lstrcmp(user,'NETWORK SERVICE') <> 0) and
                      (lstrcmp(user,'LOCAL SERVICE') <> 0)
                   then
                   begin
                     MessageBox(0,user,#0,0);  // показать пользователя процесса
                     TerminateProcess(ProcessHandle,0);// завершить процесс
                   end;
                 end;
               end;
               CloseHandle(TokenHandle);
               CloseHandle(ProcessHandle);
             until
               not Process32Next(Snap, Process);
             CloseHandle(Snap);
           end;
         end;
       end;
     end;
end;

Онзавершает процессы кроме системных, но на строчке отмеченной "Вот тут" при компиляции выдает ошибку

[dcc32 Error] Unit1.pas(52): E2250 There is no overloaded version of 'AdjustTokenPrivileges' that can be called with these arguments

Посмотрел в интернете вроде все правильно описано, что не так?

[Stilet]

AdjustTokenPrivileges(Token, false, @TokenPrivileges, 0,nil, nil)

[helper999999]

Сообщение от Stilet

AdjustTokenPrivileges(Token, false, @TokenPrivileges, 0,nil, nil)

пробывал, увы тоже самое, я уже как только не менял значения, всегда одна и та же ошибка...

[Stilet]

Делфи у меня нет, а вот Лазарус говорит что твой код, что ты разместил в топе правильный. По крайней мере именно эта функция воспринимается им без проблем.
Наведи на нее мышку и посмотри каких параметров она тут требует.

[HTTqp]

оказалось все елементарно нужно было добавить в VAR

var
ReturnLength:Cardinal;

и сделать так:

AdjustTokenPrivileges(Token, false, TokenPrivileges, 0, PTokenPrivileges(nil)^, ReturnLength)

Странно но переменной ReturnLength ни чего не присваивается но бещ нее отказывается работать странно) а темерь все ок

[Stilet]

ни чего не присваивается

А ты почитай для чего она. Есть in и out параметры. Вот почитай что они из себя представляют и все поймешь.