为什么我这一段代码会不行呢？

[dragoner]

gettickcount出错啊
undeclared identifier:'gettickCount'
gettickcount在那里定义的啊




uses
Forms,
Unit_login in 'Unit_login.pas' {Form1},
Unit_main in 'Unit_main.pas' {Form2},
Unit_welcom in 'Unit_welcom.pas' {Form3};

{$R *.RES}

var mydate :Tdatetime;
begin
form3:=TForm3.create(application);

form3.show;

form3.update;
mydate:=GetTickCount;
while((GetTickCount-mydate) / 1000 <2) do; //延时二秒啊

Application.Initialize;

Application.Title := '欢迎使用';

Application.CreateForm(TForm1, Form1);

form3.Close;

form3.free;

Application.Run;

end.

[hch_45]

uses Windows

[noil0125]

uses Windows

[xjb2001]

BCB是在winbase.h中

我没装DELPHI
不能帮你找了

[jimeigang]

uses Windows

[zth215]

uses Windows