AssignFile & Unicode-Dateinamen

[Dunkel]

Hallo zusammen!

Wie kann man eine Datei mit einem Unicode-Dateinamen erstellen/öffnen/löschen?

Konkret geht es mir um folgende Prozedur welche ich entsprechend umschreiben möchte

Delphi-Quellcode:

uses ..., System, zLib, ...;

procedure CompressFile(FileName: string);
var
  f: File of byte;
  pIn,pOut: Pointer;
  sizeRead,sizeWrite: integer;
begin
  pIn := nil;
  pOut := nil;
  assignfile(f, FileName);
  reset(f);
  try
    getmem(pIn, FileSize(f));
    BlockRead(f, pIn^, FileSize(f), sizeRead);
    CompressBuf(pIn, sizeRead, pOut, sizeWrite);
    ReWrite(f);
    BlockWrite(f, pOut^, sizeWrite);
  finally
    if pIn <> nil then freemem(pIn);
    if pOut <> nil then freemem(pOut);
    CloseFile(f);
  end;
end;

AssignFile erwartet als Parameter eine Dateivariable und einen Dateinamen, leider nur als String.

In den Tiefen der Win32-API wird es doch sicherlich was brauchbares geben, leider habe ich nichts gefunden.