🚀 go-pugleaf

  | 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%i%$%V%i%j$N8F=P7A<0$,!"(BDelphi$B$O%G%U%)%k%H$G$O(Bpascal$B7A<0$G$9$N$G!"(B
Win32$BI8=`7A<0$K;XDj$7$J$$$H$$$1$J$$$H;W$$$^$9!#(B
procedure Sleep(dwMilliseconds: Longint); external 'kernel32.dll' name
 'Sleep'; stdcall;
         ^^^^^^^^^^
$B$N$h$&$K!":G8e$K(Bstdcall$B$r$D$1$F$_$F$O$I$&$G$7$g$&$+!)(B


************************************************************
  $B?@8MBg3XBg3X1!<+A32J3X8&5f2JGn;NA04|2]DxEE5$EE;R9)3X@l96(B

            Name : $B0KC#!!<wOB(B (Hisakazu Date)       
          E-Mail: date@cs-ee.eedept.kobe-u.ac.jp   
***********************************************************

$B0KC#!!<wOB(B $B$5$s!"$?$1$,$_(B $B$3$&$8$5$s!"$I$&$b$"$j$,$H$&$4$6$$$^$7$?!#(B

$B$?$1$,$_$5$s$NJ}K!$G$"$C$5$j2r7h$7$^$7$?!#$^$@$^$@=$9T$,B-$j$J$$$h$&$G$9!#(B

$B0KC#$5$s$K$*65$(D:$$$?$3$H$O!">-MhJL$N(BDLL$B$r;H$&;~$N6lO+$rH>8:$5$;$F$/$l$k$3(B
$B$H$G$7$g$&!#(B

$B$"$j$,$H$&$4$6$$$^$7$?!#(B

--
Makoto Yoshida
yoshida-makoto@c.metro-u.ac.jp
Department of Biology, Faculty of Science
Tokyo Metropolitan University
Yoshida Makoto wrote in message <62ci8g$tvu$1@suzuran.comp.metro-u.ac.jp>...

$BNS!wK-EDCf1{8&5f=j$G$9!#(B

In article <62eh80$4t2$1@gaia.kobe-u.ac.jp> date@cs-ee.eedept.kobe-u.ac.jp (H. Date) writes:
$B!C(B $B%i%$%V%i%j$N8F=P7A<0$,!"(BDelphi$B$O%G%U%)%k%H$G$O(Bpascal$B7A<0$G$9$N$G!"(B
$B!C(B Win32$BI8=`7A<0$K;XDj$7$J$$$H$$$1$J$$$H;W$$$^$9!#(B
$B!C(B procedure Sleep(dwMilliseconds: Longint); external 'kernel32.dll' name
$B!C(B  'Sleep'; stdcall;
$B!C(B   ^^^^^^^^^^
$B!C(B $B$N$h$&$K!":G8e$K(Bstdcall$B$r$D$1$F$_$F$O$I$&$G$7$g$&$+!)(B

$B$3$l$GF0$/$H;W$$$^$9$,!"(JDelphi2(B (Jor(B (J3$B$N%G%U%)%k%H$O(Jfastcall$B$G$9!#(B
$B$$$:$l$K$;$h!"(Jstdcall$B$,I,MW$J$3$H$K$OJQ$o$j$"$j$^$;$s!#(B

(JDelphi2$B$,=P$?$P$+$j$N:"$O%G%U%)%k%H$,(Jfastcall$B$KJQ$o$C$?$3$H$r(B
$BCN$i$:!"(JVC++$B$G:n@.$7$?(JDLL$B$,(JDelphi2$B$+$i8F$Y$J$$$H$$$&$+%W%m%0%i%`$,(B
$B0[>o=*N;$9$k$N$G:$$C$?5-21$,$"$j$^$9!#(B $B$G$O$G$O!#(B
--
                      $BNS!!=(8w(B $B!J3t!KK-EDCf1{8&5f=j(B

$B;O$a$^$7$F!#5\K\!w<~Fn%3%s%T%e!<%?%5!<%S%9$G$9!#(J

H. Date wrote:

> $B%i%$%V%i%j$N8F=P7A<0$,!"(JDelphi$B$O%G%U%)%k%H$G$O(Jpascal$B7A<0$G$9$N$G!"(J
> Win32$BI8=`7A<0$K;XDj$7$J$$$H$$$1$J$$$H;W$$$^$9!#(J
> procedure Sleep(dwMilliseconds: Longint); external 'kernel32.dll' name
> $B!!(J'Sleep'; stdcall;
> $B!!!!!!!!!!!!!!!!(J ^^^^^^^^^^
> $B$N$h$&$K!":G8e$K(Jstdcall$B$r$D$1$F$_$F$O$I$&$G$7$g$&$+!)(J

$B$3$l$K4X$7$F$G$9$,!"4X?t$N0z?t$H$7$F(JPChar$B7?$NJQ?t$,I,MW$K$J$C$F$$$?(J
$B$s$G$9$,!"(JStrAlloc$B$G3NJ]$7$?(JPChar$B7?$NJQ?t$NNN0h$r(JDLL$B8F$S=P$7$r9T$C(J
$B$?8e!"(JStrDispose$B$G3+J|$7$h$&$H$9$k$H%(%i!<$,H/@8$7$F;_$^$j$^$9!#%((J
$B%i!<$NFbMF$O!V%a%b%j(JXXXX$B!A(JXXX$BHVCO$G=q$-9~$_!J!)!K%(%i!<$,H/@8$7$^$7(J
$B$?!W$H$$$&$I$3$+$G8+$?$3$H$N$"$k%a%C%;!<%8$G$9!#(J

DLL$B8F$S=P$7$O@5>o$K=*N;$7!"La$jCM$b<+J,$N;W$C$?$H$*$j$K$J$C$F0B?4$7(J
$B$F$$$?$s$G$9$,!"3NJ]$7$?%a%b%j$,3+J|$G$-$J$$$H2?$+IT0B$G$9!#(J

$B$3$l$O(JDLL$BFbIt$K860x$,$"$k$s$G$7$g$&$+!)(J
$B!!(J