Zitat von
Luckie:
So, habe es ausgebessert.
Ich sehe schon.
Zitat:
Delphi-Quellcode:
PropVariant.vt := VT_LPWSTR;
PropVariant.pwszVal := PWideChar(InfoStr);
Ich hätte es auf PAnsiChar gelassen, weil:
Zitat von
MathiasSimmack:
So, noch ein Nachtrag meinerseits:
Zitat von
MathiasSimmack:
Dabei ist mir aufgefallen, dass die Funktion nichts anzeigt, wenn man die gewünschte Eigenschaft vorher mit Bordmitteln (sprich: Rechtsklick auf die Datei -> Eigenschaften -> Dateiinfos) setzt.
Mittlerweile weiß ich auch warum. Windows legt diese Einträge nicht als WideString sondern nur als String ab. Ändere ich die Funktion "GetFileSummaryInfo" entsprechend um, sehe ich das auch.
aus o.g. Beitrag, nur etwas weiter
unten.
Du darfst ruhig meine
Unit benutzen, Luckie.
