люди есть 2 прграммы на делфи по одному эдиту и по одной кнопке.
в первой (пусть это будет Form1) в эдите набирается текст и нажимается кнопка.

так вот после нажатия на кнопку во второй программе в ее эдите должен появится текст из первой программы.

нужно сделать это без помощи буфера обмена винды,

так вот вопрос как?

из DRKB

Код

procedure TForm1.Cut1Click(Sender: TObject); begin  SendMessage (ActiveControl.Handle, WM_Cut, 0, 0); end; procedure TForm1.Copy1Click(Sender: TObject); begin  SendMessage (ActiveControl.Handle, WM_Copy, 0, 0); end; procedure TForm1.Paste1Click(Sender: TObject); begin  SendMessage (ActiveControl.Handle, WM_Paste, 0, 0); end;

можно два сокета создать ( в один ( в первой программе ) пишеш из другого ( во второй программе ) читаеш )
можно файл в виртуальной памяти создать и по событию из него читать

Я бы сделал так:

Handle := FindWindow ('TForm1', nil);
Handle1 := FindWindowEx (Handle, nil, 'TEdit', nil);
SendMessage (Handle1, WM_SETTEXT, 0, Integer(MyText));

Если окон TEdit много, придётся перебирать...

Добавлено: Ниже бред, думать надо перед тем, как говорить Просто шлёшь WM_USER+1, и обработчик на другом конце меняет текст в edit-е

Ну или так: шлёшь сообщение-запрос (WM_USER+1) главной форме:
SendMessage (Handle, WM_USER+1, MyForm.Handle, 0);
тебе возвращают Handle нужного TEdit, ему уже посылаешь WM_SETTEXT.

Я понимаю, что если ты первый раз видишь эти ф-ции, то тебе ничего непонятно, но попробуй хелп почитать (В Delphi: Help -> Windows SDK), потом если что непонятно - спрашвай...

Добавлено @ 17:38
dsergey,

Цитата(Satana @ 12.1.2005, 17:10)

нужно сделать это без помощи буфера обмена винды,

Это сообщение отредактировал(а) dm9 - 12.1.2005, 17:57

в таких способах недостатков куча
+ что делать если программа вообще без окна?

Кхм...

Цитата(Satana @ 12.1.2005, 17:10)

есть 2 прграммы на делфи по одному эдиту и по одной кнопке

затем нужно послать сообщение этому окну
в обеих программах зарегестрируй свои сообщения
типа

Код

в самом верху, после USES пиши (в обеих приложениях) Const  WM_GetInfoFromClipBoard = WM_USER +100; а в секции Private формы-получателя Procedure WMGetInfoFromClipBoard(Var Msg: TMessage); message WM_GetInfoFromClipBoard;

Код

отсылаем сообщение так PostMessage(FindWindow(nil,'Заголовок окна который должен принять инфу из буфера'), WM_GetInfoFromClipBoard, 0, 0);

Код

Procedure TForm1.WMGetInfoFromClipBoard(Var Msg: TMessage); begin//обработка полученного сообщения  //получение инфы из буфера обмена end;

Это сообщение отредактировал(а) dsergey - 12.1.2005, 17:50

dsergey, торможу, ты прав, конечно )

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

хозяин барин, если он так захотел, то
Хотя наставить человека на путь истинный тоже неплохо, а может ему для курсового надо

да если бы для курсового я бы буффером обычным обошелся мне по работе нада ща вот все почитаю и попробую

dm9, это ты мне писал?

я не спорю, при таком задании можно и сообщениями покидатся, но вдруг завтра он решит писать что-то посерьезнее?

Цитата

но вдруг завтра он решит писать что-то посерьезнее?

Windows "построена" на сообщениях, поэтому сам решай

Попробуй DDE

Присоединённый файл ( Кол-во скачиваний: 6 )
 DDE.zip

WM_COPYDATA специально для таких случаев

Это сообщение отредактировал(а) <Spawn> - 13.1.2005, 11:31

dsergey, Windows то построены, но почему то ни файр-волы, ни тот же кастор сообщениями не кидается

Код клиента:

Код

procedure TForm1.Button1Click(Sender: TObject); var hPipe: THandle;    Size: cardinal;    Buf: PChar; begin if not WaitNamedPipe('\\.\pipe\mypipe', 0) then begin   Application.MessageBox('Именованный канал не создан',                          'Ошибка',                          MB_OK or MB_ICONINFORMATION);   exit; end; hPipe := CreateFile('\\.\pipe\mypipe',                     1,  // В С++ это было бы FILE_WRITE_DATA                     FILE_SHARE_WRITE,                     nil,                     OPEN_EXISTING,                     FILE_ATTRIBUTE_NORMAL,                     0); Size := Length(Edit1.Text); Buf := PChar(Edit1.Text); WriteFile(hPipe, Buf, Size, Size, nil); CloseHandle(hPipe); end;

Код сервера:

Код

procedure TForm1.Button1Click(Sender: TObject); var hPipe: THandle;    Buf: PChar;    Size: cardinal; begin Size := 255; hPipe := CreateNamedPipe('\\.\pipe\mypipe',                          PIPE_ACCESS_INBOUND,                   PIPE_TYPE_BYTE,     1,     0,     Size,     NMPWAIT_USE_DEFAULT_WAIT,     nil); ConnectNamedPipe(hPipe, nil); GetMem(Buf, Size); ReadFile(hPipe, Buf, Size, Size, nil); FlushFileBuffers(hPipe); DisconnectNamedPipe(hPipe); CloseHandle(hPipe); Edit1.Text := string(Buf); FreeMem(Buf); ShowMessage(IntToStr(GetLastError)); end;

Цитата

WM_COPYDATA специально для таких случаев

Собственно согласен на 100%.