unit cde_dir;
{$mode delphi}
{$codepage UTF8}
interface
uses LazFileUtils, sysutils, windows, shlobj, ANBFormatString;
{stdcalls}
function GetCDEPath: String; STDCALL;
implementation
function GetCDEPath: String;
begin
SetCurrentDirUTF8(ExtractFilePath(ParamStr(0)));
SetCurrentDirUTF8('..\');
Result:= IncludeTrailingBackslash(GetCurrentDirUTF8);
end;
function GetSpecialPath(const CSIDL: Word): String;
var s: String;
begin
SetLength(s, MAX_PATH);
if not SHGetSpecialFolderPath(0, PChar(s), CSIDL, True) then
 s:= '';
Result:= s;
end;
function ExpandPath(const Path: String): String; STDCALL;
begin
Result:= SysToUTF8(FormatStr(Path,
                                  [pth_midir,
                                   pth_midata,
                                   pth_rnr,
                                   pth_rnrskins,
                                   pth_rnrudir,
                                   pth_windir,
                                   pth_windisc,
                                   pth_desktop,
                                   pth_personal,
                                   pth_fonts,
                                   pth_wappdata,
                                   pth_wtmp
                                  ],
                                  [
                                   GetInstallerDir,
                                   GetInstallerDataDir,
                                   GetRNRPath,
                                   GetSkinsPath,
                                   GetRNRUserDir,
                                   IncludeTrailingBackslash(GetSpecialPath(CSIDL_WINDOWS)),
                                   PChar(GetSpecialPath(CSIDL_WINDOWS))[0] + ':\',
                                   IncludeTrailingBackslash(GetSpecialPath(CSIDL_DESKTOP)),
                                   IncludeTrailingBackslash(GetSpecialPath(CSIDL_PERSONAL)),
                                   IncludeTrailingBackslash(GetSpecialPath(CSIDL_FONTS)),
                                   IncludeTrailingBackslash(GetSpecialPath(CSIDL_APPDATA)),
                                   GetWinTempDir
                                  ]));
end;

end.