paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-21 03:59:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

startlazarus: cleanup

Browse Source 
git-svn-id: trunk@16786 -
This commit is contained in:
vincents 2008-09-29 08:17:33 +00:00
parent 4486cb84cb
commit ee01961343
1 changed files with 0 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/lazarusmanager.pas
View File

@ -111,7 +111,6 @@ type
FLazarusPID: Integer;
FCmdLineParams: TStrings;
FShowSplashOption: boolean;
function GetLazarusPath(const FileName: string): string;
function RenameLazarusExecutable(const Directory: string): TModalResult;
procedure LazarusProcessStart(Sender: TObject);
procedure WaitForLazarus;
@ -132,18 +131,6 @@ begin
inherited Destroy;
end;
function TLazarusManager.GetLazarusPath(const FileName: string) : string;
begin
// first try in the bin dir of the primary config directory
Result := AppendPathDelim(GetPrimaryConfigPath) + 'bin' + PathDelim +
FileName + GetExeExt;
// if no lazarus executable exists in that directory, try the same directory
// as the startlazarus executable
if not FileExistsUTF8(Result) then
Result := AppendPathDelim(ExtractFilePath(ExpandFileNameUTF8(ParamStrUTF8(0)))) +
FileName + GetExeExt;
end;
function TLazarusManager.RenameLazarusExecutable(const Directory: string
): TModalResult;
var