а разве у тебя техтовый файл?

Цитата

мне необходимо чтобы Exe файл моей программы

и зачем вообще там seek?
если у тебя есть некая переменная А="Хело ворд!"
тыж можеш сделать указательна нее? к примеру В
тода будет MessageBoxA (0,B,B,0)

Нет, мне нужна именно строка, которая будет "приписана к файлу" уже после его компиляции


Это сообщение отредактировал(а) Zorlag - 30.12.2003, 20:40

Zorlag Считывай строчку с помощью BlockRead
Как пользоваться посмотри в хелпе.
По смещению где находится строчка (не ресурс) сначала 4 байта, указывающие на длину строки
причем сначала идет младший байт), затем сама строчка. То есть если по заданному смещению стоят байты a1,a2,a3,a4, то длина строки a1+a2*256+a3*256*256+a4*256*256*256.
Это в том случае, при компилировании строчка указана в виде константы

Код

const  MyString1 = 'MyStrign1'; resourcestring  MyString2 = 'MyString2'; begin  Writeln('MyString3') end.

Если откомпилировать этот исходник, в exe будут строчки 'MyString1' и 'MyString3'
'MyString2' закодируется по хитрому, его не найдешь.

Цитата

Нет, мне нужна именно строка, которая будет "приписана к файлу" уже после его компиляции

Тогда делай так:

Код

var  f : integer;  c : char;  s : string; begin  f := FileOpen(Application.ExeName, fmOpenRead + fmShareDenyNone);  FileSeek (f, 0, 2); // End Of File  FileSeek (f, -1, 1); // Переход на предпоследний байт  s := '';  repeat    FileRead (f, c, 1);    if c = #0 then Break;    s := c + s;    FileSeek (f, -2, 1);  until False;  FileClose(f); // в s теперь сидит нужная тебе строка end;

Только условие: перед приписываемой строчкой должен быть хотя бы один нулевой байт - чтобы отделить сам EXE от этой строки.