//延时函数
procedure TimeDelay(DT: DWORD);
var
TT: DWORD;
begin
TT := GetTickCount();
while GetTickCount() - TT < DT do
Application.ProcessMessages;
end;
04-26
3618
3618
//延时函数
procedure TimeDelay(DT: DWORD);
var
TT: DWORD;
begin
TT := GetTickCount();
while GetTickCount() - TT < DT do
Application.ProcessMessages;
end;
3618

被折叠的 条评论
为什么被折叠?