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

Adds some comments to RunCmdFromPath

Browse Source 
git-svn-id: trunk@25496 -
This commit is contained in:
sekelsenmat 2010-05-18 09:07:59 +00:00
parent 0448deb6c3
commit d0acf76b12
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/utf8process.pp
View File

@ -160,6 +160,11 @@ begin
Result:=''; Result:='';
end; end;
// Runs a short command which should point to an executable in
// the environment PATH
// For example: ProgramFilename=ls CmdLineParameters=-l /home
// Will locate and execute the file /bin/ls
// If the command isn't found, an exception will be raised
procedure RunCmdFromPath(ProgramFilename, CmdLineParameters: string); procedure RunCmdFromPath(ProgramFilename, CmdLineParameters: string);
var var
OldProgramFilename: String; OldProgramFilename: String;
@ -167,16 +172,20 @@ var
begin begin
OldProgramFilename:=ProgramFilename; OldProgramFilename:=ProgramFilename;
ProgramFilename:=FindFilenameOfCmd(ProgramFilename); ProgramFilename:=FindFilenameOfCmd(ProgramFilename);
if ProgramFilename='' then if ProgramFilename='' then
raise EFOpenError.Create(Format(lisProgramFileNotFound, [OldProgramFilename] raise EFOpenError.Create(Format(lisProgramFileNotFound, [OldProgramFilename]
)); ));
if not FileIsExecutable(ProgramFilename) then if not FileIsExecutable(ProgramFilename) then
raise EFOpenError.Create(Format(lisCanNotExecute, [ProgramFilename])); raise EFOpenError.Create(Format(lisCanNotExecute, [ProgramFilename]));
// run // run
BrowserProcess := TProcessUTF8.Create(nil); BrowserProcess := TProcessUTF8.Create(nil);
try try
// Encloses the executable with "" if it's name has spaces
if Pos(' ',ProgramFilename)>0 then if Pos(' ',ProgramFilename)>0 then
ProgramFilename:='"'+ProgramFilename+'"'; ProgramFilename:='"'+ProgramFilename+'"';
BrowserProcess.CommandLine := ProgramFilename; BrowserProcess.CommandLine := ProgramFilename;
if CmdLineParameters<>'' then if CmdLineParameters<>'' then
BrowserProcess.CommandLine := BrowserProcess.CommandLine + ' ' + CmdLineParameters; BrowserProcess.CommandLine := BrowserProcess.CommandLine + ' ' + CmdLineParameters;