Delphi xe5 ShellExecute неанглийских символов

Question

У меня есть этот код:

var 
    sciezkaDysk : string; 
begin 
    sciezkaDysk :='/c ffmpeg.exe MORE_COMMANDS_HERE -f flv "E:\ół test\test.flv"' 
    ShellExecute(0, nil, 'cmd.exe', PWideChar(sciezkaDysk), '', SW_HIDE); 
end; 

проблема с именем каталога «Ol тест», когда имя каталога оленья кожа содержит не английские символы все хорошо работает. Пожалуйста помоги. Спасибо.

Answer 1

Проблема не в коде Delphi. Вполне возможно, что ваш исполняемый файл ffmpeg использует GetCommandLineA, а не GetCommandLineW, чтобы прочитать командную строку, и сбой преобразования из UTF-16 в ANSI.

Существуют различные варианты, но я скорее подозреваю, что самым легким будет указать рабочий каталог для нового процесса в каталог, содержащий файл. Таким образом ffmpeg не нужно видеть неприятные персонажи - ShellExecuteW с ними дело:

ShellExecute(
    0, 
    nil, 
    'ffmpeg.exe', 
    'MORE_COMMANDS_HERE -f flv test.flv', 
    'E:\ół test', 
    SW_HIDE 
); 

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