Таймер с "кликером"!

[Дикий]

Подскажите, пожалуйста, если кто то может:
Нужно в Делфи сделать:
Запущена программа, в ней выставляется время (в секундах), и буква/цифра/знак, который по истечению данного времени нажмется в выделенном поле (т.е. если при работе программы я запущу к примеру МС Ворд, то буква/цифра/знак будет вводится в поле ввода Ворда)

Заранее благодарен!

[knight]

Сообщение от Дикий

и буква/цифра/знак, который по истечению данного времени нажмется в выделенном поле

в каком поле, в текстовом TEdit?

Сообщение от Дикий

(т.е. если при работе программы я запущу к примеру МС Ворд, то буква/цифра/знак будет вводится в поле ввода Ворда)

опять же в каком поле, Word c листом пустым грузится вначале

[Дикий]

MS Word был использован лишь в качестве примера =)

я хотел сказать что клавиша должна нажимать независимо от того, активна ли программа (т.е. если её свернуть и перейти на любой другой процесс, то клавиша будет нажиматься в данном процессе)

[knight]

Нажатие клавиши посылается как SendMessage какому-то окну... Те нажимать надо в сасом приложении delphi или в другой программе?

[knight]

Исправил [ сасом ] каком

[Дикий]

Трудно объясняю я =))) не умею этого делать =)

Нажимать надо в другой программе.

[knight]

Вот что нашел у себя:

//Функция нахождения кода окна по части имени
function soaFindWindow(ATitle: string): THandle;
var hwnd : integer;
    Buffer : ^TBuffer;
    count  : integer;
begin

 New(Buffer);
 hwnd := GetTopWindow(0);
 count := 0;
 while hwnd <> 0 do
  begin
       hwnd := GetNextWindow(hwnd, GW_HWNDNEXT);
       GetWindowText(hwnd, Buffer^, 254);
       if (Buffer^ = ATitle)
         then begin
           Result := hwnd;
           Exit;
         end;
    if count >= 100 then Break;
  end;
  Dispose(Buffer);
  Result := 0;
end;
//Жмет ENTER на окно с именем  ATitle
function soaPressEnter(ATitle: string): integer;
var hwnd: THandle;
begin
  hwnd := soaFindWindow(ATitle);
  if hwnd > 0 then
    begin
       PostMessage(hwnd, WM_KEYDOWN, VK_RETURN, 0);
       PostMessage(hwnd, WM_KEYUP, VK_RETURN, 0);
       Result := 1;
    end
  else Result := 0;
end;

[Дикий]

А так что бы не Enter а, допустим цифру с доп.клавиатуры???

ЗЫ. Подскажите, плиз, в каких единицах в Timer(вкладка "System") измеряется число (это же значение "Interval"???) ... или я ошибаюсь??? просто совсем зеленый новичек еще...

И как будет писаться строка: "По истечению таймера - действие"

[knight]

PostMessage(hwnd, WM_KEYDOWN, VK_RETURN, 0);
PostMessage(hwnd, WM_KEYUP, VK_RETURN, 0);

VK_RETURN - замени на любую VK_* Delphi сам подскажет

Interval - в мс 1000 = 1 сек

[Дикий]

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Interval(Edit1.Text);
end;

в принципе знал я что это будет ошибкой...

как правильно будет??


и еще: когда клавишу назначаешь(надо с доп.клавы цифру... как это написать???)


Сорри за кучи глупых вопроссов