paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-10 18:47:24 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Improve error messages on calling external programs. Issue #32624, patch from C Western.

Browse Source 
git-svn-id: trunk@56222 -
This commit is contained in:
juha 2017-10-29 10:01:55 +00:00
parent ff5125737c
commit 9870f7bb1a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/exttools.pas
View File

@ -718,7 +718,7 @@ begin
end else begin
ExeFile:=FindDefaultExecutablePath(Process.Executable,GetCurrentDirUTF8);
if ExeFile='' then begin
ErrorMessage:=Format(lisCanNotFindExecutable, [ExeFile]);
ErrorMessage:=Format(lisCanNotFindExecutable, [Process.Executable]);
CheckError;
exit;
end;
@ -726,17 +726,17 @@ begin
end;
end;
if not FileExistsUTF8(Process.Executable) then begin
ErrorMessage:=Format(lisMissingExecutable, [ExeFile]);
ErrorMessage:=Format(lisMissingExecutable, [Process.Executable]);
CheckError;
exit;
end;
if DirectoryExistsUTF8(Process.Executable) then begin
ErrorMessage:=Format(lisExecutableIsADirectory, [ExeFile]);
ErrorMessage:=Format(lisExecutableIsADirectory, [Process.Executable]);
CheckError;
exit;
end;
if not FileIsExecutable(Process.Executable) then begin
ErrorMessage:=Format(lisExecutableLacksThePermissionToRun, [ExeFile]);
ErrorMessage:=Format(lisExecutableLacksThePermissionToRun, [Process.Executable]);
CheckError;
exit;
end;