我在服务程序里用CreateProcessWithLogon

小 虾米 22:50:46
我是用的 Delphi
var
  Domain,UserName,Pwd: String;
  hToken : THandle;
  si: TStartupInfo;
  pi: TProcessInformation;

begin
  Domain := '';
  UserName := '虾米';
  Pwd := '';
  //用户登录
  if not LogonUser(pChar(UserName),pChar(Domain),pChar(Pwd),
                LOGON32_LOGON_INTERACTIVE,
                LOGON32_PROVIDER_DEFAULT,
                hToken) then
  begin
    ShowMessage('用户"'+UserName+'"登录失败！'+#13#10+sysErrorMessage(GetLastError));
    Result := false;
    exit;
  end;
  //模拟用户登录
  if not ImpersonateLoggedOnUser(hToken) then
  begin
    ShowMessage('模拟用户"'+UserName+'"登录失败！'+#13#10+sysErrorMessage(GetLastError));
    Result := false;
    exit;
  end;

  ZeroMemory(@si,Sizeof(TStartupInfo));
  si.cb := Sizeof(TStartupInfo);
  si.lpDesktop := nil;
  si.wShowWindow := 1;

  //create process as user
  if not CreateProcessAsUser(
             hToken,
             nil,
             pChar(strExe),
             nil,
             nil,
             FALSE,
             NORMAL_PRIORITY_CLASS or CREATE_NEW_CONSOLE,
             nil,
             nil,
             si,
             pi
             ) then
  begin
      ShowMessage('以用户"'+UserName+'"的身份创建进程失败！'+ #13#10+sysErrorMessage(GetLastError));
      Result := false;
      exit;
  end;
  Result := True;

 

小 虾米 22:48:08
我在服务程序里用CreateProcessWithLogon
在2000下没问题，但在Xp下就不能成功啊