function OnReplaceFilenameLeftToRight(const FileName: UnicodeString; const isFolder: Boolean):UnicodeString; var i:Integer; w:WideChar; begin Result:=FileName; for i:=1 to Length(Result) do begin w:=Result[i]; if ord(w)<127 then case w of '/':Result[i]:=#$2215; ':':Result[i]:=#$A789; '\':Result[i]:=#$FE8D; '?':Result[i]:=#$0241; '|':Result[i]:=#$01C0; '<':Result[i]:=#$2039; '>':Result[i]:=#$203A; '"':Result[i]:=#$2033; '*':Result[i]:=#$066D; end; end; end; function OnReplaceFilenameRightToLeft(const FileName: UnicodeString; const isFolder: Boolean):UnicodeString; var i:Integer; w:WideChar; begin Result:=FileName; for i:=1 to Length(Result) do begin w:=Result[i]; if ord(w)>127 then case w of #$2215:Result[i]:='/'; #$A789:Result[i]:=':'; #$FE8D:Result[i]:='\'; #$0241:Result[i]:='?'; #$01C0:Result[i]:='|'; #$2039:Result[i]:='<'; #$203A:Result[i]:='>'; #$2033:Result[i]:='"'; #$066D:Result[i]:='*'; end; end; end;