Проблема с определением пути bat-ником

[Fakov]

Есть код:

procedure TForm1.FormDestroy(Sender: TObject);
var f: textFile;
  FileName: string;
begin
  FileName := changefileext(paramstr(0), '.bat');
  assignFile(f, FileName);
  rewrite(f);
  writeln(f, ':1');
  writeln(f, format('Erase "%s"', [paramstr(0)]));
  writeln(f, format('If exist "%s" Goto 1', [paramstr(0)]));
  writeln(f, format('Erase "%s"', [FileName]));
  closefile(f);
  ShellExecute(Handle, 'Open', PChar(FileName), nil, nil, sw_hide);
end;

Задача кода - при закрытии программы удалять её exeшник.

Проблема: задача кода выполняется наполовину. ЕХЕ файл удаляется, только если он расположен по адресу, не содержащему русские названия.

Например если ехе будет по адресу C:\homewrk\unit1.exe - то при закрытии ехе удалится.

А если ехе будет по адресу C:\homewrk\Вася\unit1.exe - то ехе файл не удалится.

Как решить эту проблему? (как исправить код вверху, чтобы создваемый батник удалял ехе независимо от его пути)

[Somebody]

Проще всего не использовать полный путь.

[Fakov]

возможно. но как?)))

[Somebody]

%~d0
cd %~p0
1:
del unit1.exe
if exist unit1.exe goto 1
del %0

[Fakov]

эм. но если Unit1.exe переименуют например в 1Unit.exe???

Плучается батник не найдет его и не сможет удалить. Как этого избежать?

[Fakov]

все, проблема полностью решена, возможность переименования тоже исключена.

[Serge_Bliznykov]

в BAT-никах русские буквы в кодировке DOS (она же 866. она же OEM), Delphi (как Win32 программа работает с кодировкой, установленной в локали - для русской локали это кодировка Win -1251, она же - ANSI).
нужно было всего навсего перекодировать ANSI -> OEM и всех делов!