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.