ushare.pas

来自「其他应用程序加菜单 如何给exe文件加个 菜单」· PAS 代码 · 共 32 行

unit UShare;

interface

uses Windows, Messages;

const
  cMapFileName = 'SharedData_Hxb_leiyuan';

const
  CM_MSGWNDCREATED = WM_USER + 1000;
  CM_BUILDMENU     = WM_USER + 1001;

  type
  PShareData = ^TShareData;
  TShareData = record
    hkMsg: HHook;
    HostPID: DWORD;
    HostWnd: HWND;
    DestWnd: HWND;
    MsgWnd: HWND;
    Text: array[0..1024] of Char;
  end;

var
  hMapFile: THandle;
  P: PShareData;

implementation

end.