Fórum Codigo de auto-desligamento #206277

13/01/2004

Alguem tem algum código/componente que ao computador ficar ocioso (sem uso) por um certo tempo (determinado em uma edit) ele faz o computador desligar ou executar uma função ?

Obrigado,
Rodrigo.

Ropesca

Curtir tópico

+ 0

Responder

Posts

13/01/2004

Ropesca

por favor pessoal... preciso de ajuda..

Vlw..
Rodrigo

Responder

Gostei + 0

13/01/2004

Aroldo Zanela

Colega,

Acho que o princípio de uma proteção de tela poderá gerar o resultado que você procura.

Responder

Gostei + 0

14/01/2004

Bacalhau

Acho que isso passa pelo componente TTimer. Quando é colocado o focus num edit o componente TTimer é activado.

O tempo de espera é determinado no TTimer. Se nada acontecer (por exemplo, nada foi escrito no edit) o TTimer dispara uma função ou procedimento. É isso?

Responder

Gostei + 0

14/01/2004

Ropesca

Na verdade é isso que quero:

Meu irmão deixa o computador ligado sem necessidade, o que quero, é um programa que assim que o computador para de responder (ou seja, o usuario não usar mais o mouse e/ou o teclado) o programa faz o computador desligar pra não ficar gastando energia, entende ?

Poderiam me ajudar com isso ?

Abraços,
Rodrigo

Responder

Gostei + 0

14/01/2004

Barcelos

Oi,

Postei algo sobre isto há um tempo atrás, mas só funciona a nível do seu programa, e não so SO.
Mas acho que dá para adaptar ao que você quer.
Dá uma olhada:
http://delphiforum.icft.com.br/forum/viewtopic.php?t=19507&highlight=timer

Barcelos
osbarcelos@hotmail.com

Responder

Gostei + 0

14/01/2004

Ropesca

Eu preciso algo assim, mas traduzido pro DELPHI:

´se o mouse e/ou teclado não respondem por um certo tempo então fecha o programa´

Vlw..
Rodrigo

Responder

Gostei + 0

14/01/2004

Ropesca

É assim pessoal:

Meu irmão deixa o computador ligado sem necessidade, o que quero, é um programa que assim que o computador para de responder (ou seja, o usuario não usar mais o mouse e/ou o teclado) o programa faz o computador desligar pra não ficar gastando energia..

então teria que ter algo assim: ´se o mouse e/ou teclado não respondem por um certo tempo então desliga o computador...´

Estou precisando disso faz tempo, mas nunca ninguem pode me ajudar..

Espero que aqui alguem me ajuda..

Vlw..
Rodrigo

Responder

Gostei + 0

14/01/2004

Barcelos

Eu preciso algo assim, mas traduzido pro DELPHI: ´se o mouse e/ou teclado não respondem por um certo tempo então fecha o programa´ Vlw.. Rodrigo

Não te entendi. Este é um programa em DELPHI, exibe uma mensagem após um tempo de inatividade. Basta você usar uma função que desliga o Windows ao invés de exibir uma mensagem.

Barcelos
osbarcelos@hotmail.com

Responder

Gostei + 0

14/01/2004

Ropesca

Assim ó...

O meu programa vai ficar na TRAY BAR..

Então... ele fica monitorando se o PC está sendo usado ou não...

