TShellExecuteInfo lpParameters 및 ">"기호

Question

이 코드는 데이터베이스 백업을 수행하기 위해 Sqlite3.exe를 호출하지만 매개 변수의 ">"기호로 인해 작동하지 않습니다. 어떻게 고칠 지 말해 줄 수 있어요?

procedure TfAdmin.DoDBBackup(ADBBackupFile: String); 
var 
    b, p, q: String; 
    ps: TShellExecuteInfo; 
begin 

    b := ExtractFilePath(ParamStr(0)) + 'PPDB.bak'; 
    p := ExtractFilePath(ParamStr(0)) + 'sqlite3.exe'; 
    q := ExtractFilePath(ParamStr(0)) + 'PPDB.db .dump > ' + b; //here lies the problem 

    ShowMessage(p + ' ' + q); 
    fMain.UniConnection1.Close; 
    try 
    // Execute process and wait for it to terminate 
    FillChar(ps, SizeOf(ps), 0); 
    ps.cbSize := SizeOf(ps); 
    ps.Wnd := Handle; 
    ps.lpVerb := Nil; 
    ps.fMask := SEE_MASK_FLAG_NO_UI or SEE_MASK_NOCLOSEPROCESS; 
    ps.lpFile := PChar(p); 
    ps.lpParameters := PChar(q); 
    ps.nShow := SW_SHOWNORMAL; 

    if not ShellExecuteEx(@ps) then 
     RaiseLastOSError; 

    if ps.hProcess <> 0 then 
    begin 
     while WaitForSingleObject(ps.hProcess, 50) = WAIT_TIMEOUT do 
     application.ProcessMessages; 
     CloseHandle(ps.hProcess); 
    end; 
    finally 
    fMain.UniConnection1.Open; 
    end; 
end; 

Answer 1

> 기호는 명령 인터프리터 (cmd.exe를)이 파일에 실행 파일의 출력을 리디렉션하도록 지시합니다. 명령 해석기가 프로그램을 실행할 때 작동합니다. 그러나 여기에는 명령 해석기가 없습니다.

몇 가지 옵션이 있습니다. 아주 간단한 방법은 명령 해석자에게 작업을 요청하는 것입니다. 실행 파일로 cmd.exe을 사용하고 /C 인수를 전달한 다음 나머지 명령 행을 전달하십시오. 좋은 시민이 되려면 cmd.exe이 아닌 COMSPEC 환경 변수의 값을 사용하십시오.

더 큰 솔루션은 쉘을 버리는 것입니다. 대신 CreateProcess으로 직접 전화하십시오. 이것은 좀 더 복잡합니다. CreateFile을 호출하여 파일 핸들을 만들어야합니다. 해당 핸들을 CreateProcess으로 새 프로세스의 표준 출력 파일 핸들로 전달하십시오. CreateProcess에 전화 할 때 핸들이 상속되는지 확인해야합니다.

마지막으로 요점은 내가 대기 루프가 마음에 들지 않는다는 것입니다. 대기중인 메시지가 도착할 때까지 차단하려면 MsgWaitForMultipleObjects을 사용하는 것이 훨씬 낫습니다.