¼¸¸öºÍµ±Ç°Â·¾¶Ïà¹ØµÄк¯Êý

GetLocaleDirectory();
GetLocaleFile();
LocaleDirectoryExists();
LocaleFileExists();

uses IOUtils;

procedure TForm1.FormCreate(Sender: TObject);
var
  p,f: string;
  b: Boolean;
begin
  {ÉèÖÃÓë»ñÈ¡µ±Ç°Â·¾¶}
  SetCurrentDir('C:\Temp\');
  ShowMessage(GetCurrentDir);         { C:\Temp }

  {»ñÈ¡µ±Ç°Ä¿Â¼ÏÂ×ÓĿ¼µÄȫ·¾¶}
  p := GetLocaleDirectory('ABC');
  ShowMessage(p);                     { C:\Temp\ABC\ }

  {»ñÈ¡µ±Ç°Ä¿Â¼ÏÂÎļþµÄȫ·¾¶}
  f := GetLocaleFile('X.txt');
  ShowMessage(f);                     { C:\Temp\X.txt }
  f := GetLocaleFile('ABC\X.txt');
  ShowMessage(f);                     { C:\Temp\ABC\X.txt }

  {IOUtils Ï嵀 TPath Ò²ÓÐÀàËƹ¦ÄÜ}
  f := TPath.GetFullPath('X.txt');
  ShowMessage(f);                     { C:\Temp\X.txt }
  f := TPath.GetFullPath('ABC\X.txt');
  ShowMessage(f);                     { C:\Temp\ABC\X.txt }

  {Åжϵ±Ç°Îļþ¼ÐϵÄÎļþ»ò×ÓÎļþ¼ÐÊÇ·ñ´æÔÚ}
  b := LocaleDirectoryExists('ABC'); //ÕâÏ൱ÓÚ: DirectoryExists(GetCurrentDir + '\ABC');
  b := LocaleFileExists('X.txt');    //ÕâÏ൱ÓÚ: FileExists(GetCurrentDir + '\X.txt');
end;