[sorockinalex]

Ребят, вот вспомнил, что лет 5 назад так делал программку - телефонный справочник, состоящий из одного exe-файла... Только уже исходников не сохранилось...
В общем, я каким-то образом записывал в конец этого exe файла из самого себя же... А также было обновление самого себя же - копировал поверх, закрывал и открывал снова...

Пожалуйста, кто-нибудь напомните как это сделать!

Знаю, многие будут говорить, что это в принципе невозможно! Но ведь я -то делал!!! Реально программа работала!

[angvelem]

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

[sorockinalex]

Тут вопрос в том, как это всё-таки делается!??? И добавить свою же программу в список исключений не составит труда!

[angvelem]

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

[Alegun]

Боюсь схлопотать банку, но на 100% уверен что ТС`у это всё нужно исключительно в мирных, не хакерских целях, чисто для расширения кругозора (вона какой он хороший - телефонный справочник пишет О), а посему пжлст, сильно не бейте :+)

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

...вот вспомнил, что лет 5 назад так делал программку - телефонный справочник, состоящий из одного exe-файла...

Такое было возможно и 15 лет назад, как уже заметил УК angvelem, основываясь на принципе выдёргивания данных справочника из ресурсов екзешки. Но это был, так сказать, CD-вариант: новые записи сделать так нельзя. Про это вагоны инфы существует.

...В общем, я каким-то образом записывал в конец этого exe файла из самого себя же...

А может данные хранились в реестре?-О) Что-то дописать к работающему коду невозможно т.к. на время выполнения он "подливается" к swap-файлу, а это значит, что при дефиците свободной оперативки или простоя блок (массив используемых переменных) с данными программы винда сбрасывает в хранилище, а сам код сборки уничтожается из памяти до возобновления процесса, недостающие куски потом считываются из физического файла на диске. Изменение его структуры во время выполнения приведёт к катастрофе, поэтому ося считает это куском файла подкачки, запрещая любые действия с ним. Так что, это всё прогерские байки или фантазии :-)

А также было обновление самого себя же - копировал поверх, закрывал и открывал снова...

Такое можно вытворять или батником (*.bat) почти на ДОСовском уровне (будут некоторые ограничения, типа длинных имён и кодировки, устарело), вот пример, как таким способом удалить самого себя:

Код:

...
var
  BatchFile: TextFile;
  BatchFileName : string;
  TempMem : PChar;
begin
  BatchFileName := changefileext(paramstr(0), '.bat');
  AssignFile(BatchFile, BatchFileName);
  Rewrite(BatchFile);
  Writeln(BatchFile,':try');
  Writeln(BatchFile,'del "' + ParamStr(0) + '"');
  Writeln(BatchFile,'if exist "' + ParamStr(0) + '" goto try');
  Writeln(BatchFile,'del "' + BatchFileName + '"');
  CloseFile(BatchFile);
  GetMem (TempMem,70);
  GetShortPathName (pchar(BatchFileName), TempMem, 70);
  BatchFileName:=TempMem;
  FreeMem(TempMem);
  winexec(Pchar(BatchFileName),sw_hide);

// http://forum.sources.ru

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

...Знаю, многие будут говорить, что это в принципе невозможно! Но ведь я -то делал!!! Реально программа работала!

Ошибаетесь, скажут не многие, а все! Ну и чтобы немного освежилась память, чтоб удалось "вспомнить всё", вот пример добавления в конец файла текста:

Код:

...
var
txt: string;
b: byte;
i: integer;
begin

...

txt:= 'проверка';
with TFileStream.create('Моя софтина', fmOpenWrite or fmShareDenyWrite) do
try
Seek(0, soFromEnd);
for i:=1 to length(txt) do begin b:= Byte(txt[i]);Write(b,1);end;
b:=length(txt);
Write(b, 1);
finally
Free;
end;
end;

А вот как это считывать во время работы:

Код:

...
var
  bn: byte;
  txt: string;
  text: pchar;
begin

...

with TFileStream.create(Application.ExeName, fmOpenRead or fmShareDenyWrite) do
try
Seek(-1, soFromEnd);
Read(bn,1);
Seek(-byte(bn)-1, soFromEnd);
GetMem(text, byte(bn));
Read(text^, byte(bn));
txt:= string(text);
SetLength(txt, byte(bn));
FreeMem(text);
finally 
Free; 
end;
end;

Это только принцип, много добавить так не получится.

[~TB~]

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

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

[Alegun]

Сообщение от ~TB~

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

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

[sorockinalex]

Блин, что же все такие недоверчивые... Если говорю, что делал как-то - значит так оно и было! Ещё знакомый программер очень сильно удивился этому, даже ему код скидывал. Если найду его, спрошу. ДАвно уже не общаемся с ним...

[Alegun]

Не верю! Объяска выше. С ДЗО тебя!