mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-02 10:43:41 +02:00
51 lines
1.7 KiB
PHP
51 lines
1.7 KiB
PHP
{***************************************************************************
|
|
lazconf.inc
|
|
***************************************************************************}
|
|
{---------------------------------------------------------------------------
|
|
getPrimaryConfigPath function
|
|
---------------------------------------------------------------------------}
|
|
function getPrimaryConfigPath: String;
|
|
begin
|
|
{ Return the primary config directory }
|
|
Result := ExtractFilePath(Paramstr(0));
|
|
end;
|
|
|
|
{---------------------------------------------------------------------------
|
|
getSecondaryConfigPath function
|
|
---------------------------------------------------------------------------}
|
|
function getSecondaryConfigPath: String;
|
|
begin
|
|
{ Return the secondary config directory. This one is checked
|
|
if the primary does not exist }
|
|
|
|
{ This function might need some work because on WinNT the
|
|
the path is called something different on almost every
|
|
version of Windows. Probably can use the Windows API to
|
|
get the system path. }
|
|
Result := '\windows\system';
|
|
end;
|
|
|
|
{---------------------------------------------------------------------------
|
|
createPrimaryConfigPath procedure
|
|
---------------------------------------------------------------------------}
|
|
procedure createPrimaryConfigPath;
|
|
begin
|
|
{ This function does not need to do anything on Windows
|
|
because the primary config path already exists. It is
|
|
the path that Lazarus is installed to. }
|
|
end;
|
|
|
|
{
|
|
$Log$
|
|
Revision 1.1 2000/07/13 10:28:22 michael
|
|
+ Initial import
|
|
|
|
Revision 1.1 2000/04/21 05:12:42 lazarus
|
|
Added lazconf.pp file.
|
|
Added include/linux and include/win32 directories.
|
|
Added lazconf.inc files for both linux and win32.
|
|
|
|
|
|
}
|
|
|