سلام
این کدیه که من استفاده می کنم:
procedure SendStringToApplication(AppHandle, MyHandle: THandle; s: AnsiString);
var
CopyDataStruct: TCopyDataStruct;
begin
if AppHandle = 0 then
Exit;
CopyDataStruct.dwData := 0; //use it to identify the message contents
CopyDataStruct.cbData := 1 + Length(s);
CopyDataStruct.lpData := PAnsiChar(s);
SendMessage(AppHandle, WM_COPYDATA, Integer(MyHandle), Integer(@CopyDataStruct));
end;
procedure WMCopyData(var Msg: TWMCopyData); message WM_COPYDATA;
.
.
procedure TRootForm.WMCopyData(var Msg: TWMCopyData);
var
s: string;
begin
if Msg.From = Application.Handle then // not root
Exit;
s := PAnsiChar(Msg.CopyDataStruct.lpData);
lblLog.Caption := s;
end;