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 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?

gruß

[Luckie]

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 von Luckie:

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;