Сейчас попробовал сделать две проги для эксперимента с хранением данных в exe. Записывается в exe вроде нормально, но при чтении вторая прога без звука крэшится. Код записывающей программы:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
Script := TStringList.Create;
Script.Add('Test');
AssignFile(F,ExtractFilePath(ParamStr(0)) + 's.exe');
Reset(F);
BufSize := SizeOf(Script);
Seek(F,FileSize(F));
BlockWrite(F,Script,BufSize);
Bf := BufSize;
BufSize := BufSize + 64;
Seek(F,FileSize(F));
BlockWrite(F,Bf,64);
CloseFile(F);
end;
Код считывающей программы:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
AssignFile(F,(ParamStr(0)));
FileMode := 0;
Reset(F);
Seek(F,FileSize(F)-64);
BlockRead(F,BufSize,64);
BufSize := BufSize + 64;
Bf := FileSize(F)-BufSize;
Seek(F,Bf);
BlockRead(F,Script,BufSize);
ShowMessage('Script Line 0: ' + Script.Strings[0]);
CloseFile(F);
end;
F - нетипизированный файл