paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 20:00:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

lclbase: TProcessUTF8.Parameters

Browse Source 
git-svn-id: trunk@39739 -
This commit is contained in:
mattias 2013-01-03 11:59:44 +00:00
parent dd107dd022
commit d519ada574
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lcl/utf8process.pp
View File

@ -41,12 +41,14 @@ type
FCurrentDirectoryUTF8: string; FCurrentDirectoryUTF8: string;
FDesktopUTF8: string; FDesktopUTF8: string;
FEnvironmentUTF8: TStrings; FEnvironmentUTF8: TStrings;
FParametersUTF8: TStrings;
procedure SetApplicationNameUTF8(const AValue: string); procedure SetApplicationNameUTF8(const AValue: string);
procedure SetCommandLineUTF8(const AValue: string); procedure SetCommandLineUTF8(const AValue: string);
procedure SetConsoleTitleUTF8(const AValue: string); procedure SetConsoleTitleUTF8(const AValue: string);
procedure SetCurrentDirectoryUTF8(const AValue: string); procedure SetCurrentDirectoryUTF8(const AValue: string);
procedure SetDesktopUTF8(const AValue: string); procedure SetDesktopUTF8(const AValue: string);
procedure SetEnvironmentUTF8(const AValue: TStrings); procedure SetEnvironmentUTF8(const AValue: TStrings);
procedure SetParametersUTF8(AValue: TStrings);
procedure UpdateEnvironment; procedure UpdateEnvironment;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
@ -58,6 +60,7 @@ type
property CurrentDirectory: string read FCurrentDirectoryUTF8 write SetCurrentDirectoryUTF8; property CurrentDirectory: string read FCurrentDirectoryUTF8 write SetCurrentDirectoryUTF8;
property Desktop: string read FDesktopUTF8 write SetDesktopUTF8; property Desktop: string read FDesktopUTF8 write SetDesktopUTF8;
property Environment: TStrings read FEnvironmentUTF8 write SetEnvironmentUTF8; property Environment: TStrings read FEnvironmentUTF8 write SetEnvironmentUTF8;
property Parameters: TStrings read FParametersUTF8 write SetParametersUTF8;
end; end;
procedure RunCmdFromPath(ProgramFilename, CmdLineParameters: string); procedure RunCmdFromPath(ProgramFilename, CmdLineParameters: string);
@ -113,6 +116,13 @@ begin
FEnvironmentUTF8.Assign(AValue); FEnvironmentUTF8.Assign(AValue);
end; end;
procedure TProcessUTF8.SetParametersUTF8(AValue: TStrings);
begin
if (FParametersUTF8=AValue)
or ((AValue<>nil) and FParametersUTF8.Equals(AValue)) then exit;
FParametersUTF8.Assign(AValue);
end;
procedure TProcessUTF8.UpdateEnvironment; procedure TProcessUTF8.UpdateEnvironment;
var var
sl: TStringList; sl: TStringList;
@ -123,6 +133,10 @@ begin
for i:=0 to FEnvironmentUTF8.Count-1 do for i:=0 to FEnvironmentUTF8.Count-1 do
sl.Add(UTF8ToSys(FEnvironmentUTF8[i])); sl.Add(UTF8ToSys(FEnvironmentUTF8[i]));
inherited Environment:=sl; inherited Environment:=sl;
sl.Clear;
for i:=0 to FParametersUTF8.Count-1 do
sl.Add(UTF8ToSys(FParametersUTF8[i]));
inherited Parameters:=sl;
finally finally
sl.Free; sl.Free;
end; end;
@ -132,11 +146,13 @@ constructor TProcessUTF8.Create(AOwner: TComponent);
begin begin
inherited Create(AOwner); inherited Create(AOwner);
FEnvironmentUTF8:=TStringList.Create; FEnvironmentUTF8:=TStringList.Create;
FParametersUTF8:=TStringList.Create;
end; end;
destructor TProcessUTF8.Destroy; destructor TProcessUTF8.Destroy;
begin begin
FreeAndNil(FEnvironmentUTF8); FreeAndNil(FEnvironmentUTF8);
FreeAndNil(FParametersUTF8);
inherited Destroy; inherited Destroy;
end; end;