Dateiumbennen mit "Sonderzeichen"?

[Sprint]

Zitat von Sharky:

Der Standard-OpenDialog liefert nämlich schon den Filename fehlerhaft zurück.

Delphi-Quellcode:

uses
  CommDlg;

Delphi-Quellcode:

var
  OFN: TOpenFilenameW;
  FileName: array[0..MAX_PATH * 2] of WideChar;
  OldChar: WideString;
  NewChar: WideString;
  NewFileName: WideString;
begin

  FillChar(OFN, SizeOf(TOpenFilenameW), 0);
  FillChar(FileName, SizeOf(FileName), 0);

  OFN.lStructSize := SizeOf(TOpenFilenameW);
  OFN.hWndOwner := Handle;
  OFN.hInstance := 0;
  OFN.lpstrFile := @FileName;
  OFN.nMaxFile := MAX_PATH;

  if GetOpenFileNameW(OFN) then
  begin
    OldChar := 'Š';
    NewChar := 'S';
    // StringReplace würde ich nicht benutzen
    // NewFileName := StringReplace(FileName, OldChar, NewChar, [rfReplaceAll]);
    // if not MoveFileW(FileName, PWideChar(NewFileName)) then
    //   RaiseLastOSError;
  end;

end;