Как включить таймер в другой программ

[taurii]

Собственно запущено 2 две проги написаны на Delphi в проге 2 есть таймер Timer1.Enabled:=false
нужно первой программе например при нажатие на кнопку запустить таймер во второй проге как это сделать?
Я сначала находил фторую форму, это не проблема искал на ней таймер, вроде нашол, но вот как изменить значение Enabled?

var
  h1, h2: hwnd;
begin
 h1 := FindWindow(nil, 'OnlainMovie');
  ShowWindow(h1,SW_NORMAL );
  ShowWindow (h1, SW_RESTORE );
h2 := FindWindowEx(h1, 0, 'Timer1',nil);

[3D Hunter]

1. В принимающей программе пишем в секции public формы Form1:

public
  procedure TMProc(var Msg:TMessage); message 2000;

2. Пишем сам метод:

procedure TForm1.TMProc;
begin
  Timer1.Enabled:=True;
end;

3. В коде программы, отсылающей команду, например в обработчике кнопки написать:

procedure TForm2.Button1Click(Sender: TObject);
var
  h:HWND;
begin
  h:=FindWindowA(nil,'InMes');
  SendMessageA(h,2000,0,0);
end;

4. Приложил простой пример такой реализации:
pack.zip

[Афанасий[vedma]]

А я в своей программе делал так: подключить модуль второй программы и

Form2.Timer1.Enabled:=True;

[3D Hunter]

Афанасий, вопрос стоял в другом: как из одного приложения воздействовать на другое. А у вас будет все в пределах одного приложения, вы включаете просто форму в программу 1 из программы 2.