процедурка чесно перерисованая из ExecuteProcess
- Код: Выделить всё
procedure ExecuteString(const vStr: string);
var cmd:string;
param: AnsiString;
param2 : ppchar;
var sp:Integer;
begin
sp:= Pos(' ',vStr);
if sp > 0 then
begin
cmd := Copy(vStr,1,sp-1);
param := Copy(vStr,sp+1,Length(vStr));
WriteLn('cmd "',cmd,'"');
WriteLn('param "',param,'"');
param2:=nil;
UniqueString(param);
param2:=StringtoPPChar(param,1);
param2^:=pchar(cmd);
FpExecV(pchar(cmd),param2);
end;
end;
запускаю
- Код: Выделить всё
ExecuteString('/bin/ls -li /');
все запускается, отрабатывает нормально но после консоль начинает глючить =( что не так ?