delphi 简单的发送字符串消息

?

1 2 3 4 5 6 7

var   pMes:^String; begin   New(pMes);   pMes^:=msg;   PostMessage(Application.handle, WM_Custom, 0, Integer(pMes)); end;

 

以下是接收

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

procedure CustomMessages(var Msg: TMsg; var Handled: Boolean); var   msgStr: String;   pMes:^String; begin   if Msg.hwnd = Application.handle then   begin     case Msg.message of       WM_Custom:         begin           pMes:=Pointer(Msg.LParam);           msgStr:=pMes^;           Dispose(pMes);             showmessage(msgStr);             Handled := True;         end;     else     end;   end; end;