Последние записи

made in programmersforum 8

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

2nd
Дек

Проблема с записью в bat файл русских символов

Posted by Chas under Топик-обзор

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

Всё это отлично работает, но только в тех случаях если в пути папки программы нет русских символов. Всё дело в таблице символов которую использует Delphi и cmd, они отличаются.

Можно ли решить эту проблему по простому не прибегая к конвертации файла, если нет то можно ссылочку на простой исходник такого конвертера если не сложно.

——
Все-таки мой код тоже оказался неидеален. Ведь сначала будет раскрыта переменная %~n0, а потом выполнится команда, в итоге этот пробел все порушит.
Вот так надо:

procedure Killer;
// Удаляем программу с диска:
var
  F: TextFile;
  CMDName: string;
begin
  CMDName := ChangeFileExt (ParamStr (0), ‘.cmd’);
  AssignFile (F, CMDName);
  Rewrite (F);
  WriteLn (F, ‘:wait’);
  WriteLn (F, ‘del /q "%~n0.exe"’);
  WriteLn (F, ‘if exist "%~n0.exe" goto wait’);
  WriteLn (F, ‘del /q "%~nx0"’);
  CloseFile (F);
  ShellExecute (0, ‘open’, PChar (CMDName), nil, nil, SW_HIDE);
  ExitProcess (0);            
end; {proc Killer}