Unicode-Umwandlung

[blackdrake]

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