Nur CD/DVD ROM Laufwerke auslesen..

[NicoDE]

Da es keine Unicode-Version von SysUtils.StrLen gibt, sollte man in meinem Beispiel          CurrentDrive := LPTSTR(@CurrentDrive[StrLen(CurrentDrive) + 1]); durch

Delphi-Quellcode:

          while (CurrentDrive[0] <> #0) do
            CurrentDrive := CharNext(CurrentDrive);
          CurrentDrive := LPTSTR(
            Cardinal(CurrentDrive) + SizeOf(CurrentDrive[0]));

ersetzen.

Da die Standard-RTL von Delphi ohnehin keine brauchare Unicode-Unterstützung bietet, ist dies eher kosmetischer Natur...