forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

exeInSysPath uses exeFullName

This commit is contained in:
Basile Burg 2015-06-04 15:54:14 +02:00
parent d59d85f750
commit 1a0c006e06
1 changed files with 1 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/ce_common.pas
View File

@ -690,22 +690,8 @@ begin
end; end;
function exeInSysPath(anExeName: string): boolean; function exeInSysPath(anExeName: string): boolean;
var
ext: string;
env: string;
begin begin
ext := extractFileExt(anExeName); exit(exeFullName(anExeName) <> '');
if ext <> exeExt then
anExeName += exeExt;
if FileExists(anExeName) then
exit(true)
else
begin
env := sysutils.GetEnvironmentVariable('PATH');
if Application <> nil then
env += PathSeparator + ExtractFileDir(ExtractFilePath(application.ExeName));
exit(ExeSearch(anExeName, env) <> '');
end;
end; end;
function exeFullName(anExeName: string): string; function exeFullName(anExeName: string): string;