🚀 go-pugleaf

$BNkLZ!w(BFCT$B$H?=$7$^$9!#(B

Delphi DeskTop2.0J$B$r:G6a;H$$;O$a$?$N$G$9$,!"J,$+$i$J$$=j$,$"$j$^$9!#(B
$B$o$+$kJ}!"8f65<x2<$5$l$P9,$$$G$9(B(_o_)$B!#(B

$B%W%m%0%i%`$G$O(BGetSystemPowerStatus$B$H$$$&(BWindows API$B$r;HMQ$7$F!"%Q%=%3%s(B
$B$NFbB"EECS$N;DNL$rD4$Y$h$&$H$7$F$$$^$9!#(B

Windows API$B$N%I%-%e%a%s%H$r$_$k$H!"(B
$B!V4X?t(BGetSystemPowerStatus$B$N0z?t$O9=B$BN(BTSystemPowerStatus$B$N%]%$%s%?$r(B
$BEO$9!W(B
$B$H$J$C$F$$$?$N$G!"(BRecode$B$G$"$k(B TSystemPowerStatus$B$N%]%$%s%?$rEO$9MM$K(B
$B%W%m%0%i%`$rAH$s$@$N$G$9$,!"(B
$B!VJQ?t0z?t$H<B0z?t$N7?$,0c$$$^$9!#!W(B
$B$H%3%s%Q%$%i$KE\$i$l$F$7$^$$$^$9!#(B

$B$=$3$G(BDelphi2.0/source/Rtl/Win/windows.pas$B$NCf$+$i(BGetSystemPowerStatus
$B$H$$$&J8;zNs$r8!:w$7$?=j(B

function GetSystemPowerStatus 
(var lpSystemPowerStatus:TSystemPowerStatus):Bool;
$B!tK\Ev$O#19T$G5-=R$5$l$F$$$^$9!#(B
$B$H$"$C$?$N$G!"(BRecord$B$NJQ?t$r$=$N$^$^EO$9$H!"%3%s%Q%$%i$ODL$C$?$N$G$9$,!"(B
$B<B9T$7$F$_$k$H!"(Brecord$B$N%a%s%P$KCM$,F~$C$F$$$J$$MM$G$9!#(B
$B!t$3$N%W%m%0%i%`$r<B9T$7$?;~$N4X?t$NLa$jCM$O(BTrue$B$G$7$?!#(B
$B!t$^$?!"(BGetSystemPowerStatus$B$N;EMM$G(B
$B!t!V(BWindows95$B$KEE8;4IM}%f!<%F%j%F%#$,%$%s%9%H!<%k$5$l$F$$$k;v!W(B
$B!t$H$"$k$N$G!"%Q%o!<%^%M%8%a%s%H%f!<%F%#%j%F%#$O%$%s%9%H!<%k$7$F$"$j$^$9!#(B

$B$J$K$+C1=c$J4V0c$$$rHH$7$F$$$k$@$1$+$b$7$l$^$;$s$,!"$5$C$Q$j$o$+$i$J$$(B
$B$N$G8f65<x2<$5$$!#(B
$B!t(BDelphi(pascal)$B$b;29M=q$r8+$J$,$i$d$C$H=q$$$F$$$k%l%Y%k$G$9!#(B
$B$h$m$7$/$*4j$$CW$7$^$9(B

$B0J2<%=!<%9$NH4?h$r5-=R$7$^$9!#(B

$B=hM}#1!'!J%3%s%Q%$%i$G%(%i!<!K(B

var
   PPowerStatus: PSystemPowerStatus; {SystemPowerStatus$B$N(BRecord$B$N%]%$%s%?7?(B}
   Status      : Bool;
<$BCfN,(B>
Begin

  New(PPowerStatus);

  Status := GetSystemPowerStatus ( PPowerStatus );{$B"+$3$3$G%(%i!<(B}

End;

$B=hM}#2!'!J%3%s%Q%$%i$ODL$k$,!"<B9T$7$F$b(BRecord$B$KCM$,F~$C$F$3$J$$!K(B

var 
   PowerStatus : TSystemPowerStatus; {SystemPowerStatus$B$N(BRecord}
   Status      : Bool;
<$BCfN,(B>
Begin

  Status := GetSystemPowerStatus ( PowerStatus );

  If ( Status = False )
     {$B%(%i!<=hM}!'$3$3$K$OF~$C$F$3$J$$(B}

  $BCM$r;2>H$9$k$H!"#0$N$^$^!#(B
End;
--
$B"wNkLZ(B  $B?.B@O:(B   Fujitsu Computer Technology
                 [Business]shintaro@landmark.fct.cs.fujitsu.co.jp     
                 [Personal]shintr@aries.bekkoame.or.jp
                           http://www.bekkoame.or.jp/~shintr