Langer Dateiname bzw. langer PathName in kurzen umwandeln

[Mackhack]

Hi,

ich kanns einfach nirgends finden hier aber ich weis es gibts schon 100e male hier. Wie kann ich den langen Dateinamen oder sogar besser einen zu langen Path in einen kurzen umwandeln?

Danke!

[Sunlight7]

Du meinst in ein 8+3 Format?

Dann mit GetShortPathName;

[Mackhack]

Wir kommen der Sache schon naeher. Ich suchte nach ShortPathName

Hm gibts auch ne Funktion die sowas erzeugt? c:\Test\...\FileName.xxx?

[Sunlight7]

Ich denke mal, das es die sicher gibt, aber weil ich nicht weiß, wie die heißt habe ich mir mal selber ein Makro geschrieben

[Luckie]

Zum Anzeigen ja. Entwedermit Drawtext und dem Flag DT_PATH_ELLIPSIS oder mit einem WinAPI Static-Control und dem Stil SS_PATHELLIPSIS. Könnte auch eventuell mit der Komponente TStaticText und SetWindowLong funktionieren.

[Hawkeye219]

Hallo Mackhack,

in der Unit FileCtrl gibt es die Funktion MinimizeName.

Gruß Hawkeye

[Hobby-Programmierer]

Moin ...,
zumindest bei D6 ist die Hilfe sehr zurückhaltend, deshalb kurzes Bsp.

Delphi-Quellcode:

uses FileCtrl;

var Path: string;
begin
  Path:='c:\windows\system32\config\systemprofile\ntuser.dat';
  Label.Caption:=MinimizeName(Path, Label.Canvas, 50);

[Mackhack]

MinimizeName ist genau das was ich brauche. Danke euch.

[Mackhack]

Hi,

gibts jetzt auch ne Moeglichkeit dass man den Pfad der im Prinzip nur aus c:\..\Appname.exe besteht wieder in seinen Vollstaendigen Namen zurueckzufuehren um ihn in einer xml-file zu speichern? Ginge es mit GetLongPathName?

Dank euch!

[Sunlight7]

Sofern ich das richtig verstehe, dann mit ExpandFileName, aber die Funktion macht nix anderes, als das aktuelle Verzeichnis als Pfad hinzuzufügen.

Andererseits, wozu?
Du hast doch den originalen Dateinamen, den Du nach MinimizeName übergibst
Speicher diesen, und verwende ihn wieder.