通过Delphi带参数执行tregsvr.exe

Question

我正在使用 Delphi 附带的tregsvr.exe 程序来注册 OCX。

使用这个程序而不是regsrv32.exe 的原因是可以传递-c 参数，这将只允许当前用户注册。

我通过ExecAndWait()函数执行程序，复制如下。它使用ShellExecuteEx()（而不是CreateProcess()），正是因为（只要我不设法为当前用户传递参数）我必须要求提升，这是通过传递布尔值Adm来完成的，它修复了'runas'（我读到了关于应用清单的另一种方法，但没有设法让它工作，也许这是另一个问题）。

function ExecAndWait(const ExecuteFile, ParamString : string; Adm: boolean): boolean;
var
  SEInfo: TShellExecuteInfo;
  ExitCode: DWORD;
begin
  FillChar(SEInfo, SizeOf(SEInfo), 0);
  SEInfo.cbSize := SizeOf(TShellExecuteInfo);
  with SEInfo do
  begin
    fMask := SEE_MASK_NOCLOSEPROCESS;
    Wnd := Application.Handle;
    lpFile := PChar(ExecuteFile);
    lpParameters := PChar(ParamString);
    If Adm then lpVerb:='runas';
    nShow := SW_HIDE;
  end;
  if ShellExecuteEx(@SEInfo) then
  begin
    repeat
      Application.ProcessMessages;
      GetExitCodeProcess(SEInfo.hProcess, ExitCode);
    until (ExitCode = STILL_ACTIVE) or Application.Terminated;
    Result:=True;
  end
  else Result:=False;
end;

在此使用示例中，变量 Path 是 tregsvr.exe 的完整路径，Server 是 OCX 的完整路径。它运行良好（它完成了注册工作）：

ExecandWait(Path,Chr(9)+Server+Chr(9), True);

但是当我尝试传递 -c 或其他参数时，我的问题就出现了，例如在任何这些尝试中，函数都不成功：

ExecandWait(Path,'-c '+Chr(9)+Server+Chr(9), True);
ExecandWait(Path,'\c '+Chr(9)+Server+Chr(9), True);

Answer 1

您的Chr(9)+Server+Chr(9) 几乎可以肯定是不正确的，在次要和主要方面：

• 小问题：Chr(9) 是一个制表符。虽然这是一个完全合法的空白字符，但在命令行中遇到它是相当少见的，因此，如果您尝试运行的应用程序未能正确处理它，我不会感到惊讶。
• 主要问题：如果Server 包含空格，您实际上将向tregsvr.exe 传递多个命令行参数而不是一个参数，并且不出所料tregsrv.exe 将无法理解它们。

解决方案：将参数放在引号中以表明它实际上是一个参数，而不是多个：AnsiQuotedStr(Server, '"')。