---------------------------------------------------------------------------------------
// Sender:
---------------------------------------------------------------------------------------
unit usndr;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
tData = Record
s: String[250];
end;
var
Form1: TForm1;
lWMsgHandle : longint;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
lWMsgHandle := RegisterWindowMessage('SyncString');
end;
procedure TForm1.Button1Click(Sender: TObject);
var
DataStruct: TCopyDataStruct; {see Help under "CopyDataStruct"}
Data: TData;
begin
Data.s := 'TestMsg!';
DataStruct.dwData := lWMsgHandle;
DataStruct.cbData := SizeOf(TData);
DataStruct.lpData := @Data;
SendMessage(hwnd_BroadCast, WM_CopyData, wParam(Application.Handle), lParam(@DataStruct));
end;
end.
---------------------------------------------------------------------------------------
// Receiver:
---------------------------------------------------------------------------------------
unit urcv;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,
StdCtrls;
type
TFReceiver = class(TForm)
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
private
f_my_Messagehandle: longint;
procedure WndProc(var wpMessage: TMessage); override;
public
end;
type
tData = Record
s: String[250];
end;
var
FReceiver: TFReceiver;
implementation
{$R *.DFM}
procedure TFReceiver.FormCreate(Sender: TObject);
begin
f_my_Messagehandle := RegisterWindowMessage('SyncString');
end;
procedure TFReceiver.WndProc(var wpMessage: TMessage);
var
Data: TData;
begin
If (wpMessage.Msg = WM_CopyData) And
(PCopyDataStruct(wpMessage.lParam)^.dwData = f_my_Messagehandle) Then
begin
CopyMemory(@data, PCopyDataStruct(wpMessage.lParam)^.lpData, SizeOf(TData));
wpMessage.Result := 1;
memo1.lines.add(Data.s); {sample: output to memo-box}
end
else
inherited WndProc(wpMessage);
end;
end. |
|
