Программа выполнения Delphi с более чем 512 символами

Question

Мне нужно вызвать внешнюю программу из кода Delphi 2006 с длинным списком аргументов, в частности для объединения нескольких файлов PDF в один файл с помощью PDFTK. Полная строка, которая должна быть выполнена, имеет более 512 символов, но оба WinExec и ShellExecute имеют ограничение на 512 символов.

Есть ли альтернативы этим процедурам, которые имеют гораздо большие ограничения?

Answer 1

Просто нашел @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; 

Answer 2

Есть длина limits по длине имен, переданных в ShellExecute, но они обычно больше 512 символов. Кажется, вам просто нужно динамически распределять имена, а не использовать статический массив char.

Если вы хотите перейти на конечную длину командной строки, вы можете использовать CreateProcess который имеет ограничение 32 768 символов.

В качестве другого варианта вы можете рассмотреть возможность записи списка аргументов во временный файл. Затем вы должны изменить внешнюю программу, чтобы она могла передавать путь к этому файлу в качестве аргумента командной строки. Вам, очевидно, потребуется также изменить внешнюю программу, чтобы она могла читать файл и получать длинный список файлов из временного файла.

Answer 3

Просто используйте временный файл BATCH, содержащий команды для выполнения.

Это позволит также некоторые расширенные функции, такие как вызов нескольких экземпляров PDFTK в ряд, добавление резервной копии или копирование файлов только в том же процессе.

Запустите пакет в качестве SW_SHOWMINIMIZED, чтобы не было черного окна консоли.