Kurze in lange Dateinamen umwandeln

[Diamondback2007]

Hallo zusammen,

ich suche eine funktion mit der ich kurze in lange dateinamen umwandeln kann.
die suche hat mir zwar die funktion

Delphi-Quellcode:

GetLongPathName

gegeben,
aber diese funktioniert bei meinem D2007 nicht. oder welche unit muss ich denn einbinden?
ShellApi scheint es nicht zusein...
wäre über hilfe sehr erfreut :)

gruß

[idontwantaname]

Wie möchtest du denn die verloren gegangen Informationen, die in der Überlänge des Dateinamens waren, wiederherstellen?

[MrKnogge]

So wie Windows es auch macht.

@Diamondback2007
Hast du mal "GetLongPathName" in die Hilfe eingegeben ?
Meine OH streikt momentan :|

Gruß

[Diamondback2007]

naja in einem kurzen dateinamen sind doch (fast) alle informationen enthalten ;)
um konkret zu werden: ich lese einen dateinamen aus der registry aus und z.b. bei office ist dieser leider kurz, d.h. ich möchte den langen davon haben.

und zum thema GetLongPathName geht nicht wollte ich damit sagen, dass delphi diese funktion nicht kennt.

gruß

[Diamondback2007]

ist in "WIndows" deklariert... klappt aber trotzdem nicht... :(

gruß

[MrKnogge]

Die Unit "System" stellt eine funktion ToLongPath bereit.

Gruß

[Diamondback2007]

klappt auch nicht...
er erkennt die ganzen sachen nicht... :(
ist mein delphi etwa kaputt? :cry:

gruß

[Luckie]

Zitat:

Zitat von Diamondback2007

naja in einem kurzen dateinamen sind doch (fast) alle informationen enthalten ;)

Nein, wenn dann sind diese Informationen im Dateisystem hinterlegt. Aber warum willst du den langen Dateinamen haben? Warum tut es nicht auch der kurze?

[Diamondback2007]

Zitat:

Zitat von Luckie

Zitat:

Zitat von Diamondback2007

naja in einem kurzen dateinamen sind doch (fast) alle informationen enthalten ;)

Nein, wenn dann sind diese Informationen im Dateisystem hinterlegt. Aber warum willst du den langen Dateinamen haben? Warum tut es nicht auch der kurze?

ich lese aus der registry viele pfade un liste diese auf. dann werden diese einheitlich weierverarbeitet. unter anderem wird damit auch nach weiteren werten gesucht-->lange pfade benötigt.
weiterhin möchte ich einen einheitlichen stadard der pfade.

gruß

EDIT: das mit dem dateisystem meinte ich ja mit "(fast)" ;)

[HLukas]

Siehe die Hilfe zu TSearchRec und das folgende Beispiel.

Typ: TSearchRec;
FindData: TWin32FindData;
FindData enthält zusätzliche Informationen wie Erstellungszeit, Zeit des letzten Zugriffs und den langen sowie kurzen Dateinamen.

procedure TForm1.Button1Click(Sender: TObject);
var SR : TSearchRec;
begin
FindFirst('c:\Dieser Name ist lang.txt',faAnyFile,SR);
edit1.Text := SR.Name;
edit2.Text := SR.FindData.cFileName;
edit3.Text := SR.FindData.cAlternateFileName;
FindClose(SR);
end;