createprocessasuser中的异常 - JclMiscel

时间:2016-05-11 11:18:48

标签: delphi jedi

我需要与特定用户执行一些EXE。所以我在JCL Library下使用了CreateProcAsUser函数JclMiscel。但是当我运行我的代码时,我将获得运行时异常。这是

  

异常类EjdError,消息'NT version 3.51 build 1057或   后来要求'

这是我的代码

var
  Command2, TemExtractPath, x,TargetDirectory: String;
begin
  try
    TemExtractPath := 'C:\MtntopDispense\Updates\HICOnline\temp';
    TargetDirectory := 'D:\Test';
    Command2 := 'Robocopy "' + TemExtractPath + '" "' + TargetDirectory +
      '" /MIR /dcopy:T';
    CreateProcAsUser('.', 'nexusdb', 'mtntop', Command2);

  except
    on E: Exception do

      ShowMessage(E.StackTrace + '-' + E.Message);
  end;
end;

0 个答案:

没有答案