процедурка чесно перерисованая из 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 /');
все запускается, отрабатывает нормально но после консоль начинает глючить =( что не так ?




 
