Probleme mit batch dateien und ä, ö, ü

[jaenicke]

Also bei mir funktionieren diese beiden Methoden problemlos:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  dir, album, FileName: String;
begin
  dir := 'N:\';
  album := 'Attero Dominatus';
  FileName := 'Sabaton - Metal Crüe.mp3';
  if not DirectoryExists (dir + album) then
    CreateDir (dir + album);
  RenameFile (dir + FileName, dir + album + '\' + filename);
end;

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  testoem: String;
  test: TextFile;
begin
  SetLength(testoem, 81);
  AnsiToOEM('move "N:\Sabaton - Metal Crüe.mp3" "N:\Attero Dominatus\Sabaton - Metal Crüe.mp3"',
    PChar(testoem));
  AssignFile(test, 'b:\test.bat');
  Rewrite(test);
  WriteLn(test, testoem);
  CloseFile(test);
  ShellExecute(Handle, 'open', 'b:\test.bat', '', '', SW_SHOWNORMAL);
end;