Аналог Sleep()

[Larboss]

Подскажите, есть ли подобная функция, как Sleep, но которая не останавливает работу программы или как по-другому можно реализовать?

[Son Of Pain]

Предназначение функции sleep состоит в том, чтобы останавливать программу ) Или тебе нужно, чтобы она в процессе ожидания реагировала на действия пользователя? Тогда делай sleep мелкими порциями в цикле, и вызывай между ними Application.ProcessMessages;

[Человек_Борща]

а зачем вам это?

Хотит 2 действия одновременно? Пустите tThread пускай он зделает что нужно, не застопарив осн. программу.

[Larboss]

  // Нажатие 1
  SimulateKeyDown(Key1);
  sleep(CD1);
  SimulateKeyUp(Key1);

  // Нажатие 2
  SimulateKeyDown(Key2);
  sleep(CD2);
  SimulateKeyUp(Key2);

Да, надо чтобы реагировала. В коде выше, например, если я имитирую нажатие 1, то пока CD1 программа не выждет, нажатие 2 не сработает. Мне нужно установить задержку между нажатиями и отпусканиями без остановки программы.

[Человек_Борща]

Вот:

procedure Delay(dwMilliseconds: Longint);
 var
   iStart, iStop: DWORD;
 begin
   iStart := GetTickCount;
   repeat
     iStop := GetTickCount;
     Application.ProcessMessages;
   until (iStop - iStart) >= dwMilliseconds;
 end;

Вот маленький аналог sleep

[mihali4]

Поставьте таймер. Пример:

...
SimulateKeyDown(Key1);
good:=False;//глобальная переменная
Timer1.Enabled:=True;
while not good do
Application.ProcessMessages;
SimulateKeyUp(Key1);
...

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled:=False;
good:=True;
end;

[Хамяг]

либо таймер, либо в отдельный поток вынести действия.