Как отправлять и получать команды из других приложений, созданных 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.
Убедитесь, что заголовок принимающей формы - "Мое второе окно".
Ответ 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. Эти два приложения могут быть даже на разных компьютерах в сети.