конец программы в *.ехе

[xrob]

"я попробовал добавить ресурс (текстовый файл с 'bugoga!') стандартными средствами,
потом найти его в скомпиленом ехе - не нашел."
кстати, интересно почему?...
если, как вы говорите, ресурсы не кодируются, то почему я тогда не нашел 'bugoga!'?
с помощью Resource Builder 3 скомпилил *.res, дописал директиву в юнит,
скомпилил прогу, открываю ехе в блокноте - не находит то что было в файле ресурсов...

[Somebody]

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

если, как вы говорите, ресурсы не кодируются, то почему я тогда не нашел 'bugoga!'?

Может быть, потому, что в ресурсах оно было в юникоде, а файл открыл как ansi?

[Swarog]

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

делал это примерно так...

 outSt := TFileStream.Create(edit2.Text {имя ехе не запущенного!},fmOpenWrite);
 outSt.Seek(0,soFromEnd);

 ist := TFileStream.Create(ts +'\buf.tmp',fmOpenRead	);

 repeat
  t := ist.Read(buf2,512);
  outSt.Write(buf2, 512);
  if ist.Size <> 0 then
   begin
    statusbar1.Panels[5].Text := inttostr(ist.Position * 100 div ist.Size) + '%';
    application.ProcessMessages;
   end;
 until t = 0;

 t:= outSt.Size - st;  // пишем размер наших данных
 outSt.Write(t, 4);

 t:= $00415753;
 outSt.Write(t, 4); // а это просто сигнатура по которой будем знать что данные имеются

 outSt.Free;

ну и собственно чтение

    ExeStream := TFileStream.Create(
      application.ExeName
     ,fmOpenRead or fmShareDenyWrite);

    ExeStream.Seek(ExeStream.Size - 4,soFromBeginning);

    ExeStream.Read(t,4);
    if t <> $00415753 then
     begin
      application.MessageBox('Нет каталога, либо файл поврежден','Ошибка',0);
      exit;
     end;
    ExeStream.Seek(ExeStream.Size - 8, soFromBeginning);
    ExeStream.Read(Start,4);
    FileOffset := ExeStream.Size - Start - 8;
    ExeStream.Seek(FileOffset, soFromBeginning);

// здесь укзатель уже на начале нашего буфера

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

[Swarog]

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

Может быть, потому, что в ресурсах оно было в юникоде, а файл открыл как ansi?

Кстати тоже замечал допустим есть некие констнаты в приложении поиском в ехе их порой не найти, я конечно пользовался не блкнотом , и все же данного текста в открытом виде не было. Юникод отпадает сообщение было на английском. Да и в юникоде тоже не ищется.

[Somebody]

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

Юникод отпадает сообщение было на английском.

Юникод не отпадает, потому что в UTF-16 два байта на символ - даже с английскими буквами перед каждой будет ещё нулевой байт.

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

Кстати тоже замечал допустим есть некие констнаты в приложении поиском в ехе их порой не найти

Может, exe упакованный?

[Swarog]

Юникод не отпадает, потому что в UTF-16 два байта на символ - даже с английскими буквами перед каждой будет ещё нулевой байт.

с нулями тоже не нашел

[xrob]

"даже с английскими буквами перед каждой будет ещё нулевой байт" ???
а как такая строка, скажите мне, сочетается с PChar? никак?
если в PChar #0 это конец строки!...

а я вообще делал так:
assignfile(test,filename);
reset(test);
seek(test,filesize(test));
// ну и дальше дописываешь что нужно...

проблема наверное в том что
seek(test,filesize(test));
устанавливает каретку НА последний символ, а не после него... (да?)
а в результате при последующей записи стирается последний символ ехе-шника.

а правильно ли тода будет написать seek(test,filesize(test)+1); ?

[Пепел Феникса]

а как такая строка, скажите мне, сочетается с PChar? никак?
если в PChar #0 это конец строки!...

спокойно сочетается.
ибо терминал в WideChar тоже два байта весит, а не один.

устанавливает каретку НА последний символ, а не после него... (да?)

нет.

[GunSmoker]

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

Напоминает: http://bash.org.ru/quote/410956