[link993]

Подскажите в сем ошибка:

Код:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  var
  f:string;

procedure poisk;
var
  searchResult : TSearchRec;
  g,y:string;
begin
  if FindFirst('*.exe', faAnyFile, searchResult) = 0 then
  begin
      g:= ('link' +searchResult.Name);
      y:= ChangeFileExt(g, '.txt');
      RenameFile(g, y)
      end;

end;
end.

Задача такая: найти exe файл в папке с программой и изменить его расширение на .txt)))) Заранее спасибо)))

[Bargest]

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

[ChinYan]

Сударь, Вы таки не отказались от своей заведомо бредовой идеи?
Ваш код ищет незнамо где - извольте указать папку для поиска, а не только маску, например C:\mySuperVirus\*.exe

[link993]

Господин ChinYan , от идеи я отказался, но все же меня мучает этот вопрос, пока я не сделаю эту программу (не вирус) я не смогу уснуть))) Данную программу я запускаю в одной папке с .exe файлом, следовательно путь указывать не нужно))) Если Вам не трудно подскажите где в этом коде ошибка или идите жалуйтесь модераторам, якобы за то что я тут на форуме поднял тему "Вирмейкинга". Может цель моей программы заключается в другом...

[ChinYan]

Я вам уже писал, что открыв файл блокнотом, вы не увидите его внутренности. Тут нужен как минимум HEX редактор.
А что там в вашем коде не то - никто не скажет, пока вы скажете, что там происходит

[link993]

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

Я вам уже писал, что открыв файл блокнотом, вы не увидите его внутренности. Тут нужен как минимум HEX редактор.
А что там в вашем коде не то - никто не скажет, пока вы скажете, что там происходит

Я понял насчет HEX редактора. С той темой я забросил, но мне стало интересно как программно найти и переименовать .exe файл в .txt)) Я не собираюсь писать вирус. Цель - обучение...
А код не работает)) Я запускаю программу в одной папке с .exe файлом, но ничего не происходит, кроме того что на пару секунд вылезает консоль)))