Hallo,
vielen Dank für eure Hilfe. Die "DOS-Schreibweise" habe ich mit GetLongPathName gelöst bekommen. Ebenso die Problematik mit Groß- und Kleinschreibung. Der Code sieht daher aktuell so aus:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
| function ArePathTheSame(const Path1, Path2: string): Boolean;
var
Temp1, Temp2: string;
begin
Temp1 := GetLongFileName(Path1);
Temp1 := ExcludeTrailingPathDelimiter(Temp1);
Temp1 := AnsiUpperCaseFileName(Temp1);
Temp2 := GetLongFileName(Path2);
Temp2 := ExcludeTrailingPathDelimiter(Temp2);
Temp2 := AnsiUpperCaseFileName(Temp2);
Result := (Temp1 = Temp2);
end; |
Als letztes Problem bleibt noch die "Vista-MultiLanguage-Problematik". Mir ist komplett bewusst, was damit gemeint ist, allerdings nützt mir das nicht viel
Ich bräuchte ja eine Funktion "MacheAusÜbersetzungsStringDasKorrekteVerzeichnis". Da habe ich aber bisher nichts gefunden. Ich kann auch nicht pauschal "Programme => Program Files" umwandeln:
- es gibt auch andere Verzeichnisse (Program Data sei hier nur erwähnt)
- ich kann nicht sicherstellen, dass alle "Deutsch" als Sprache eingerichtet haben
=> es muss universell funktionieren.
Bin für jeden Tipp dankbar
Gruß
Stefan
Moderiert von 
Narses: Code- durch Delphi-Tags ersetzt
VISTA C:\PROGRAM FILES C:\PROGRAMME
