paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-29 11:22:50 +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:='';
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);
var
OldProgramFilename: String;
@ -167,16 +172,20 @@ var
begin
OldProgramFilename:=ProgramFilename;
ProgramFilename:=FindFilenameOfCmd(ProgramFilename);
if ProgramFilename='' then
raise EFOpenError.Create(Format(lisProgramFileNotFound, [OldProgramFilename]
));
if not FileIsExecutable(ProgramFilename) then
raise EFOpenError.Create(Format(lisCanNotExecute, [ProgramFilename]));
// run
BrowserProcess := TProcessUTF8.Create(nil);
try
// Encloses the executable with "" if it's name has spaces
if Pos(' ',ProgramFilename)>0 then
ProgramFilename:='"'+ProgramFilename+'"';
BrowserProcess.CommandLine := ProgramFilename;
if CmdLineParameters<>'' then
BrowserProcess.CommandLine := BrowserProcess.CommandLine + ' ' + CmdLineParameters;