mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-21 09:58:13 +00:00
FIX: Use TProcess instead of TProcessUTF8 because we manually converting encoding
This commit is contained in:
parent
13c524c9a1
commit
0bc94a6760
1 changed files with 4 additions and 4 deletions
|
|
@ -5,7 +5,7 @@ unit un_process;
|
|||
interface
|
||||
|
||||
uses
|
||||
Process, UTF8Process, SysUtils, Math;
|
||||
Process, SysUtils, Math;
|
||||
|
||||
type
|
||||
|
||||
|
|
@ -15,7 +15,7 @@ type
|
|||
|
||||
TExProcess = class
|
||||
protected
|
||||
p: TProcessUTF8;
|
||||
p: TProcess;
|
||||
s: string;
|
||||
FStop:boolean;
|
||||
function _GetExitStatus(): integer;
|
||||
|
|
@ -27,7 +27,7 @@ type
|
|||
procedure SetCmdLine(commandline:string);
|
||||
destructor Destroy;
|
||||
|
||||
property Process: TProcessUTF8 read p;
|
||||
property Process: TProcess read p;
|
||||
property ExitStatus: integer read _GetExitStatus;
|
||||
end;
|
||||
|
||||
|
|
@ -49,7 +49,7 @@ end;
|
|||
constructor TExProcess.Create(commandline: string='');
|
||||
begin
|
||||
s:= '';
|
||||
p:= TProcessUTF8.Create(nil);
|
||||
p:= TProcess.Create(nil);
|
||||
p.CommandLine:=commandline;
|
||||
p.Options:=[poUsePipes,poNoConsole];
|
||||
end;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue