Избавиться от модулей SysUtils и Classes

[RageGod]

Хочется после определенных действий удалять свой .exe
Имеется такой код, который стабильно работает:

procedure SelfDelete;
var
  Bat : TStringList;
  Self : String;
  sPath : String;
begin
  GetDir(0,sPath);
  Self := ExtractFileName(Application.ExeName);
  Bat := TStringList.Create;
  Bat.Add(':Repeat');
  Bat.Add('del '+Self);
  Bat.Add('if exist '+Self+' goto Repeat');
  Bat.Add('del Temp.bat');
  Bat.SaveToFile(sPath+'\Temp.bat');
  ShellExecute(Form1.Handle,nil,PAnsiChar(sPath+'\Temp.bat'),nil,nil,SW_HIDE);
  Application.Terminate;
end;

Пробовал переписать без использования моделей, но почему-то не удаляло файл, если в пути к файлу присутствовали юникод символы.
помогите переделать

[Serge_Bliznykov]

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

И чтобы избавится от проблем с уникодом, думаю, что получение короткого имени файла поможет.

А при чём здесь модули SysUtils и Classes ? Чем они Вам не угодили?!

[RageGod]

Сообщение от Serge_Bliznykov

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

И чтобы избавится от проблем с уникодом, думаю, что получение короткого имени файла поможет.

А при чём здесь модули SysUtils и Classes ? Чем они Вам не угодили?!

Спасибо.
Но тот метод мне не подходит, т.к все таки пользователь может переименовать файл...

Модули при том, что ограничен в размерах. Требуется небольшое приложение, вот и все.

[Yurk@]

модули SysUtils и Classes на размер файла не сильно то и влияют ... а вот попробуй удалить Forms
а если нужен небольшой размер - пользуйся упаковщиками (UPX и т.п.)
и еще по коду: почему TStringList ? ... обычного TextFile недостаточно ?

[RageGod]

Сообщение от Yurk@

модули SysUtils и Classes на размер файла не сильно то и влияют ... а вот попробуй удалить Forms
а если нужен небольшой размер - пользуйся упаковщиками (UPX и т.п.)
и еще по коду: почему TStringList ? ... обычного TextFile недостаточно ?

около 100кб добавляют
Думаю стоит сначала уменьшиь размер файла и так, а потом уже упаковщиком.

[RageGod]

подниму тему.
кто-нибудь может помочь?

[Человек_Борща]

С чем? Берете используемые функции из модулей, вырезаете их и все, что они используют(тянут за собой). Складируете в своем модуле. Для пущего минимума можно ещё и System, SysInit, SysConsts подрезать. Но там уже надо знать, что резать. Многое зависит от многого.

[RageGod]

Сообщение от Человек_Борща

С чем? Берете используемые функции из модулей, вырезаете их и все, что они используют(тянут за собой). Складируете в своем модуле. Для пущего минимума можно ещё и System, SysInit, SysConsts подрезать. Но там уже надо знать, что резать. Многое зависит от многого.

Я видел реализацию самоудаления без использования данных модулей, "без вырезания используемых функций", правда как я уже и говорил, не удаляла файл, если он находился в каталоге, в котором присутствовали русские символы.

Вот так перевел код:

procedure Delete;
var
 s:string;
 f:textfile;
begin
  s:='Delete.bat';
  s:=ExtractFilePath(ParamStr(0)) + s;
  AssignFile(f, s);
  Rewrite(f);
  Writeln(f, ':f');
  Writeln(f, 'del "' + ParamStr(0));
  Writeln(f, 'if EXIST "' + ParamStr(0) + '" goto f');
  Writeln(f, 'del "' + s);
  CloseFile(f);
  WinExec(PChar(s), SW_HIDE);
end;

Код работает, но только, как я и говорил выше, если в пути присутствуют русские символы - не удаляется ни батник, ни .exe файл.
Как исправить?

[Yurk@]

procedure TForm1.Button1Click(Sender: TObject);
var
  F : TextFile;
  eFile : string;
begin
  eFile := PChar(ExtractFileName(Application.ExeName));
  AnsiToOem(PChar(eFile), PChar(eFile));
  try
    AssignFile(F,'del.cmd');
    Rewrite(F);
    Writeln(F,':Repeat');
    Writeln(F,'del "'+eFile+'"');
    Writeln(F,'if exist "'+eFile+'" goto Repeat');
    Writeln(F,'del del.cmd');
    Flush(F);
  finally
    CloseFile(F);
  end;
  WinExec('del.cmd', 0);
  Application.Terminate;
end;

папка в которой был файл

C:\Users\Администратор\Desktop\Нова я папка (3)

у меня удаляются оба файла

UPD. изменил код с учётом

Сообщение от Serge_Bliznykov

во-первых, у Вас не только с уникодными символами будут проблемы!
(см. тему)

[Dik0n]

procedure Delete;
var
 s:string;
 f:textfile;
begin
  s:='Delete.bat';
  s:=ExtractFilePath(ParamStr(0)) + s;
  AssignFile(f, s);
  Rewrite(f);
  Writeln(f, 'chcp 1251'); // меняем кодировку
  Writeln(f, ':f');
  Writeln(f, 'del "' + ParamStr(0));
  Writeln(f, 'if EXIST "' + ParamStr(0) + '" goto f');
  Writeln(f, 'del "' + s);
  CloseFile(f);
  WinExec(PChar(s), SW_HIDE);
end;