unit1.pas

内存映谢范例 内存映谢范例 内存映谢范例 内存映谢范例

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
	FCSS_SharedMemory: TZPP_SharedMemory;

implementation

{$R *.dfm}

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   FCSS_SharedMemory.Destroy;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  FCSS_SharedMemory := TZPP_SharedMemory.Create(self);
  FCSS_SharedMemory.Handle := SM_SHARED_MEMORY;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  Messages: TSwaMessage;
begin
  Messages := TSwaMessage.Create;
  Messages.MessageID := 11111;
  Messages.From(['2222', '3333', '4444', '5555']);
  FCSS_SharedMemory.ShareMemory.Push(Messages);
end;

end.