Wie funktioniert Ansi2OEM mit Unicode

[heri]

habs "logischerweise" so gemacht:

Delphi-Quellcode:

  function AnsiToConCP( AString: String ): AnsiString;
  var
    lResult: AnsiString;
  Begin

    SetLength( lResult, length( AString ) );

    {$IFDEF UNICODE}

    CharToOEM( PWideChar( AString ), PAnsiChar( lResult ) );

    {$ELSE}

    CharToOEM( PChar( AString ), PChar( lResult ) );

    {$ENDIF}

    Result := lResult;

  End;