TJwSecurityToken и CreateProcessAsUser

[Даниил_глазко]

Всем привет. Нужно конвертировать переменную типа TJwSecurityToken в Cardinal для использования её в функции CreateProcessAsUser. Код который получает и пытается использовать эту переменную:

procedure TForm1.Button1Click(Sender: TObject);
var
  UserToken : TJwSecurityToken;
  ConsoleUser : TJwSecurityId;
  UserSidString,
  UserName : TJwString;
struc1: PSTARTUPINFO;
struc2: PROCESS_INFORMATION;
begin

getmem(struc1, sizeof(TSTARTUPINFO));

struc1^.lpDesktop := PChar('winsta0\default');
struc1^.dwFlags := STARTF_USESHOWWINDOW;
struc1^.wShowWindow := SW_SHOW;
 //erst ab Windows XP
  UserToken := TJwSecurityToken.CreateWTSQueryUserToken(WTS_CURRENT_SESSION);
  try
    ConsoleUser := UserToken.TokenUser;
    try
      UserSidString := ConsoleUser.StringSID;
      UserName := ConsoleUser.GetAccountName('');
    finally
      FreeAndNil(ConsoleUser);
    end;
    //User personifizieren
    UserToken.ImpersonateLoggedOnUser;
     CreateProcessAsUser(UserToken, nil,
       PChar('c:\testPrj\Project1.exe'),
       nil, nil, false, Create_default_error_mode, nil, nil, struc1, struc2);
    UserToken.RevertToSelf;
  finally
    FreeAndNil(UserToken);
  end;
end;

[ZuBy]

в каком модуле прописан TJwSecurityToken?

[Пепел Феникса]

свойство TokenHandle.
алгоритм->гугл по имени класса->офф дока.