код отправителя
| Код |
unit Unit1_main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
Tmain_Form1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
main_Form1: Tmain_Form1;
implementation
{$R *.dfm}
procedure Tmain_Form1.Button1Click(Sender: TObject);
var
cds: TCopyDataStruct;
hRecipient: HWND;
begin
with cds do
begin
dwData := 0;
cbData := StrLen(PChar(Edit1.Text)) + 1;
lpData := PChar(Edit1.Text)
end;
// ноходим окно получателя
hRecipient := FindWindowEx(0, 0, 'TForm1', PChar('Form2'));
if hRecipient <> 0 then
SendMessage(hRecipient, WM_COPYDATA, Longint(Handle), Longint(@cds))
else
ShowMessage('Получатель не найден!');
end;
end.
|
код получателя
| Код |
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm2 = class(TForm)
Memo1: TMemo;
Label1: TLabel;
private
{ Private declarations }
public
procedure WMCopyData(var Msg: TWMCopyData); message WM_COPYDATA;
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.WMCopyData(var Msg: TWMCopyData);
var
sText: array[0..99] of Char;
begin
StrLCopy(sText, Msg.CopyDataStruct.lpData, Msg.CopyDataStruct.cbData);
Label1.Caption := sText;
end;
end.
|
форма получателя вызывается через другую форму путём динамического создания этой формы... код получателя и отправителя нахдятся в разных проектах и ни чем не связаны... запускаю просто два екзешника и проверяю - не пашет...
да и ещё один вопросец.. а можно всё это реализовать через сокеты? |
)
Значит что то сделал неправильно. Показывай код.