unit2.~pas

程序之间数据传递

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Memo1: TMemo;
    Label1: TLabel;
    RadioGroup1: TRadioGroup;
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure Mymessage(var wmcopydata:TWmCopyData);message WM_COPYDATA;
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}
//接受数据
procedure TForm2.Mymessage(var wmcopydata:TWmCopyData);
begin
  //memo1.lines.add(StrPas(wmcopydata.CopyDataStruct^.lpData));
   RadioGroup1.ItemIndex:=strtoint(StrPas(wmcopydata.CopyDataStruct^.lpData));
  end;
//运行程序1
procedure TForm2.FormActivate(Sender: TObject);
begin
  memo1.Clear;
  WinExec('project1.exe',SW_SHOWNORMAL);
end;

end.