Delphi: Как отправить команду другому приложению?

Как отправлять и получать команды из других приложений, созданных Delphi? Я хочу отправить команду другому приложению, которое я написал.

Ответ 1

Отправитель:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

const
  WM_MY_MESSAGE = WM_USER + 1;

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
  h: HWND;
begin
  h := FindWindow(nil, 'My Second Window');
  if IsWindow(h) then
    SendMessage(h, WM_MY_MESSAGE, 123, 520);
end;

end.

Получатель:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

const
  WM_MY_MESSAGE = WM_USER + 1;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  protected
    procedure WndProc(var Message: TMessage); override;    
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WndProc(var Message: TMessage);
begin
  inherited;
  case Message.Msg of
    WM_MY_MESSAGE:
      ShowMessageFmt('The other application sent the data %d and %d.', [Message.WParam, Message.LParam]);
  end;
end;

end.

Убедитесь, что заголовок принимающей формы - "Мое второе окно".

Ответ 4

Посмотрите межпроцессное общение. Некоторые легкие подходящие варианты для вас могут быть:

  • Определите свои собственные окна сообщение
  • Использовать WM_COPYDATA

Ответ 5

Если вы пишете оба этих приложения, TCP/IP может быть более чистым решением, чем сообщения Windows. Эти два приложения могут быть даже на разных компьютерах в сети.