Delphiのプロシージャは512文字以上のプログラムを実行します

Question

Delphi 2006コードの外部プログラムを引数の長いリストで呼び出す必要があります。特に、複数のPDFをPDFTKを使用して1つのファイルに連結する必要があります。実行される完全な文字列は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

ShellExecuteに渡される名前の長さにはlimitsがいくつかありますが、これらは通常512文字を超えます。静的なchar配列を使用するのではなく、名前を動的に割り当てる必要があるようです。

最終的なコマンドラインの長さに移動する場合は、CreateProcessを使用できますが、制限は32,768文字です。

別のオプションとして、引数リストを一時ファイルに書き込むこともできます。次に、外部プログラムを変更して、コマンドライン引数としてそのファイルへのパスを渡すことができるようにします。外部プログラムを変更して、ファイルを読み取り、テンポラリファイルからファイルの長いリストを取得できるようにする必要があります。

Answer 3

実行するコマンドを含む一時BATCHファイルを使用してください。

これにより、複数のPDFTKインスタンスを連続して呼び出したり、同じプロセス内でファイルのバックアップやコピーを追加するなど、いくつかの拡張された機能も使用できます。

バッチをSW_SHOWMINIMIZEDとして実行すると、黒色のコンソールウィンドウがポップアップしないようになります。