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

[TrapQ]

Сообщение от psycho-coder

Этот пример проверил, удаляет даже с русскими символами в пути

Уж не знаю как ты проверял, но если исправить явную ошибку

WinExec(PChar(ChangeFileExt(CurDir,'.bat ')  + CurDir),SW_HIDE);
на
WinExec(PChar(ChangeFileExt(CurDir,'.bat')),SW_HIDE);

То bat файл действительно самоудалится а вот exe НЕТ.

[Arigato]

Вот рабочий код:

  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);

[psycho-coder]

Можно я убьюсь об стену?

[TrapQ]

Спасибо Arigato, но у меня уже у самого всё получилось.

procedure Udalenie;
var
F: Textfile;
CurDir: String;
begin
CurDir:=ExtractFileName(Application.ExeName);
AssignFile(F,Changefileext(Paramstr (0),'.bat'));
Rewrite(F);
Writeln(F,':1');  //создаём метку 1:
Writeln(F, 'Erase ',CurDir); //удалить ехе
Writeln(F, 'If exist ', CurDir, ' Goto 1');// если файл не удалён перейти на 1:
Writeln(F,'del %0');// удалить батник
CloseFile(F);
WinExec(PChar(ChangeFileExt(Paramstr(0),'.bat')),SW_HIDE); // запускаем батник
Halt;
end;

[Serge_Bliznykov]

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

Спасибо Arigato, но у меня уже у самого всё получилось.

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

ладно, подскажу, если Вам Ваш способ ближе - имя файла возьмите в двойные кавычки и перекодируйте в OEM кодировку, используйте функцию CharToOemBuff
например, так:

function StrToOem(const AnsiStr: string): string;
begin
  SetLength(Result, Length(AnsiStr));
  if Length(Result) > 0 then
    CharToOemBuff(PChar(AnsiStr), PChar(Result), Length(Result));
end;

[raxp]

...а все думал, когда уже за кодировку вспомнят

[TrapQ]

Serge_Bliznykov ты немножко ошибаешься моя процедура работает даже в папке "Новая папка" на рабочем столе.
Но за твою функцию огромное СПАСИБО очень полезная штука.

[Serge_Bliznykov]

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

...а все думал, когда уже за кодировку вспомнят

я про неё постоянно помнил!
просто я очень не хотел встревать в эту дискуссию..
тем более, после отличного примера кода от Arigato...

но не удержался...
Но вижу, что TrapQ всё же идёт своим путём. Ну раз так, так, думаю, хоть подскажу немножко...

_____________
Добавлено

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

Serge_Bliznykov ты немножко ошибаешься моя процедура работает даже в папке "Новая папка" на рабочем столе.

да?... ладно, не буду проверять, поверю на слово. Ведь, в конце концов, это же Вам нужно, не мне..
впрочем. Назовите Ваш exeшник,
например, Новая Программа.exe,
вот тогда, думаю, что с удалением сразу возникнут проблемы..
ну да ладно. Вам виднее, как лучше делать...

[Arigato]

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

Назовите Ваш exeшник,
например, Новая Программа.exe,
вот тогда, думаю, что с удалением сразу возникнут проблемы..

Все-таки мой код тоже оказался неидеален. Ведь сначала будет раскрыта переменная %~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}

[maxionans]

я в своё время написал процедуру практически идентичную той, что указал Arigato, только у меня там ещё введено ограничение попыток удаления экзешника, т.к. столкнулся с такой проблемой, когда файл по какой-то причине не может быть удалён и тогда командный файл уходит в бесконечный цикл пожирая процессорное время. вот мой вариант:

procedure DeleteSelfExe;
var
  F : TextFile;
  BatName : string;
begin
  BatName := ChangeFileExt( Paramstr( 0 ), '.bat' );
  AssignFile( F, BatName );
  try
    try
      Rewrite( F );
      WriteLn( F, 'Echo off' );
      WriteLn( F, 'Set /A I=1000' );
      Writeln( F, ':1' );
      WriteLn( F, 'Set /A I-=1' );
      WriteLn( F, 'If %I%==0 exit' );
      Writeln( F, 'Erase "%~n0.exe"' );
      Writeln( F, 'If exist "%~n0.exe" Goto 1' );
      Writeln( F, 'Erase "%~nx0"' );
    finally
      CloseFile( F );
    end;
  except
    DeleteFile( PChar(BatName) );
  end;

  ShellExecute( 0, 'open', PChar(BatName), nil, nil, SW_HIDE );
  Sleep( 300 );

  ExitProcess( 0 );
end;