Господа и в часности вит. У меня появилась новая технология записи и чтения информации в фаил.

В крации о проблеме:

Я вот тут раздобыл код программы каторая записывает, ну к примеру строчку из поля едит1 в любую другую программу в часности в exe'шник, но мне к сожалению нехватает знаний чтобы создать такой exe'шник который смогбы после такой записи прочесть информацию из самого себя.

(мой код)
программа 1 записывает текст в программу 2 и может его оттуда прочитать

(а это то что мне нужно, тема вопроссссса)
программа 2 считывает текст из самой себя будучи запущенной.

Здесь я выложил код внешней записи и чтения

Код

unit Unit1; interface uses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  StdCtrls; type  TForm1 = class(TForm)    Edit1: TEdit;    ButtonRead: TButton;    OpenDialog1: TOpenDialog;    eport: TEdit;    ButtonWrite: TButton;    ButtonFile: TButton;    Edit3: TEdit;    procedure ButtonReadClick(Sender: TObject);    procedure ButtonFileClick(Sender: TObject);    procedure ButtonWriteClick(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;  const buff_size=50000; var  Form1: TForm1;  buf:array[1..2218] of Char;  z,i:integer;  port:string;  placesrv:longint;  F,F2:File; implementation {$R *.DFM} procedure TForm1.ButtonReadClick(Sender: TObject); begin  AssignFile(F, edit3.Text);  {$i-}  Reset(F, 1);  {$i+}  if (IOResult = 0) then  begin   Seek(F,placesrv+245);   BlockRead(F,buf,9);   port:=string(buf);   for i:=1 to 9 do if port[i]=chr(241) then break;   port:=copy(port,1,i-1);   eport.Text:=(port);   CloseFile(F); end; end; procedure TForm1.ButtonFileClick(Sender: TObject); begin opendialog1.Execute; Edit3.text:=opendialog1.filename; end; procedure TForm1.ButtonWriteClick(Sender: TObject); begin AssignFile(f,edit3.text); {$I-} Reset(f,1); {$I+} If IOResult = 0 then  begin for i:=1 to 9 do buf[i]:=chr(241); Seek(F,placesrv+245); for i:=1 to length(edit1.text) do buf[i]:=Edit1.text[i]; BlockWrite(F,buf,9); CloseFile(F); end; end; end.

или можно скачать исходник вот тут
rwtest.narod.ru
http://rwtest.nm.ru

Уже обсуждалась тема открытия хорошо заблокированного файла, посмотри сюда:

http://www.forum.vingrad.ru/cgi-bin....;t=1048

кстати тот код что я писал должен работать, только открывай поток как:

TFileStream.create('c:\MyFile.doc', fmShareDenyNone)

Цитата(Vit @ 30.5.2002, 18:49)

Уже обсуждалась тема открытия хорошо заблокированного файла, посмотри сюда: http://www.forum.vingrad.ru/cgi-bin....;t=1048 кстати тот код что я писал должен работать, только открывай поток как: TFileStream.create('c:\MyFile.doc', fmShareDenyNone)

спасибо гляну чё там.

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

ОООоооооо нет я пытался чето съделать но боюсь без помощи из вне мне необойтись

Ладно, пришли мне код, я посмотрю

Vit я вконце сообщения дал линк на скачку если ты его незаметил то на ещё раз http://rwtest.nm.ru/readwrite.rar

Ты его наверное новым RAR паковал, я его распаковать не могу, пока на работе новый RAR не установлен...

Вот перепаковал старым ZiPom теперь
http://rwtest.nm.ru/7.zip

Попробуй после AssignFile поставь:

FileMode:=fmOpenRead;

Это позволит открыть файл только для чтения.

Вот еще несколько мыслей:

http://www.forum.vingrad.ru/cgi-bin....69;st=0

Даже стыдно что это было так просто.

Вит спасибо !  
Можно я тебя добавлю в About

Дык ты там небось троян или вирус пишешь? Самое наверно оно, чтобы добавлять меня в About.        

На самом деле добавляй если хочешь, мне все равно.

Цитата(Vit @ 01.6.2002, 16:09)

Дык ты там небось троян или вирус пишешь? Самое наверно оно, чтобы добавлять меня в About.         На самом деле добавляй если хочешь, мне все равно.

Нет не угодал! Не троян и невиру . А программу удалённого администрирования для компьютерного клуба.

Да? А клуб знает об этом администрировании?        

Обычно для достижения поставленной автором вопроса цели используют TMemoryStream и TFileStream. Но можно и CreateFile, если лень поток создавать