Передать команду из одной программы в другую

[garuna]

Есть две программы. Нужно чтобы по команде из первой программы вторая программа начинала какое-то действие. Каким способом это можно сделать?

[tsar_]

Через виндовые сообщения.
Придумываешь сообщение типа WM_MY_MESSAGE = WM_USER + 1;
В первой проге SendMessage/PostMessage, во второй - обработчик события сообщения.

[Alex11223]

Зависит от задачи.
Можно и через сообщения винды, и через TCP/names pipe и т.п., и через файлы, ...

Только MSDN вроде говорил, что WM_APP (0x8000) надо, а не USER.

[northener]

Существенное уточнение. Обе программы твои?

[garuna]

Сообщение от northener

Существенное уточнение. Обе программы твои?

да, обе программы мои. уже сделал через WM_COPYDATA, но мне говорят что этот способ не очень хорош, поскольку не всегда срабатывает если программа-приемник работает в фоне или не имеет формы. Вот пример:

//программа-отправитель
procedure TForm1.btn1Click(Sender: TObject);
var
  CDS: TCopyDataStruct;
begin
  CDS.dwData := 0;
  CDS.cbData := (length(edt1.Text) + 1) * sizeof(char);
  CDS.lpData := PChar(edt1.Text);
  SendMessage(FindWindow('TFormReceive', nil), WM_COPYDATA, Integer(Handle), Integer(@CDS));
end;

-----------------------------------

//программа-приемник
  private
    { Private declarations }
   procedure WndProc(var Message: TMessage); message WM_COPYDATA;
...
procedure TFormReceive.WndProc;
begin
  inherited;
  case Message.Msg of
    WM_COPYDATA:
      begin
        Label1.Caption := PChar(TWMCopyData(Message).CopyDataStruct.lpData);
        Message.Result := Integer(True);
      end;
  end;
end;

[Smitt&Wesson]

Сообщение от tsar_

Через виндовые сообщения.
Придумываешь сообщение типа WM_MY_MESSAGE = WM_USER + 1;
В первой проге SendMessage/PostMessage, во второй - обработчик события сообщения.

Головка бо-бо с похмелья? Передаётся только сообщение и то в пределах выделенного окна.
Дайте, я залезу на тот дуб, с которого можно так упасть

[min@y™]

Дайте, я залезу на тот дуб, с которого можно так упасть

это мой дуб. златая цепь на дубе том.

мессадж WM_COPYDATA как раз и предназначено для передачи данных между разными приложениями.

100505.png

[p51x]

можно еще устроить апи и экспортнуть функцию, которую дергать
можно организовать какое-нибудь взаимодействие (сокеты, пайпы, разделяемая память, ...) и ждать команды

[tsar_]

Сообщение от Smitt&Wesson

Головка бо-бо с похмелья? Передаётся только сообщение и то в пределах выделенного окна.
Дайте, я залезу на тот дуб, с которого можно так упасть

Ну вперед, на дуб


Код программы-передатчика:

unit mainTr;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

const
  //Идентификатор сообщения
  WM_MY_MESSAGE = WM_USER + 1;
  //Имя окна-приемника
  RWndName = 'Приемник';

//Нажимаем на кнопочку
procedure TForm1.Button1Click(Sender: TObject);
var
  //Идентификатор окна-приемника
  RWnd: HWnd;
begin
  //Ищем окно-приемник
  RWnd:=FindWindow(nil, PWideChar(RWndName));

  //Если нашли - отправляем сообщение
  if (RWnd > 0) then
    PostMessage(RWnd, WM_MY_MESSAGE, Application.Handle, 0);
end;

end.

Код программы-приемника:

unit mainRc;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure AppOnMessage(var Msg: TMsg; var Handled: boolean);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

const
  WM_MY_MESSAGE = WM_USER + 1;

//Обрабочик событий приложения
procedure TForm1.AppOnMessage(var Msg: TMsg; var Handled: boolean);
begin
  Handled:=False;
  if (Msg.Message = WM_MY_MESSAGE) then
  begin
    Panel1.Caption:='Сообщение принято!';
    Handled:=True;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMessage:=AppOnMessage;
end;

end.

Dеlрhі 2010.

З.Ы. Я НЕ говорю, что это самое правильное, изящное и надежное решение, но оно работает. ТС справшивал "вообще", и я написал по памяти то, чем сам когда-то пользовался.

[kutani]

Каким способом это можно сделать?

через каллбэк-функцию. И не имеет значение, что это exe, а не DLL )

...пример