制作工程启动窗口时，sleep函数怎么用？

Question

begin
  Application.Initialize;
  //创建启动画面
  form2:=TForm2.Create(form2);
  //显示启动画面
  form2.Show;
  form2.Update;
  Application.CreateForm(TForm1, Form1);
  //启动画面窗口显示1秒钟
   sleep(1000）;——又错误，请问错在那里，谢谢啦
  //隐藏启动画面
  form2.Hide;
  //释放启动画面
  form2.Free;
  Application.CreateForm(TForm2, Form2);
  Application.Run;

Answer 1

是不是没有加上单元文件呢?
提供一个延时函数给你：
procedure Delay(MilliSec: Word);
var
  FirstTickCount, Now: Longint;
begin
  FirstTickCount := GetTickCount;
  repeat
    Application.ProcessMessages;
    Now := GetTickCount;
  until(Now - FirstTickCount >= MilliSec) or (Now < FirstTickCount);
end;
RegardsePing

Answer 2

sleep(1000）;——又错误，请问错在那里，谢谢不会是第二个括号用成中文的了吧？

Answer 3

我忘加单元文件windows了，呵呵，谢谢几位慷慨的朋友

Answer 4

use windowsSleep(1000) ;