16 lines
323 B
Plaintext
16 lines
323 B
Plaintext
unit cde_dir;
|
|
{$mode delphi}
|
|
{$codepage UTF8}
|
|
interface
|
|
uses LazFileUtils, sysutils;
|
|
{stdcalls}
|
|
function GetCDEPath: String; STDCALL;
|
|
implementation
|
|
function GetCDEPath: String;
|
|
begin
|
|
SetCurrentDirUTF8(ExtractFilePath(ParamStr(0)));
|
|
SetCurrentDirUTF8('..\');
|
|
Result:= IncludeTrailingBackslash(GetCurrentDirUTF8);
|
|
end;
|
|
end.
|