[aha]

полазил по инету , готовых решении не нашел . КТо упоминал про компонент , но он в отсутствии ... Помогите решить задачу .

[moo2k]

А что если самому создать форму с сообщением, на форму бросить таймер. Задать этому таймеру время и потом закрывать данную форму. Или можно программно нажать на кнопку Messagebox'а по окончанию времени таймера
Пишешь это в таймере:

Код:

SendMessage(Хэндл кнопки Messagebox'а, BM_SETSTATE, 1, 0);
Sleep(100);
SendMessage(Хэндл кнопки Messagebox'а, BM_SETSTATE, 0, 0);

[zip000]

Можно находить в системе окно мессаджбокса и посылать по таймеру ему сообщение WM_CLOSE.

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  wnd : HWND;
begin
  wnd := FindWindow('#32770', 'ЗАГОЛОВОК_ТВОЕГО_МЕССАДЖБОКСА');
  if wnd <> 0 then
    SendMessage(wnd, WM_CLOSE, 0, 0);
end;