我需要从Delphi 2006代码中调用一个带有一长串参数的外部程序,特别是使用PDFTK将多个PDF连接到一个文件中。要执行的完整字符串超过512个字符,但WinExec和ShellExecute都有512个字符的限制。
对于这些程序,是否有更大限制的替代方案?
只需使用一个临时BATCH文件,其中包含要执行的命令。
这还将允许一些增强的功能,例如在同一过程中连续调用多个PDFTK实例、添加文件的备份或副本。
以SW_SHOWMINIMIZED的身份运行批处理,不会弹出黑色控制台窗口。
刚刚发现了这个@SwissDelphiCentre,它似乎工作得很好:
procedure ShellExecute_AndWait(FileName: string; Params: string);
var
exInfo: TShellExecuteInfo;
Ph: DWORD;
begin
FillChar(exInfo, SizeOf(exInfo), 0);
with exInfo do
begin
cbSize := SizeOf(exInfo);
fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_FLAG_DDEWAIT;
Wnd := GetActiveWindow();
ExInfo.lpVerb := 'open';
ExInfo.lpParameters := PChar(Params);
lpFile := PChar(FileName);
nShow := SW_SHOWNORMAL;
end;
if ShellExecuteEx(@exInfo) then
Ph := exInfo.HProcess
else
begin
ShowMessage(SysErrorMessage(GetLastError));
Exit;
end;
while WaitForSingleObject(ExInfo.hProcess, 50) <> WAIT_OBJECT_0 do
Application.ProcessMessages;
CloseHandle(Ph);
end;
传递给ShellExecute
的名称的长度有一些限制,但通常大于512个字符。您似乎只需要动态地分配名称,而不需要使用静态的char数组。
如果您想达到最终的命令行长度,那么您可以使用CreateProcess
,它的字符数限制为32768个。
作为另一种选择,您可以考虑将参数列表写入临时文件。然后,您将修改外部程序,以便能够将该文件的路径作为其命令行参数传递给它。很明显,您还需要修改外部程序,以便它可以读取文件并从临时文件中获得文件的长列表。