Konvertieren Sie lange Dateinamen in der 8.3-Format.
Autor: ANDRE V.D MERWE
> Jemand hat hatte etwas Glück GetShortPathName machen
> zu arbeiten? Es soll einen langen Dateipfad konvertieren
> Name für eine DOS 8.3-Struktur... aber es hält zurückgeben
> den gleichen langen Dateinamen ich übergebe.
Versuchen Sie dieses, es war für mich...
Funktion ToShortPath (sPath: String): string;
var
iLen: Ganzzahl;
sShort: string;
SzShort: PChar;
beginnen
iLen: = Länge (sPath);
SzShort: = StrAlloc (iLen);
GetShortPathName (PChar(sPath), SzShort, iLen);
sShort: = SzShort;
StrDispose (SzShort);
Ergebnis: = sShort;
Ende;
Langer Dateiname 8.3
Langer Dateiname 8.3 : Mehreren tausend Tipps, um Ihr Leben einfacher machen.
Konvertieren Sie lange Dateinamen in der 8.3-Format.
Autor: ANDRE V.D MERWE
> Jemand hat hatte etwas Glück GetShortPathName machen
> zu arbeiten? Es soll einen langen Dateipfad konvertieren
> Name für eine DOS 8.3-Struktur... aber es hält zurückgeben
> den gleichen langen Dateinamen ich übergebe.
Versuchen Sie dieses, es war für mich...
Funktion ToShortPath (sPath: String): string;
var
iLen: Ganzzahl;
sShort: string;
SzShort: PChar;
beginnen
iLen: = Länge (sPath);
SzShort: = StrAlloc (iLen);
GetShortPathName (PChar(sPath), SzShort, iLen);
sShort: = SzShort;
StrDispose (SzShort);
Ergebnis: = sShort;
Ende;