[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.

[Winny]

Код:

procedure Delay(Value: Cardinal);
var
  F, N: Cardinal;
begin
  N := 0;
  while N <= (Value div 10) do
  begin
    SleepEx(1, True);
    Application.ProcessMessages;
    Inc(N);
  end;
  F := GetTickCount;
  repeat
    Application.ProcessMessages;
    N := GetTickCount;
  until (N - F >= (Value mod 10)) or (N < F);
end;

А использование этой процедуры:

Код:

Delay(1000);