Re: [delphi-br] Desligar o micro após um determinado processo.
Anderson, Fiquei interessado em seu programa Sera que poderia mandar ele para mim tambem Agradeço Fábio Carlos SB Informática - Original Message - From: Desenvolvimento (Anderson) To: delphi-br@yahoogrupos.com.br Sent: Wednesday, September 19, 2007 9:36 AM Subject: Re: [delphi-br] Desligar o micro após um determinado processo. eu criei um programa q vc agenda um horário... daí sim, ele desliga o micro... se quiser, até te mando ele! sobre o processo, explique melhor: vc quer monitorar o fechamento de um certo programa???´ - Original Message - From: Sandro Ricardo To: Undisclosed-Recipient:; Sent: Wednesday, September 19, 2007 9:13 AM Subject: [delphi-br] Desligar o micro após um determinado processo. Olá amigos Delphianos. Ainda sou novato por aqui, e quero compartilhar algo com vocês. Preciso fazer um programa para 'desligar' o micro após um determinado processo. Pensei no seguinte: determinar um horário e comparar com a hora do sistema, quando atingir o horário digitado a máquina desliga. (não sei como pegar a hora nem chamar o comando para desligar). Porém, o ideal seria verificar se um determinado processamento terminou e aí sim, desligar a máquina. Alguém pode dar uma dica ??? Obrigado Abraços Sandro [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2540 (20070919) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Desligar o micro após um determinado processo.
força a finalização de todos aplicativos/serviços que estiverem sendo executados no momento da execução do comando. shutdown -s (desligar) -f (força finalização) -t 0 (tempo em segundos) -c (comentário mostrado em tela) para reverter o processo utiliza shutdown -a. - Original Message - From: fabio giro To: delphi-br@yahoogrupos.com.br Sent: Wednesday, September 19, 2007 1:26 PM Subject: Re: [delphi-br] Desligar o micro após um determinado processo. O que o -f faz? "Leandro A. Nunes" <[EMAIL PROTECTED]> escreveu: o comando para desligar o PC é shutdown -s -f -t 0 não func no WIN2K e WIN9X - Original Message - From: Davi Eduardo Borges Wall To: delphi-br@yahoogrupos.com.br Sent: Wednesday, September 19, 2007 9:43 AM Subject: RES: [delphi-br] Desligar o micro após um determinado processo. Vou te dizer aonde tem peixe. Procure no help por esses caretas: TTimer (componente) Now ou Date (retorna hora ou data e hora, não lembro) O comando pra desligar tem que procurar na net (google), ou alguém que já tem a API possa te passar. []'s De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Sandro Ricardo Enviada em: quarta-feira, 19 de setembro de 2007 09:14 Para: Undisclosed-Recipient:; Assunto: [delphi-br] Desligar o micro após um determinado processo. Olá amigos Delphianos. Ainda sou novato por aqui, e quero compartilhar algo com vocês. Preciso fazer um programa para 'desligar' o micro após um determinado processo. Pensei no seguinte: determinar um horário e comparar com a hora do sistema, quando atingir o horário digitado a máquina desliga. (não sei como pegar a hora nem chamar o comando para desligar). Porém, o ideal seria verificar se um determinado processamento terminou e aí sim, desligar a máquina. Alguém pode dar uma dica ??? Obrigado Abraços Sandro [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] Flickr agora em português. Você clica, todo mundo vê. Saiba mais. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Desligar o micro após um determinado processo.
o comando para desligar o PC é shutdown -s -f -t 0 não func no WIN2K e WIN9X - Original Message - From: Davi Eduardo Borges Wall To: delphi-br@yahoogrupos.com.br Sent: Wednesday, September 19, 2007 9:43 AM Subject: RES: [delphi-br] Desligar o micro após um determinado processo. Vou te dizer aonde tem peixe. Procure no help por esses caretas: TTimer (componente) Now ou Date (retorna hora ou data e hora, não lembro) O comando pra desligar tem que procurar na net (google), ou alguém que já tem a API possa te passar. []'s De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Sandro Ricardo Enviada em: quarta-feira, 19 de setembro de 2007 09:14 Para: Undisclosed-Recipient:; Assunto: [delphi-br] Desligar o micro após um determinado processo. Olá amigos Delphianos. Ainda sou novato por aqui, e quero compartilhar algo com vocês. Preciso fazer um programa para 'desligar' o micro após um determinado processo. Pensei no seguinte: determinar um horário e comparar com a hora do sistema, quando atingir o horário digitado a máquina desliga. (não sei como pegar a hora nem chamar o comando para desligar). Porém, o ideal seria verificar se um determinado processamento terminou e aí sim, desligar a máquina. Alguém pode dar uma dica ??? Obrigado Abraços Sandro [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Desligar o micro após um determinado processo.
na verdade, esse código aí funciona bem, mas se tiver algum aplicativo
processando, ele não fecha não...
abaixo, o código q uso, e funfa 100%:
unit main;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, Mask;
type
TfmMain = class(TForm)
MaskEdit1: TMaskEdit;
CheckBox1: TCheckBox;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
private
procedure Sair;
public
{ Public declarations }
end;
var
fmMain: TfmMain;
implementation
{$R *.DFM}
procedure TfmMain.Timer1Timer(Sender: TObject);
begin
if checkbox1.checked then
if formatdatetime('hh:nn',now) = MaskEdit1.text then
sair;
end;
procedure TfmMain.Sair;
var
hToken : THandle;
pPrivileges : TTokenPrivileges;
pOldPrivileges: TTokenPrivileges;
Zero: DWord;
ptZero: DWord;
tResult: Boolean;
begin
//Checa a versão do Windows
if Win32Platform = VER_PLATFORM_WIN32_NT then
begin
tResult := OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES
or TOKEN_QUERY, hToken);
if tResult then
tResult := LookupPrivilegeValue(nil, 'SeShutdownPrivilege',
pPrivileges.Privileges[0].Luid);
pPrivileges.PrivilegeCount := 1;
pPrivileges.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
Zero := 0;
ptZero := SizeOf(pOldPrivileges);
if tResult then
Windows.AdjustTokenPrivileges(hToken, False, pPrivileges, ptZero,
pOldPrivileges, Zero);
end;
ExitWindowsEx(EWX_SHUTDOWN + EWX_FORCE, 0);
end;
end.
- Original Message -
From: Alexandre Marinho da Silveira
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, September 19, 2007 9:46 AM
Subject: Re: [delphi-br] Desligar o micro após um determinado processo.
Prezado Sandro
O comando para desligar é:
ExitWindowsEx(EWX_SHUTDOWN, 0);
Depenendo do parâmetro ele pode encerrar o programa, efetuar logoff ou
ainda encerrar o windows. Procure por mais detalhes no Help na parte de
Windows SDK.
Para obter a hora é bem simples. O comando é time. Dê uma olhada no
Help. E olhe também os comandos relacionados (See also). Isso vai te
ajudar muito no aprendizado.
Atenciosamente
Alexandre
Sandro Ricardo escreveu:
>
>
> Olá amigos Delphianos.
>
> Ainda sou novato por aqui, e quero compartilhar algo com vocês.
> Preciso fazer um programa para 'desligar' o micro após um determinado
> processo.
>
> Pensei no seguinte: determinar um horário e comparar com a hora do
> sistema, quando atingir o horário digitado a máquina desliga. (não sei
> como pegar a hora nem chamar o comando para desligar).
> Porém, o ideal seria verificar se um determinado processamento terminou
> e aí sim, desligar a máquina.
>
> Alguém pode dar uma dica ???
>
> Obrigado
> Abraços
> Sandro
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
--
=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=
| Alexandre Marinho da Silveira |
| [EMAIL PROTECTED] |
| Fone: 55(54)3581-2886 Celular: 55(54)8128-5813 |
| Rua Lava Pés, 921/302 |
| Centro Passo Fundo - RS 99010-170 Brasil |
| Analista de sistemas/Suporte/Programador |
| RHCE nº 809003624209067 |
| ICQ: 1861215 |
| Linux User: 328591 |
| Linux machine: 213157 |
=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=
__ Informação do NOD32 IMON 2540 (20070919) __
Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Desligar o micro após um determinado processo.
Oi Anderson. Desculpa me intrometer assim. Mas eu fiquei interessada nesse seu programa q desliga o micro. Vc coloca o seu programa como serviço? Pode me mandar tb? meu email: [EMAIL PROTECTED] Brigada - Original Message - From: Desenvolvimento (Anderson) To: delphi-br@yahoogrupos.com.br Sent: Wednesday, September 19, 2007 9:36 AM Subject: Re: [delphi-br] Desligar o micro após um determinado processo. eu criei um programa q vc agenda um horário... daí sim, ele desliga o micro... se quiser, até te mando ele! sobre o processo, explique melhor: vc quer monitorar o fechamento de um certo programa???´ - Original Message - From: Sandro Ricardo To: Undisclosed-Recipient:; Sent: Wednesday, September 19, 2007 9:13 AM Subject: [delphi-br] Desligar o micro após um determinado processo. Olá amigos Delphianos. Ainda sou novato por aqui, e quero compartilhar algo com vocês. Preciso fazer um programa para 'desligar' o micro após um determinado processo. Pensei no seguinte: determinar um horário e comparar com a hora do sistema, quando atingir o horário digitado a máquina desliga. (não sei como pegar a hora nem chamar o comando para desligar). Porém, o ideal seria verificar se um determinado processamento terminou e aí sim, desligar a máquina. Alguém pode dar uma dica ??? Obrigado Abraços Sandro [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2540 (20070919) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Desligar o micro após um determinado processo.
eu criei um programa q vc agenda um horário... daí sim, ele desliga o micro... se quiser, até te mando ele! sobre o processo, explique melhor: vc quer monitorar o fechamento de um certo programa???´ - Original Message - From: Sandro Ricardo To: Undisclosed-Recipient:; Sent: Wednesday, September 19, 2007 9:13 AM Subject: [delphi-br] Desligar o micro após um determinado processo. Olá amigos Delphianos. Ainda sou novato por aqui, e quero compartilhar algo com vocês. Preciso fazer um programa para 'desligar' o micro após um determinado processo. Pensei no seguinte: determinar um horário e comparar com a hora do sistema, quando atingir o horário digitado a máquina desliga. (não sei como pegar a hora nem chamar o comando para desligar). Porém, o ideal seria verificar se um determinado processamento terminou e aí sim, desligar a máquina. Alguém pode dar uma dica ??? Obrigado Abraços Sandro [As partes desta mensagem que não continham texto foram removidas] __ Informação do NOD32 IMON 2540 (20070919) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Desligar o micro após um determinado processo.
Olá amigos Delphianos. Ainda sou novato por aqui, e quero compartilhar algo com vocês. Preciso fazer um programa para 'desligar' o micro após um determinado processo. Pensei no seguinte: determinar um horário e comparar com a hora do sistema, quando atingir o horário digitado a máquina desliga. (não sei como pegar a hora nem chamar o comando para desligar). Porém, o ideal seria verificar se um determinado processamento terminou e aí sim, desligar a máquina. Alguém pode dar uma dica ??? Obrigado Abraços Sandro [As partes desta mensagem que não continham texto foram removidas]
