🚀 go-pugleaf

$B$3$s$K$A$O!"5HED$H?=$7$^$9!#:G6a(BVisualBasic4$B$+$i(BDelphi3$B$K>h$j49$($?$N$G$9(B
$B$,!"(BwindowsAPI$B$N8F$S=P$7$K$D$$$F$o$+$i$J$$$H$3$m$,$"$k$N$G<ALd$7$?$$$H;W$$$^(B
$B$9!#(B

VB4$B$N$H$-$O!"(B
$B!!!!(BPublic Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
$B$H$7$F8F$S=P$;$F$$$?<jB3$-!J(BdwMilliseconds$B%_%jIC$N4V=hM}$rDd;_$7$^$9!K$,!"(B
Delphi3$B$KK]Lu$7$F!"(B
$B!!!!(Bprocedure Sleep(dwMilliseconds: Longint); external 'kernel32.dll' name
'Sleep';
$B$H5-=R$7$F$_$?$i$&$^$/F0:n$;$:!J$7$+$7!"%3%s%Q%$%k%(%i!<$O=P$^$;$s!K!"$*$=$i(B
$B$/1J1s$K=hM}$rDd;_$7$F$7$^$$$^$9!#$J$<$G$7$g$&$+!#JQ?t$N0z$-EO$7J}$KLdBj$,$"(B
$B$k$h$&$J5$$O$9$k$N$G$9$,!#(B

$B$A$J$_$K(BVB4$B$N%3!<%I$OIUB0$N!V(BAPI$B%S%e!<%o!<!W$G@8@.$7$^$7$?!#(BDelphi3$B$N$[$&$O(B
$B;d$,=q$-$^$7$?!#(B
Delphi3$B$K$O(BVB4$B$N!V(BAPI$B%S%e!<%o!<!W$NMM$J$b$N$O$J$$$N$G$7$g$&$+!#(B

$B$h$m$7$/$*4j$$$7$^$9!#(B

--
Makoto Yoshida
yoshida-makoto@c.metro-u.ac.jp
Department of Biology, Faculty of Science
Tokyo Metropolitan University