[Elza]

есть такой код:

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
  p:PROCESSENTRY32;
  ct:cardinal;
  th:cardinal;
  mp:array[0..255] of char;
  mm:pchar;ts:TSearchRec;
  sst:STARTUPINFO;
  ss,s:string;
begin
  ct:=CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);
  Process32First(ct,p);
  while Process32Next(ct,p) do begin
  begin
    if ExtractFileName(Application.ExeName)=string(p.szExeFile) then
      form1.Tag:=form1.Tag+1;
    OpenProcessToken(p.th32ProcessID,TOKEN_READ,th);
    ListBox1.Items.Add(Format('%s - %s', [inttostr(p.th32ProcessID), string(p.szExeFile)]))
  end;

В седьмой delphi все работало нормально, а в XE при компиляции
на строке

Код:

 OpenProcessToken(p.th32ProcessID,TOKEN_READ,th);

Ругается на

[dcc32 Error] Unit1.pas(41): E2033 Types of actual and formal var parameters must be identical