Hallo.
Ich bin dabei, eine Funktion zu schreiben, die den Originalnamen einer Papierkorb-Datei herausfindet. Im Endeffekt möchte ich ein Element wiederherstellen und dabei eigene Schritte durchführen (keine
API-Direktfunktion). Dafür wird die Recycler\...\INFO2 Datei ausgelesen. Der Dateiname liegt im
Unicode vor. Nun möchte ich, sofern die Datei wiederhergestellt wird, dass diese auch im
Unicode wiederhergestellt wird. Wie stelle ich das an?
Als erstes brauche ich eine Funktion, die
ANSI in
Unicode umwandelt. Ich habe unter
http://www.swissdelphicenter.ch/de/showcode.php?id=1692 was gefunden, kann damit aber nichts anfangen:
Delphi-Quellcode:
showmessage(StringToWideString(#$53#$30#$8C#$30#$6F#$30#$5E#$97#$38, 0));
// sollte (...) irgendwelche japanischen Zeichen von sich geben
Und zweitens sollte renamefile()
Unicode verstehen können, sodass die Datei auch im
Unicode wiederhergestellt wird.
Gruß
blackdrake