unit1.pas

程序之间数据传递

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
data: TCopyDataStruct;
hd: THandle;
begin
  if key=13 then
    begin
     data.cbData := Length (Edit1.Text) + 1;
     GetMem (data.lpData, data.cbData ); //为传递的数据区分配内存
     StrCopy (data.lpData, PChar (Edit1.Text));
     Hd := FindWindow (nil, 'Form2'); // 获得接受窗口的句柄
     if Hd <> 0 then
       begin
         SendMessage (Hd, WM_COPYDATA, Handle,Cardinal(@data)); // 发送WM_COPYDATA消息
         edit1.Clear;
       end
     else
      ShowMessage ('接受消息窗口不存在！');
     FreeMem (data.lpData); //释放资源
    end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
data: TCopyDataStruct;
hd: THandle;
begin
 data.cbData :=  3;
     GetMem (data.lpData, data.cbData ); //为传递的数据区分配内存
     StrCopy (data.lpData, PChar ('1'));
     Hd := FindWindow (nil, 'Form2'); // 获得接受窗口的句柄
     if Hd <> 0 then
       begin
         SendMessage (Hd, WM_COPYDATA, Handle,Cardinal(@data)); // 发送WM_COPYDATA消息
         edit1.Clear;
       end
     else
      ShowMessage ('接受消息窗口不存在！');
     FreeMem (data.lpData); //释放资源
end;

procedure TForm1.Button2Click(Sender: TObject);
var
data: TCopyDataStruct;
hd: THandle;
begin
  
    begin
     data.cbData := Length (Edit1.Text) + 1;
     GetMem (data.lpData, data.cbData ); //为传递的数据区分配内存
     StrCopy (data.lpData, PChar (Edit1.Text));
     Hd := FindWindow (nil, 'Form2'); // 获得接受窗口的句柄
     if Hd <> 0 then
       begin
         SendMessage (Hd, WM_COPYDATA, Handle,Cardinal(@data)); // 发送WM_COPYDATA消息
         edit1.Clear;
       end
     else
      ShowMessage ('接受消息窗口不存在！');
     FreeMem (data.lpData); //释放资源
    end;
end;

end.