delphi 判断两个文件路径是否相同

function FileSamePath(const FileName, TestPath: String): boolean;

var

  s1, s2: String;

begin

  result := FALSE;

  s1 := ExtractFilePath(FileName);

  s2 := ExtractFilePath(TestPath);

  if (s1 = s2) then

    result := TRUE

  else if (s1 = '') then

    result := FileExists(s2 + FileName);

end;