|
ｿｽ@ｿｽｿｽｿｽﾒ機ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
ｿｽ]ｿｽEｿｽｿｽｿｽｿｽｿｽV 2005/03/23(ｿｽｿｽ) 00:12:53
ｿｽﾍゑｿｽｿｽﾟまゑｿｽｿｽﾄ、ｿｽｿｽｿｽﾂゑｿｽFｿｽlｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽ
ｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽﾒ機ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽﾆゑｿｽｿｽｿｽ
procedure TForm1.Delay(ms:integer);
var
StartCount:longint;
begin
StartCount:=GetTickCount;
repeat
Application.ProcessMessages;
until ((GetTickCount-StartCount) >= Longint(ms));
end;
ｿｽﾆゑｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽﾇゑｿｽｿｽｿｽPCｿｽﾉ包ｿｽｿｽSｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ謔､ｿｽﾈ気ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽ
ｿｽｿｽｿｽｿｽｿｽyｿｽｿｽｿｽｿｽｿｽｿｽﾉはどゑｿｽｿｽｿｽｿｽｿｽｿｽ轤｢ｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽ
ｿｽｿｽｿｽﾆ、ｿｽｿｽｿｽｿｽ
Application.ProcessMessages;
ｿｽﾆはどゑｿｽｿｽｿｽｿｽｿｽｿｽﾓ厄ｿｽｿｽﾈのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾍ待機ｿｽｿｽｿｽ驍ｯｿｽｿｽﾇゑｿｽAｿｽｿｽｿｽｿｽﾍ可能ｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽ 2005/03/23(ｿｽｿｽ) 01:44:28
> ｿｽﾇゑｿｽｿｽｿｽPCｿｽﾉ包ｿｽｿｽSｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽ謔､ｿｽﾈ気ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽ
Sleep APIｿｽｿｽgｿｽｿｽｿｽﾄみてゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
> Application.ProcessMessages;
> ｿｽﾆはどゑｿｽｿｽｿｽｿｽｿｽｿｽﾓ厄ｿｽｿｽﾈのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽ@ｿｽwｿｽｿｽｿｽvｿｽｿｽﾇゑｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽﾆ会ｿｽｿｽｿｽｿｽﾚゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾌ意厄ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽ鼾ｿｽﾍ、ｿｽｿｽｿｽbｿｽZｿｽ[ｿｽWｿｽｿｽｿｽ[ｿｽvｿｽﾉつゑｿｽｿｽﾄ、Googleｿｽﾈどで鯉ｿｽｿｽｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽ蛯､
ｿｽ]ｿｽEｿｽｿｽｿｽｿｽｿｽV 2005/03/23(ｿｽｿｽ) 10:29:53
ｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽLｿｽうｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽ
Sleepｿｽﾖ撰ｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽﾆで厄ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽ
procedure delay(T: longint);
var
finish : longint;
begin
finish := GetTickCount + T;
repeat
Sleep(100);
Application.ProcessMessages;
until GetTickCount > Finish
end;
