C#.Net Windows Message to Delphi

本文关键字：to Delphi Message Windows Net | 更新日期: 2023-09-27 17:57:21

我在 c# 应用程序和 delphi 应用程序之间的 Windows 消息中遇到了问题。

我用 c# 到 c# 和 delphi 到 delphi

做了一些例子，但我不能 c# 到 delphi

这是我相关的 c# 应用程序，它是 WM 发件人代码

    void Game1_Exiting(object sender, EventArgs e)
    {
        Process[] Processes = Process.GetProcesses();
        foreach(Process p in Processes)
            if(p.ProcessName == Statics.MainAppProcessName)
                SendMessage(p.MainWindowHandle, WM_TOOTHUI, IntPtr.Zero, IntPtr.Zero);

    }
    private const int WM_TOOTHUI = 0xAAAA;
    [DllImport("user32.dll", CharSet = CharSet.Auto, SetLastError = true)]
    public static extern int SendMessage(IntPtr hwnd, [MarshalAs(UnmanagedType.U4)] int Msg, IntPtr wParam, IntPtr lParam);

这是我相关的德尔福应用程序，它是WM接收代码

    const
      WM_TOOTHUI = 43690;
    type
      private
        MsgHandlerHWND : HWND;
        procedure WndMethod(var Msg: TMessage);
    procedure TForm1.WndMethod(var Msg: TMessage);
    begin
      if Msg.Msg = WM_TOOTHUI then
      begin
        Caption := 'Message Recieved';
      end;
    end;
    procedure TForm1.FormCreate(Sender: TObject);
    begin
      MsgHandlerHWND := AllocateHWnd(WndMethod);
    end;

提前谢谢。

C#.Net Windows Message to Delphi

您正在将消息发送到主窗口句柄。这是 TForm1 实例的句柄。但是您的窗口过程附加到不同的窗口句柄，即由调用 AllocateHWnd 创建的窗口句柄。

一个简单的解决方法是在TForm1中覆盖WndProc，而不是使用 AllocateHWnd 。

// in your class declaration:
procedure WndProc(var Message: TMessage); override;
// the corresponding implementation:
procedure TForm1.WndProc(var Message: TMessage);
begin
  if Msg.Msg = WM_TOOTHUI then
  begin
    Caption := 'Message Recieved';
  end; 
  inherited;
end;

或者正如 Mason 所说，您可以使用 Delphi 的特殊消息处理语法：

// in your class declaration:
procedure WMToothUI(var Message: TMessage); message WM_TOOTHUI;
// the corresponding implementation:
procedure TForm1.WMToothUI(var Message: TMessage);
begin
  Caption := 'Message Recieved';
end;

p.MainWindowHandle也可能甚至不是主窗口的句柄。如果您使用的是旧版本的 Delphi，那么p.MainWindowHandle可能会找到应用程序的句柄，Application.Handle 。在这种情况下，需要在 C# 代码中FindWindow或EnumWindows才能找到所需的窗口。

此外，如果您在 Delphi 中使用十六进制声明消息常量，您的代码会更清晰：

WM_TOOTHUI = $AAAA;
相关文章：