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

IDE: search lazarus directory via binaries lazarus-ide and lazarus

Browse Source 
git-svn-id: trunk@30030 -
This commit is contained in:
mattias 2011-03-27 09:17:36 +00:00
parent 61b1c28e3b
commit f1a7c00a1c
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ide/initialsetupdlgs.pas
View File

@ -281,6 +281,16 @@ function SearchLazarusDirectoryCandidates(StopIfFits: boolean): TObjectList;
Result:=(Item.Quality=sddqCompatible) and StopIfFits; Result:=(Item.Quality=sddqCompatible) and StopIfFits;
end; end;
function CheckViaExe(Filename: string; var List: TObjectList): boolean;
begin
Result:=false;
Filename:=FindDefaultExecutablePath(Filename);
if Filename='' then exit;
Filename:=ReadAllLinks(Filename,false);
if Filename='' then exit;
Result:=CheckDir(ExtractFilePath(ExpandFileNameUTF8(Filename)),List);
end;
var var
Dir: String; Dir: String;
ResolvedDir: String; ResolvedDir: String;
@ -323,8 +333,10 @@ begin
for i:=0 to Dirs.Count-1 do for i:=0 to Dirs.Count-1 do
if CheckDir(Dirs[i],Result) then exit; if CheckDir(Dirs[i],Result) then exit;
// search in PATH // search lazarus-ide and lazarus in PATH, then follow the links,
// which will lead to the lazarus directory
if CheckViaExe('lazarus-ide'+GetExecutableExt,Result) then exit;
if CheckViaExe('lazarus'+GetExecutableExt,Result) then exit;
end; end;
procedure SetupLazarusDirectory; procedure SetupLazarusDirectory;