Initial

Исходный код версии 2.0

sources/shared_units/__history/cde_dir.pas;1

@@ -0,0 +1,15 @@
+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.