Как прочитать данные из самого себя

[vitalik007]

Как мне прочитать данные из самого себя если я знаю позицию в файл откуда надо читать
Вот мой код
const size=425472;
var code:string;
f:Thandle;
temp:cardinal;
begin
f:=createfile(Pchar(application.Exe Name),GENERIC_READ,0,nil,OPEN_EXIST ING,0,0);
setfilePointer(f,size,nil,FILE_Begi n);
readfile(f,code,100,temp,nil);
closehandle(f);

[JTG]

1. Попробуй вызвать CreateFile с такими флагами
CreateFile(Pchar(application.ExeNam e),GENERIC_READ,FILE_SHARE_READ+FIL E_SHARE_WRITE,0,OPEN_EXISTING,0,0);

2. Обьявить переменную Code как pchar

[vitalik007]

<!!2. Обьявить переменную Code как pchar>
Если я объявлю code как Pchar там можно будет хранить большой текст??

[JTG]

Можно.

GetMem(code, size);
...
FreeMem(Code);

[vitalik007]

не получается вот что у меня за дело!
1.Это я копирую файл в папку какую-то
copyfile(Pchar(extractfilepath(appl ication.ExeName)+'Compiler.exe'),pc har(exefile),false);
buffer:=codememo.Text;
assignfile(f,exefile);
append(f);
writeln(f,buffer);
closefile(f);
//exefile-новая папка
2.запускаю
winexec(Pchar(exefile),sw_show);
3.в compiler.exe написано
const size=425472;

var code:string;
f:Thandle;
temp:cardinal;
begin
f:=createfile(Pchar(application.Exe Name),GENERIC_READ,0,nil,OPEN_EXIST ING,0,0);
setfilePointer(f,size,nil,FILE_Begi n);
readfile(f,code,100,temp,nil);
closehandle(f);
showmessage(code);

ВОТ!!

в файл записывается но когда открываю то ничего не считывает

[JTG]

assignfile(f,exefile);
append(f);
writeln(f,buffer);

Не самая лучшая идея открывать бинарник, коим является EXE, как текстовый файл. Используй CreateFile/WriteFile.
Я так понял тебе надо к программе дописать текст, чтоб она его с хвоста прочитала и вывела в сообщении? Глянь эту тему http://programmersforum.ru/showthread.php?t=5896

ЗЫ: Хех, Индийский Код: extractfilepath(application.ExeName )+'Compiler.exe'

[vitalik007]

да там ничего почти не написано что мне надо мне надо знать где у меня в коде ошибка

[JTG]

assignfile(f,exefile);
append(f);

Не уверен, можно ли так делать, может это то же, что открыть exe блокнотом, дописать текст и сохранить. Код при этом само-собой гибнет.
Открой сompiler.exe через handle:=CreateFile..., установи указатель в конец и запиши нужные данные через WriteFile(handle, pchar(codememo.Text)...

Или так

const size=425472;
var code:array[0..255] of char;
     f:Thandle;
     temp:cardinal;
begin
  f:=createfile(Pchar(application.ExeName),GENERIC_R EAD,0,nil,OPEN_EXISTING,0,0);
  setfilePointer(f,size,nil,FILE_Begin);
  readfile(f,code,100,temp,nil);
  closehandle(f);
  MessageBox(form1.handle (или 0, если нет родителя),code,'Заголовок',MB_OK);

[vitalik007]

Я так пробовал вообще тогла ничего не записывается

[rpy3uH]

пробуем так:

const size=425472;   
var code:array[0..255] of char;   
     f:Thandle;   
     temp:DWORD;   
begin   
    if:=createfile(Pchar(application.ExeName),GENERIC_READ,FILE_SHARE_READ,0,OPEN_EXISTING,0,0);  
    if F=INVALID_HANDLE_VALUE then 
   begin
    MessageBox(0,'ошибка открытия файла','Заголовок',MB_OK);
    exit;
   end;
  setfilePointer(f,size,nil,FILE_Begin);   
  readfile(f,code,100,temp,0);   
  closehandle(f);   
  MessageBox(0,code,'Заголовок',0);