Код: Выделить всё
function convert_file_name(source:string): string;
var target:string;
begin
target:=source;
if Pos(' ',source)>0 then
begin
target:='"';
target:=target+source+'"';
end;
convert_file_name:=target;
end;
function execute_program(executable:string;argument:string):Integer;
var parametrs:string;
var code:Integer;
begin
parametrs:=UTF8ToSys(argument);
try
code:=ExecuteProcess(executable,parametrs,[]);
except
On EOSError do code:=-1;
end;
execute_program:=code;
end;В 2.6.x работает корректно даже при наличии кирилицы в путях. В третьем fpc проги не запускает если есть кирилица в пути
