regmsg.pas

来自「《Delphi开发人员指南》配书原码」· PAS 代码 · 共 19 行

unit RegMsg;

interface

var
  DDGM_HandshakeMessage: Cardinal;

implementation

uses WinProcs;

const
  HandshakeMessageStr: PChar = 'DDG.CopyData.Handshake';


initialization
  DDGM_HandshakeMessage := RegisterWindowMessage(HandshakeMessageStr);
end.