Как организовать задержку выполнения??

[Kenifer]

Как сделать задержку выполнения кода на n миллисекунд.
Sleep не подходит (ПРОГРАММА НУЖНА БЕЗ ИНТЕРФЕЙСА).
ПОМОГИТЕ ПОЖАЛУЙСТА .
вот код программы:

program f;
uses
windows;
var
St: TStartupinfo;
Pr: TProcessInformation;

begin
здесь надо вставить задержку !
CreateProcess(nil, '1.exe', nil, nil, false, 0, nil, nil, St, Pr);

end.

[UnD)eaD)Snake]

там есь функция типа sleep... непомню как наз-ся

[vitalik007]

типа sleep это delay и это в паскале
надо как то задержку(событие) вызвать

[Tayfun]

Таймер попробуй! Сам установишь мили сек. и вставишь туда что тебе надо запускать через определенный промежуток!

[still_alive]

Как сделать задержку выполнения кода на n миллисекунд.
Sleep не подходит

Чем он так провинился?

здесь надо вставить задержку !

Зачем?

[Ellita]

sleep(1000); это задержка на одну секунду, если тебе надо больше то сам выщитывай.

[mutabor]

на форуме есть красивое решение этой задачи с помощью системного времени (отсчета от загрузки, не помню как называется)
p.s. тему не помню, но вопрос был аналогичный

[still_alive]

с помощью системного времени

Sleep лучше, он не грузит проц.

[Kashp]

а как насчет этого:

var
h: THandle;
begin
h:=CreateEvent(nil, true, false, ' ');\\ создание пустого указателя h
WaitForSingleObject(h, 20); \\задержка на 20 миллисекунд
...
end;

[mutabor]

вот альтернатива Sleep, причем окно продолжает получать сообщения, правда проц действительно грузит

procedure Delay(ms : longint);
var
  TheTime : LongInt;
begin
TheTime := GetTickCount + ms;
while GetTickCount < TheTime do
  Application.ProcessMessages;
end;

Sleep не подходит (ПРОГРАММА НУЖНА БЕЗ ИНТЕРФЕЙСА)

ну и что, причем Sleep к интерфейсу