Verzeichnis mit Unicode-Dateinamen rekursiv abarbeiten

[Bummi]

Delphi-Quellcode:

uses
  SysUtils,Windows;
  Function Get4Oem(s:String):AnsiString;
    begin
      SetLength(Result,Length(s));
      CharToOem(Pchar(s),PAnsiChar(Result));
    end;
begin
  try
     Writeln('Grönemayer');

     Writeln(Get4Oem('Grönemayer'));
     Readln;
    { TODO -oUser -cConsole Main : Code hier einfügen }
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.