Se por um determinado tempo o PC ficar sem uso (ou seja, o usuario nao mexer nem o teclado nem o mouse ele (programa) faz o PC desligar..

Preciso disso...

flw..
Rodrigo!

Responder

Gostei + 0

14/01/2004

Barcelos

Bom, aí a coisa muda...
O código postado anteriormente, como eu já disse funciona apenas no próprio programa, e não no SO.
Teria que ser uma espécie de Keylogger, que monitora o sistema o tempo todo...
Por enquanto não me passa nada pela cabeça, mas vou dar uma pesquisada no assunto.

Barcelos
osbarcelos@hotmail.com

Responder

Gostei + 0

15/01/2004

Barcelos

Amigo, achei uma saída bem simples para o problema, como o A.Z disse, basta criar uma proteção de tela em delphi, que contenha o código de auto-desligamento.
Como fazer isso ia me dar um pouco de trabalho, apenas baixei um código fonte na net e alterei para fazer o que você precisa.
Vou postar aqui o fonte em formato UUEncode. Basta você copiar o TODO o texto abaixo, colar no bloco de notas, salvar com o nome Tela.zip e você terá todo o código fonte.

Nota para os moderadores: Se isso não for permitido, por favor me avisem e sintam-se a vontade para remover o tópico.

Barcelos

_=_ 
_=_ Part 001 of 001 of file Tela.zip
_=_ 
 
begin 666 Tela.zip
M4$L#!!0´´´´(´´´´P2:)"R4S3P,´´¬X.´´´(´´´´<&EN9RYB;7ME;].&T$0
MA^<<DCCDSW,@N4N1¬BE2RI3;17D!7F(>@!(Z6IJ1*"FID"CIAI*6DI)R\NW<
M89_//FQ31"DRQX+]XS[/=[M[Y^\_?W^1K&][(@?\_=J-1J:9´^R+_/C5L)V
M4,?´QW)R<B)G9V=R?GXN¬Q<7<GEY*5=75W)S<R.WM[=R=W<G]_?W\OP((^/
MC_+T]"12C.&,$¬$^2´N¬TJNY$K.2S¬R(S?>&+F1\T><W,F=W´F<G!\)\B´/
M\B"/$!)&/91A&>0S\AGY/R&?F,?$8.4/A5"CF>!<^")V\9Y´@6/´N>!<^\
M¬P+G@7/@F?!,R\/SX)GP;/@6?"LEUSP+´@6/´N>!<^<AK2LAS&<08ZGXJEX
M*IZ*I^*94X:G(J9(*´V5\]IY)_*"\53\50\<VKQ5P53\53\<SIQE/Q5P5
M3\6S+H´BJ7@JGHJGXIG+DC-9+>OA´(\4_T_´T/´W/7$(\4_T_´T/´-9
M\30\3EQ&B:2PUDG&"\,3P-SUQ^/´U/P]/P-SKEC´\4_T_´T/´.;Y&IK
M&GH>Y´@ZGHZGX^EX.IZYI?!T/!U/Q]/QS&V&I^/I>J>CF=N/3P=3\?3$71D
M<COR80[HG.0$CF?=HHZGX^EX.IZ.9V[;W)¬UM>M,5DL./´//P/PPS]SB
M>´:>@6?@&7CFML<S\´P\´\_´,V\¬/´//P/PSS]L´S\´P\´\]´,NJM1)/@
M´P,X./´P\¬".CH[D]/14KJ^OR4+^U_J:S&M;X,U2;8$-B"VHEMCKU49JTA)O
M>]52H]!DLD+,J9´9:)¬ZUKM>)34*3;HFG/A^7BU56ZUCGKOTB99Z[C2.U/.F
M\TIJ#)HLD.GTP[R2ZJ´AT[49(@MH3:.V3;V6)/:[2JJ]II5&BS:UR_[^QZXJ
M53NM:[349H¬TT/I&DWF;*L:YG[(JU-FM,$V?2>1S5@<MF&:<Z9"$=F"^4LS
M$7^´>87;SG.P\UR_M*9KF(U[I\>\:H\VV]T+S99XIY;8IX;O7QO+R/S1B\^
M0P9,QI]5@T1:9I-S\1FA:´1AF?O*C*´QI[QZY!J-_Y=LLZLA9JQ[ZQF!.FU
M&GPWCC59M!I^![_4I$?U:R/144NUF1A@6P+_4/T!4$L!!0´´´´(´!IR+S´<
M3<*2!@(´´.$´´´(´´´´<&EN9RYD;V9M4]¬RVC´0?&?&_Y´OZ$!":H=/P´F
MA0:"&T-HF\FL*]&098\LIR$?GUO90ADTO´,^G;O)-VMY8>A*4JIRX&K7[8
M"5JL!VTAH@BP´CT&O´-=´R8´+X;I"8(IHAND4T!\2´´]N´´E@´5@"[I¬=
M(?J)Z!?@-R9F)>QU*XZD)6P6NK<\Z66KJ^DJ*@*5U(O=F439.:E^LKOV)KT
M*$1KV50,HA¬(D]V3D;5-´+2"UL-4ZJTW8";*:_8"C<UK5]9NOGZJO!]&5T91
MORR],;2N\XG^8_Q\5!A´R:Y8&^5K9U(G3J3;1/ZEL-.[N.IBX]<3K=V]NOS<
M8Q\+D=.´YPF[G2_=BS87CEXIHBJULG32Z-"W¬TE+J3-64O5X:(RUL´´DE,=\
M!&\93:?_4X?QJ9J0L.DF¬FYS+*E"/VHF<;A0H´[6Q-0V)5X´95G16WG;-Q@+
M*PIR9-´?7:T]1^G85(X]4S(5QW´NN8[)&0SD^HE.59T1JP=´^[4SK´YJJ3)O
MJ´@REO/^FDG=Q-YY13"/P[=:WRZ"V-))/BDIE4(U"?DLG¬?9)W]_32J4_RP]
MC)_Q>G3\\OS_V>W=´.0^*G$7IWRV/S4+@S[[\:E/VZL/.IC0>3LD5LZW[5
ME´*AAJ;<69EOW$¬86)¬1(>P6_LTY)7D¬MM/-*K[&69VZVW?LPU´<7T´XC8+6
M/U!+´P0*´´´´´´´´´,$FJB[!8Q@´´´´8´´´´"0´´´&)I=´)E<RYR8U!)3D<@
M0DE434¬0(")024Y´+D)-4"(-"E!+´P04´´´´"´´´´,$F60.X]64´´"8@´´
M"@´´´&)I=´)E<RY215/ME;¬2VT´00¬<*21PGH4R=,C-N,OD!JDPF38;FNOP!
M/[$?0´D=+<W.4¬)2,4-)MY2TE)24EW<K699ERS84F119S8*]OJ=]NCM)(B*?
MR9R;´,;AOLB7^+V60_DIO^1´]]M7^;0W_US&?&NSDDE3FXI\_]TDQ2:)X^-C
M.3DYD;.S,SD_/Y>+BPNYO+R4JZLKN;FYD=O;6[F[NY/[^WMY>´B0Q\=´>7IZ
M$DE&.HFH<B)-)!^4NE)7ZGP4HV[4C2]&W:CS3YRZ4W?J3L´+19>+HYZI9^K9
M8R*HD.50TD@GJ<^HSZC/J,^HSZC/J´,D_J1$´<^$9\*3KR1U/!.>"<^$9UP*
MG@G/A&?",^$9EX=GPC/AF?!,>)9+3G@F/!.>"<^$9TQ6);2">IXZEX*IZ*
MI^*I>,:4X:F(*1)*0^7D,8W\J´Q0/!5/Q3.F¬D_¬4_¬4/!7/F&X\¬4_¬4_¬4
M/,L2*)Z*I^*I>"J>L2PQD\6R´$Y2Q]/P-P-3\/3\(PEQ-/P-P-3\,SEA5/
MP].0,T2,IK´40,8´XXOA:7C&\N-I>!J>AJ?A6;:$X6EX&IZ&I^$9VR166\/0
MXZ".I^/I>J>CJ?C&5L*3\?3\70\´<_89G@ZGHZGX^EXQM;T_¬T/!U!1R:V
M(R=S0&>04W´\RQ9U/!U/Q]/Q=QCV\:.+*M=9K)8<N"9\<QX9CPSGAG/V.)X
M9CPSGAG/C&=L>SPSGAG/C&?&,VX¬/.>&<^,9\8S;@\\,YX9SXQG1K)Y?EG
MA!DX,_@X$".CH[D]/14KJ^OJ:UYP/R/B+J+78¬72[$-B!VH!IBKQ=;J;HA
M7O>BH4:ANEXA.FID-AJDC´K3BZ!&H;IMPL"W7314:;6.F7?I$PTU[S2.E´&3
M+H(:@^H¬,IF\ZR*H¬AHR;9LALH6-&K:E&L)8MI&4,TUK31:M"E=IM/W;12J
M=¬K7:*G-´FFA]8WJKDT18^R´B´*U=BM,U6<"^1C10@NF&F=:)*!G,/O$LYF<
M_P[S´K=GS\&SYWK3FJYAMNZ=´O.B/5KM=B]40V:´>VZ)F3?:?&\O(UVCC<^0
M´=.1I]50T2J:MLSL5IA:+3EV;N*=-8,WX=4NS&WR7KS!JH&GMG52-(K]7@
MW3C69-¬J^´[>U*1´]6,KT5)+L9T88L"_U\´5!+´P04´´´´"´´´´,$FVM;_
MEY4!´´!L´P´´"´´´´´!I;F<N<F5SC5,];\(P$+TTD6!´4/5¬<:._0=0M5*H
M1-N_PA"IV4@G!S¬D1¬:&_HZ(@4C-P,"/8.S(1A´5[O/90?159_S<KE[SQ<´
M;"*B+JB4X7>\G]6Z"SI<:[<OO5J_LO/[H$.V?/:SCT´,¬\6Q"7K@H2@*1¬U1
M?.F¬<-"U_7+PA*!VPHP:3.-1IS:0C/:BM9JR(/S+0Q&7Q6ZD&KT.!?AN6)
M0>?$P.^WBO94+0´$H:54FK;N"5,(@D)C:PD/4)&H$5B^7E8@¬C<+0ZD.1
M-*/&YFP>AE¬:1SE\J@/DBJ=[O/941>B6N1R!IWN@"´93_?[7&Z0:ST4U7RQ
MRCWM"XFB_E<RE<R<)*SG<9&FQ,@R"0R+6>4*XDQG\K¬NE+G1N1!NX;"Z
M+O2?_´$FQZ?_W-:\_PB_GFZQ^RJ3KV>_81.\;´P5¬Z["3M$<XU?NK8DZL/N6
MC;6A^Q>U3[/",^A\(!X0L<M<52!N!JY2´PVECYB![¬W@35<\]8\IP>ZH7MZ
M!&_I";´&Z;G0I\&A;M?C4Z¬/D4.?4$L!!0´´´´(´/QR+SHG0$(>P$´´¬P"
M´´´)´´´´56YI=$N9&9M75¬!4N,P$!3V8H4H´9Z0&[>MP&UO&YRX".´XA45Q
M9(4](2IDB9($27@5G^´_7/:\V))L5PD]?1TSXSF7Q?1=2=)5<I&AZ>!PC1
M>3+LT)1QF>@*M_>/2UC8X¬=(U6,P)*=*EZ"GA9*&H!;E=B,´1W=FIB3@FU:
MKF2TU?=BP4´:,^W2QN^[1"/;WAIE^¬KL!LKH33&A3@5K´CH)4K:G_&2:0,6
M´XPGR>CZDM[&9Z.K?$*[GG6*7B¬NN"S5BL+:$D?X&L´?/8=FK(*HG^:G$DS
MR$´SA=>[?@FJLW3E>R<+DUNVR60]Y´XFRE@LY´UPW6(KU+SMDY<F92M><5?
MH.QDTN?A;N/DWWN9´(.Q6FTP::(MJ,,7L!FKE?3A¬I!,INK)@"/Z?$)MU2J
MGN$+U<^G*]!F´F]!UDL@S_=Y@?:V?LHHI17H"-W´N.)9´>B;A;7PS413SA
M3K?;<+CEOL;_:\]^=1VIM*"?F8B/SZYG/RQ><=;7W0!U!+´P04´´´´"´´´
M´,$FR985G@´"´´"&´P´´"0´´´¬5N:70R+F1F;852S7+3,!!69&+´^2D<.´´´
M)A<.O3"A#/<V)B:=QK$G¬O0(BKU--)&E(BM"@_6_´&´´@7H0S.)(3)BTS
M7.S=V?U^_*U_MQ$)XFEX_B:<16CP0D(D20<M$D@Q15;A*KP]]6]"5QIYQMR
MB+QVOJ/F)<OUTOG2<,?´¬DOM_$!>0*\UD\(]LJ"UHOV$B44SD¬PJS\_X4(N0
M9M´-I=/@R55)6CO_NM1>/9V0MX´X[-9.B)M.S68;L8OF<CE)P(;W3$*X=_
M^::;T@+<7I3V4RK*?@J*75E\JF\X=-!1S/-´´=40JQQ4JQ4+VWK5FBILW4O8
M!GB9@H7V1)_:&_5:IT><LF$SH&[YOG"QO5Q(´?V13P*W>WO<^@_0ZXS¬A.
M<T"´¬">&´@\,PZ!F>´J7H1F!D.H6^*75/VX<H)_\"TW9¬NT3HFBV&E+E[PK[
M?B9H3BMWF\.R1^[$1T@_-.K!@(3;=L7E>KL53L<Y4LY7ZHX.,:1´:&ZU$
MEFR[@I&;´A^)´*-65:2:*EV5A,Y-\!AUR´)=S"<@¬I7AASYAV2JB:E5Z/5T,
MI=:RF&WES<´<SW-U.96BBL\CPW6U(S[JOTGQO^FCN!B;W\?´8XO.I´,*9]!
MN>:Z,KMWT_"J_X!72EZWYC3=´2E[*^<G^I]6*Z´B´T[5@2+^JXAO*Y[4BN@/
M4$L#!!0´´´´(´´´´P2;)RHHTHP$´´!D´´´(´´´´<&EN9RYD<´)U4<¬JW´4
MO!O\W,HV"[NIMG<&GI8S"X$LM2L=TEN0;7?>E_P2D*6-RTA´QMZZ&]$LAVG
MA40´,9)F1O/>TT;51ARA6=:781´&74MM&´´W+"OUT*8>¬[_;G>5F.*R4.0YH
M)]F>@R6B´LVT:",\K@7+E3D^393Y1)F/E$S)/=?_D2XFTD5/ZK,\?MK@\VRS
M+)[\Z2?5+,/@[´PG,KSG4J´E*.BA!(´[9U!KGR$LGY0WYCU^:)+KSM*O>+W;
M+F_O¬M?7=XLL6Q9¬BI5H6DJCW)6.HC1$$H5PWE&"[_@*>W´7XZ=P*S,D+´UF
MDIM7/=XSN!PDI7´)<ZI¬+ES"N-\+:^+S)(´:][64!Q>]<E50HUZ;M5!*X.J
MTXWZ4C9<]E267+(´´6&I$4Y)+(9_@*B(T@@1O@$+K9W"-4´)V99CRS>CH-)
M,0(?<@H@H¬TXE/UD.B/^_E&3=>9M/W*=9IEB@N\YB\92;XN*W-SDX2WZPOM[
M<>&O8]>@K;J2]JU=\R09+;6A$]/),V]=*U::T0^/´TL]P*2U8C^K6?3R?YV
M>´7[+´Q>´¬!+´P04´´´´"´"/=2\PV&!.]"\´´´"M$P´´"0´´´¬5N:70Q+G!A
M<YT8VV[;-O0]0/Z!*´987ATMZ59@:)9AB2^-L<06)&>)L0T!+=$V-TE42<J)
M5^1?U^VAZ¬[W´SN\2)8<U6F7IC8OYWYG\I1*=´4?1\?[>_M[-)6$SW¬(U.;M
M¬WT4=/T´M>JIU2@X_:F//)HND,?@(P@Y(2D*\(KP!X61"R+V]Q"ZIFG$[D0´
M71(A\(+´*EB+*TEC6´5C+(0Z>LUQMJ2A.F*IY$Q=AA/X*M´<<P6HJ.(]>]E
M5W)U.4SIG,8*U2<+*B1?:Z´E.B,*<´*):3K@"3I!H>+A3!2UMKJ"2YH0?O0*
M3?3BN´+X8NLPXRPD4<Z)¬J;+"9;$"4@:$0Z0X]EO))3M1["&OOY\&E@1OF1@
MK4NV>D3[&´5+.I>PU]^!!/[´Z*9CB"´T?06&D&1!^´["/7:7/B9\EDO)4CC0
M,&9W7-!MYOHDNQ_)NIG9"G,$EZ_0->/1B[-9´L$_,O6GVCX¬SL,GW&Z´C8&
M;W!&Y27.$,´*L&9I3?PF+CIJ,\I*A4N[H9IR,$2^KOA&I"T/151CT$*/9*Q
M&S-!3+;H9¬RY;.8A@;T+?+TD4$0I=C25DJT(.Z!)5TE(,YU=;&^*LRVDW>
M)EE,$I)*C6F2UT=?NKW!Y8-9GPTG?C]PX;_.U(K]+!UW=[1;]C8¬E:IVJ77I
MY4FRAL,SQF*"54S-($-3=>5CJ´4)_4,!?O45BO]!&>9_)02\*T!=M"(Q"VF$
M(V+IS3]DY*!:X5J=<>CB3^^<(>C8<NXUB2=J_S!5SA66´<OORSP?((CZRJG
M5:U5KBIAK4X+´$>5O5J=EX?MYR\/CZI$^RF>Q232DO<J&FE<P=´JU1GIN-(
MJ<))F´/!¬.3´1)?&-DNKQG´EUKU@.!IPEOA$L)R´9(03XBR´J9´X0D(.!R]
MMJKJ´¬7DCV=;DS!W=<TDLLD+Z$F3Z".2=TL90;(!W-"NKKS7Y:[$$E(D(&
M[D=:¬^WT8,GNNGKG´´L=,8"8$86&&5@P_=_,Q2Q"L)K(@T\".24^6´1\(H*
MC-[D!"W?H3RI=1$$\;O2!H1^(4GB02Y´J!´NANF<.8$WO(4^U._K3N3[5Z,1
M6*ASU/E!!VGL!(6+QH\6.120_0_4;]M."OSS´F5&400@<9=$$3¬Z¬C*XBV
MKA&SJW7OD=U;R&Y!(7+*DXMPY7JS\ZN,WRV-8¬_07^V´ZNT@_B2]XZHN
M4Z/+M*;+M-2EC*I&?M.-,B5@E?MTPWWZ,6VF´]5F^DB;)GHFVB(B2+K$-DO5
M¬>3>62R=+DY76+CGD"HQZ53J/Q0]5OD:!WN$/X¬?K<[]K1A=@34_^[Q]89;
MJ@Y6<4YGE71R;PYNVN"/EVW$^/;=]&!J[Y0!C:6VNU!I\"WS6NK*I?;/<[5
MEJ[:^¬-,\)G3R"=-(J70<WU"9D^8V1I´E?^)^\&:-M689Y5+;4RUNH*V*,<
MC@/)H=B8RH83<U8=02[H+-´QA1,F)K"GJ=A<3Z´M>ITA14562:´/<KO1M
M)&04XCBN-7´EV\E&N&HC@ZW.,E´&>FZ($403E&VD<\Z$J"Y/F,2[*K(G/_8
MG]YVKWR_/YK<7@5]WT88A+>"´&<D!4AH]N9)@R<DO@7F´9_ERQK=4S_J01U
MB=G0[961KP3QX"UP!PYMM=¬WWV^5¬)´]8:´5MMU+];¬$A6-!O=;]5!LI)EU
M4ZB/9^F&84)CDD"5B@XNF$6;Z"!¬)$7)¬W(I6.<"P^DTYM;[W1R7J6Z<?.)
MZJ2F$\(>0I3QM>-UEYA;´NU.,X¬´C´S¬.I"J*;(P"XM,´_$0W´T<PV__:L&
M^:55-[UE9@/UI¬@]5Y´U5IL0/4¬JZ($]QUNZ/&]YIT¬P/?9[;M>[:+4?"5L2
M:?*B´D8@S/4L0LJ´M¬O3´V"F6>($´^"Z_)5$T0;W(´-/HXCV]4I>´9:/RF*
MZTU@>7=1JRZB¬O)4"+I(2>245(U94R8WC)PB\[:4@.")68Y"-?W¬&!V@¬8LE
M1G\B<@^C)>A29P>B@S2¬+0M1MX7:-8[5X<@]E5N´Q53P.2SK.´.:0D¬9UZ*S
M89YL0BZ;^)R´XQ!#PHR*HNA>M@!KA!H?51LD/Z)?6K´>]/6Z!UOG&)6*¬E^
MSO1ZN6]-M2;I^;6CS]_WUX2B*=_([I@Z´,23+T1"8SXZCW,X,&B7AIP,&<4
MS3"]QU^H´S?W=VY8&N:2?"SH+$;LD3Q/\/P2´&+/U1¬´<O¬UU39´]X-0N[O
M]:]O;B_&K\>´7A"6H(7-A[AY[¬;,´F\V>0"R@7^3M.&<S[.8X-2G!^->F-
MKT>´<J11G@7+7$;0J)_!DS´BYI$AJ+(L-BA^_VP\GF@N+THNG,R@W6@NY$U.
M,ZQT9@9A,/:[?:01OM$(X/KW*K+D!Y[05´$0YMTN!!,&QQM?]WVES´GZUC´!
MA>E"8=7HVVCH0Q+9OW_U[YVJ8AUTN´¬F$3M-?QK86+1P/´R[^WO_´5!+´P04
M´´´´"´´´´,$F^´S¬@B$"´´"X!0´´"0´´´¬5N:70R+G!A<[54P6[B,!"](_$/
M/JP4J¬"TRVHOH!X*A0J)´B*I>ER99$B]36QD&U:HZK_OC)T$2FG+92_)^,T;
MSSP_)ULI+´O´1[??;0;0EK0:YX´+;8&3+/!V*.0J?IK.NP>C.$98!3MS8,5
M.4;G!MT)WFFR>1$*2DU8J28Z4+?-T*GJO,=&BSR*9JUVE*@H*751B$RG6
M(@?CAK´[5!)´&N>/´^X9M<LH7:MJB"L4VTB,K;1*H¬TJX$--7´+"ZYY85H[
MK/5AC\7´F7:?J1UH+5+HTPX@4]<:FZ**M<C&NJB[QB2G;¬3U_=$[C-?WJ2E?
M04ZX"X[![CGPYPDXV¬JK)-7[Z´W</84/@FDX+ZT5H0S02)VO_D!BV^^X98]A
M+I+G2]G=3]@;+7;8V!>^L(5?LA3PX2W0DG7AUQN\)=:IY;G:¬5-B2(6´=K
M(.$*C0BB1´-(¬G¬T+5P(F05(1´N)5O6.W+/7^MBDT,!TKHFA+Q\6[*K\´9\
M_TJK@];:S/2"]1LK"´3D@80\@FTL)"Z0_&$,++[´¬CO^NV:RY1)9=´-Z/=H
M=C.8CJ+1=´DSNQMA;27_:*Q:3_BYS^51E-\1PUP9´L^)T¬CXH:IT*;<5.>S
M>F?AI/9)/FUE<]7"@CZ´"IL*I;´D\G^-?(0+><2YV@H@6=7]_]¬F7<(SF
M?:7OJ[OY´Q16C$<R[T,Q[\_AKB\A[DR¬\K\^*.JI9SNAN^PV?@´4$L!!0´
M´´´(´´´´P28S=.PZ(@4´´¬P-´´´)´´´´56YI=,N<&¬SE59+;]LX$+X´R´_@
M318JNT[W5M<¬´+MINDA0PW::&ME@P4ACB5N:5$G:;G]NL8<]];38^PY)4;*<
M1UO!L,CA/+]Y4!O!+G"O]\&QT?´1TP84"N:@MU<:=´1X1<,Y´)G4[(_*N^
M,HSC:L(HESDNSJ1:X^NMHF7!4ER-.=4HEY!+:@JG<[41J6¬2D"GD=$H577?<
M/WE)YD8QD<>X&A=4(7>I9´K91@$92[&:@RAHYYR*[´<JD.D=>I>BEN,EU(;
M1:<*M@QVS-C7.N2PQJ$H=:37_7JG(F+!)L13S3D$01,04X*B$ST!MNR$LD
MD\B2@&NHN6].;@D3Y"9Z´B51-[I]4/"J´¬,-WH>;¬[=QT/(DW\FM0]$YH+\
M:?"V5¬FUF,X)4W7´´TM;T+6G5>R.>,´NG8D+ZQ"HY\AA´&>H"SP\NIDEN6
M@55R,1TOYHO9P´=1[$3V?B?<27&-3I-L=\9IKG$_N98*"1@GJ"UD@1(W1]ID
M*>6\2<?SYZ3$W!¬),J;´_*L8KB313!M84Q<@F´L0N2DZ/E0LRM´´/Z>CQ7G<
M"G9(WH)!¬I3/:1&JJ^=J4U^)1@G;<¬[BKTF?XAIK\CDU6NLDY@@9(¬TTY*+
M;QW+´\C3U$1(RS"LGEF.@0N8WMF*G\YZDXL+S]WD9D@N),UPK^B!^\^B2B2*
MXRH7Z&0MB2[TG7UR@&PIL0B8DJ3$:B/3788Z10Y3[/´=YF3D5;4*P4&)¬9".
MLDR!UIU@)8GNRT>QCRHMZ)K:$OKG;TPA$,IQ"M¬JHZUTL(1NC[1FN8"L4UO=
M!Z_E3B>:CV?ST8<W44*J1DA(´W]Q8&XZSZ7Z-8<+S3O1&8=Q46L0Q!=ZW
M*¬D;2U?)S?KN_:?;I!_@1*,*(&´?8JY.L3_]NS´VN*4[=L>9-)21ZV=(SX/
MMOU/C,*J]6>VE6=8Z4[C*3-K6EJ27SGBF(HMM:VY\"L_":C*+8HC;EJJ_3R8
M2OTQ<:_EX=$[D2I[9M^´A]@\:+=¬;´J1$@.<VD(H?5Q8E;C)8"T1:[)9XWZ3
MRAX9Y1NJ,E<INX)Q($(:\D[[R^LTX@K!$QB´!0^$Z.RY"QUMT+/EBWFI<J-
M´C2-D&\._1_H$E&R5]4H$=6´$O=J[=(!MW)+-Z´RK;$K=C>6¬(¬U<7L/*@
M!PCM\:DT1JZ[L]Y"EE5+*$:Q¬EQ>/F]L¬ZAO&+1K!N][2-HP9*TW5D"-´\U&
M??7Q!6R´>!]_Z02?,K8E)_V01;\+I5PINV:9*9QVIZ¬]>´XNGOW3X,F)/65
MXX;&/EQ-30U4>W[´(Y[_HJI9LED7">MXO*U9(]/]BG+¬L66HB7T]PC+0$!?
M*VAQXA-:@D"GK./?5;KADF´7B[0JD!I)^QV$B´2L?21XW]0?!_XY51M=],:2
M2S?"4W[*:?IIT"<,<Y=O;B_?M)//(;5*XX´3RB[+EB-EGW><,Y*_!PX24XJ
M^>Z+>M¬H\J,"PX8OD&X,K7L)Q.<-¬4;6>2*@S3>R9?K[¬G@0]_WT1"\=@E´E
M<J+HKN.G@L,_\>!54Q]6P-!RB9\>7;QI\D8<TQG$7*[W(<$;P"?W=>BP;E7C
M^S<8J9^Z$MK<@Q9/75¬=O]P[<.[OBX:UX=7)L/&.W_BIW!?026´H´E´P@L
M$0´?P\&P¬5^B_F^7\O&K^7/Q+_\0?S+1^)_W,[>;LX!RLZ+_G[<3X_J0RTK
M)O!KL>[=&7´[^9FFB2M8=/8J<CV.J]H06=+8S4&:C;/¬*YD?/>.C_X´4$L
M!!0´´´´(´!IR+S![=9@]T@´´´)(!´´´(´´´´<&EN9RYC9F>=C\D.@C´41?<F
M_H,Q[)0$(BK1N!!>9Y0TPU3¬(,66X?X][87$_=V<7K>[>ND*NU2/J<JEBK9
M@=N@@Z0+]ITP0$X!$=8´<,G\"E\!L[!!?(EN´+7X´;<HL>¬[^![6_*@"P9´
M@;8;7]?O-.(M(2¬]\::8YXP&O\VXZSLAU99*O?PF$L<W$6?N!*3/!DO58Q
MC;*N&6:U7A/)2-$T0Y-¬&.G&2(QVZ/^$EY(8P**:-´YET\3GS*$N\:DC!*
MTE-<)>+&<Q3<.;´2I"CW3O_>^P¬02P$"¬´´4´´´´"´´´´,$FB0LE,T\#´´!>
M@´´"´´´´´´´´´´´´´´´´´´´´´´´<&EN9RYB;7!02P$"¬´´4´´´´"´´:<B\P
M´$W"D@8"´´A´P´´"´´´´´´´´´´!´"´´´´!U´P´´<&EN9RYD;V902P$"¬´´*
M´´´´´´´´´,$FJB[!8Q@´´´´8´´´´"0´´´´´´´´´!´´´´´´"A!0´´8FET<F5S
M+G)C4$L!´A0´¬´´´´´@´´´!)EDN/5E´P´´F´X´´´H´´´´´´´´´´´´´´´´´
MX´4´´&)I=´)E<RY215-02P$"¬´´4´´´´"´´´´,$FVM;_EY4!´´!L´P´´"´´´
M´´´´´´´´´"´´´´!M"0´´<&EN9RYR97-02P$"¬´´4´´´´"´\<B\PZ)T!"´L!
M´´!<´@´´"0´´´´´´´´´!´"´´´´´H"P´´56YI=$N9&9M4$L!´A0´¬´´´´´@´
M´´!)LF6¬9X´´@´´A@,´´´D´´´´´´´´´´0´´´´´´R@P´´¬5N:70R+F1F;5!+
M´0(4´!0´´´´(´´´´P2;)RHHTHP$´´!D´´´(´´´´´´´´´´$´´´´´´/$.´´!P
M:6YG+F1P<E!+´0(4´!0´´´´(´(]U+S88$[T+P<´´*T3´´´)´´´´´´´´´´$´
M(´´´´+H0´´!5;FET,2YP87-02P$"¬´´4´´´´"´´´´,$F^´S¬@B$"´´"X!0´´
M"0´´´´´´´´´!´´´´´´´0&´´´56YI=#(N<&¬S4$L!´A0´¬´´´´´@´´´!)C-T
M[HB!0´´7´T´´´D´´´´´´´´´´0´´´´´´6!H´´¬5N:70S+G!A<U!+´0(4´!0´
M´´´(´!IR+S![=9@]T@´´´)(!´´´(´´´´´´´´´´$´(´´´´*$?´´!P:6YG+F-F
79U!+!08´´´´´´´,´)´"´´"9(´´´´´´´
´
end

Responder

Gostei + 0

15/01/2004

Barcelos

Pessoal foi mal :oops: :oops: :oops: :oops: :oops: :oops:
Testei aqui e não funcionou (Que papelão hein!???? :oops: :oops: :oops: )

Me manda seu e-mail que te mando o fonte....

Mais uma vez ,,, foi mal :oops:

Responder

Gostei + 0

21/01/2004

Ropesca

Mais alguem ai pode ajudar ?

Responder

Gostei + 0

29/01/2004

Ropesca

Agradeço a quem puder ajudar...

Obrigado,
Rodrigo

Responder

Gostei + 0

30/01/2004

Fabio.hc

Tente assim:

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Panel1: TPanel;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  log:integer;
  function WinExit(flags: integer): boolean;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   dec(log);
   Label1.Caption:=IntToStr(log);
   if log=0 then
      WinExit(EWX_SHUTDOWN or EWX_FORCE);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
   log:=30;
   Panel1.Top:=trunc((Screen.Height - Panel1.Height)/2);
   Panel1.Left:=trunc((Screen.Width - Panel1.Width)/2);
end;
 
procedure TForm1.FormActivate(Sender: TObject);
begin
   Timer1.Enabled:=true;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
   Close;
end;
 
procedure TForm1.FormShow(Sender: TObject);
begin
   Brush.Style := BsClear;
end;
 
function WinExit(flags: integer): boolean;
  function SetPrivilege(privilegeName: string; enable: boolean): boolean;
  var
    tpPrev, tp : TTokenPrivileges;
    token : THandle;
    dwRetLen : DWord;
  begin
    result := False;
    OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, token);
    tp.PrivilegeCount := 1;
    if LookupPrivilegeValue(nil, pchar(privilegeName), tp.Privileges[0].LUID) then
    begin
      if enable then
        tp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED
      else
      tp.Privileges[0].Attributes := 0;
      dwRetLen := 0;
      result := AdjustTokenPrivileges(token, False, tp, SizeOf(tpPrev), tpPrev, dwRetLen);
    end;
    CloseHandle(token);
  end;
begin
  if SetPrivilege(´SeShutdownPrivilege´, true) then
  begin
    ExitWindowsEx(flags, 0);
    SetPrivilege(´SeShutdownPrivilege´, False)
  end;
end;
 
end.

Estou testando no windowsXP:
- Depois de compilado trocar a extensão .exe por .scr
- Copiar para a pasta windows.
- Configuração de video - proteção de tela troquei por este programa.
- Quando o windows ativa a proteção, vc tem 30 segundos para cancelar.
- Passados os 30 segundos a maquina desliga.

No Form vc coloca um Timer1 e um Panel1.
No Panel1 vc coloca o Label1, Label2 e o Button1
Label2.caption:=´Atenção seu micro será desligado.´
Label1 - mostra o contador e ordem decrescente.

Responder

Gostei + 0

Mais tópicos