Заношу запись в реестр Software\Microsoft\Windows\CurrentVersion\RunOnce... Перезагружаюсь... Программа запускается, но работает не так, как мне надо.

Объясняю суть. В главном окне включен режим transparent, т.е., фон не виден, но видно несколько надписей и кнопка. После запуска программа должна висеть 30 сек и сама закрываться. Как это реализовал:

1. Повесил на форму неактивный таймер
2. Запускаю его в OnShow однократно
3. В процедуре таймера снимаю активность (чтобы повторно не сработало)
4. В процедуре таймера делаю:

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  if(! isactive)
    return;
  Timer1->Enabled=false;
  if(Work->Opros())
      ShowMessage("ТЕСТИРОВАНИЕ: Вы указали правильный пароль!");  // Test
  else
      ShowMessage("ТЕСТИРОВАНИЕ: Вы не успели ввести правильный пароль!");
  Close();
}

5. В Work->Opros опрашиваю клавиатуру, кто уже понял, примерно так:

  clock_t start, end;
  start = clock();
  while(true)
  {
    end = clock();
    if((end - start) / CLK_TCK > timer)
      return false;
...
    d=GetAsyncKeyState(int©); 
...
    Application->ProcessMessages();
  }


ПРОБЛЕМА!

Цикл работает намного меньше указанного в timer времени. Понимаю так, что программа запускается раньше, чем снимается заставка загрузки Windows, потому что иногда, когда появляется рабочий стол, уже показывается сообщение, что время типа истекло, пароль не был введен...

Как можно это победить?

в отдельном таймере жди появления таскбара - FindWindow("Shell_TrayWnd",0)

Модератор: Тема закрыта. Дублирует http://forum.vingrad.ru/forum/topic-259303.html