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.

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

Ответ 2

Вот полный учебник по этому предмету, который вы можете найти здесь:

http://delphi.about.com/od/windowsshellapi/a/wm_copydata.htm

Ответ 3

Сообщения Windows могут быть решением - интересную статью можно найти здесь: http://delphi.about.com/od/windowsshellapi/a/aa020800a.htm

Ответ 4

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

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

Ответ 5

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