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

Posted by Chas under Delphi

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

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

тема на форуме

Похожие статьи

• Как сделать динамическим обратный отсчет — таймер обратного отсчета времени
• Возрастающий таймер (Delphi 7)
• Передача данных при нажатии на кнопку в течении минуты
• Пример работы с таймером в delphi
• Отправка текста в неактивное окно программы
• Работа с таймером
• Использование таймера в потоке
• Как вывести слово в Label по одной букве с использованием таймера?
• Игра «Гонки». Движение встречной машины