Delphi exe文件之间参数传递（续）

最新推荐文章于 2019-08-28 21:14:00 发布

kjiwu

最新推荐文章于 2019-08-28 21:14:00 发布

阅读量2.5k

点赞数

文章标签： delphi exe string button class user

本文链接：https://blog.csdn.net/kjiwu/article/details/3485071

版权

本文进一步探讨了Delphi环境下两个EXE应用程序如何进行通信，通过WM_COPYDATA消息传递字符串。详细介绍了发送方如何构造TCopyDataStruct结构，并发送到接收方，以及接收方如何正确解析接收到的数据，避免乱码问题。适用于Delphi 2007及更高版本。

摘要由CSDN通过智能技术生成

上次只是研究了一个exe启动另一个exe的情况，这次研究了两个exe同时运行的情况。

{Delphi 2007}

{Project1.exe Unit1.pas}

const
UM_MESSAGE_COMMUNICATE = WM_USER + 100;

type
TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
cDataParam: TCopyDataStruct;
msg: string;
hApp: HWND;
begin
hApp := FindWindow('TForm2', nil);
msg := 'Hello World';
if hApp <> 0 then
begin
    cDataParam.dwData := UM_MESSAGE_COMMUNICATE;
    cDataParam.cbData := length(msg)* sizeof(char) + 1;
    cDataParam.lpData := @msg[1];
    SendMessage(hApp, WM_COPYDATA, 0, LPARAM(&