Форум: "Основная";
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];

Вниз

Системный таймер   Найти похожие ветки 

← →
kull   (2002-04-15 22:02) [32]

У меня вот это дело прекрасно работает:


procedure Kiss(Wnd: hWnd; uMsg, idEvent: cardinal; dwTime: LongWord); stdcall;
begin
beep;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
SetTimer(Application.Handle, 0, 1000, @Kiss)
end;


может стоит посмотреть внематочно на код, может где-то еще?

---

Страницы: 1 2 вся ветка

Форум: "Основная";
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.006 c