Desligra Computer

[Perfect Lion]

alguém sabe onde eu encontro um script que faz com que eu programe o windows para deligar tal hora...?

porque eu deixo o meu computer do meu trampo fazendo backup depois que eu saio para ir embora.....Então eu gostaria de desligar quando terminar o backup..?

[bolomaster]

alguém sabe onde eu encontro um script que faz com que eu programe o windows para deligar tal hora...?

porque eu deixo o meu computer do meu trampo fazendo backup depois que eu saio para ir embora.....Então eu gostaria de desligar quando terminar o backup..?

Bem brother ta alguns comandos que você pode colocar no button agora para ele ter uma determinada hora, ou um determinado tempo, você pode colocar um timer, e fazer a programação com o timer ok ?

//Reiniciar o Windows

ExitWindowsEx(EWX_REBOOT,0);

//Desligar o Windows

ExitWindowsEx(EWX_SHUTDOWN,0);

//Força todos os programas a se desligarem

ExitWindowsEx(EWX_FORCE,0);

[Perfect Lion]

E para colocar a hora que eu quero que desligue... e que eu num sei mecher com o time e suas propriedades....

[bolomaster]

procedure TForm1.Timer1Timer(Sender: TObject);

begin

timer1.enabled:=False;

  hide;

ExitWindowsEx(EWX_SHUTDOWN,0);

end;

end.

ai você coloca la no object inspecto o tempo necessario para desligar na propriedade interval tipo 150000 ok fui

abraços

[sem ideia p/ nick]

fala ae galera eu to tendo aula de delphi no colegio agora, então acho que vou passar a postar bastante aki...seguinte:

eu testei o negocio dos comando pra desligar tal, eu botei um time e un checkbox pro usuario escolher entre reiniciar desligar e dar logoff....mais so o logoff funciona..os outros comandos não dao erro não inicia o programa, mais so o logoff que funciona...

eu uso windows xp profissional ....isso influencia em alguma coisa ??

valeu

[bolomaster]

brother não sei se influencia não posta a unit para eu ver ok

abraços ate ++

Rafael Marciano

[sem ideia p/ nick]

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Menus, StdCtrls, ExtCtrls, Mask;

type

TWin_OF = class(TForm)

Radio1: TRadioButton;

Radio2: TRadioButton;

RadioButton3: TRadioButton;

Button1: TButton;

MainMenu1: TMainMenu;

Arquivo1: TMenuItem;

Sair1: TMenuItem;

Executar1: TMenuItem;

Timer1: TTimer;

Label1: TLabel;

MaskEdit1: TMaskEdit;

Label2: TLabel;

Bevel1: TBevel;

procedure Sair1Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure Executar1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Win_OF: TWin_OF;

implementation

{$R *.dfm}

procedure TWin_OF.Sair1Click(Sender: TObject);

begin

close;

end;

procedure TWin_OF.Button1Click(Sender: TObject);

begin

if Radio1.Checked=true then

ExitWindowsEx(EWX_LOGOFF,127);

if radio2.Checked=true then

exitwindowsex(EWX_REBOOT,100);

if RadioButton3.checked=true then

exitwindowsex(Ewx_SHUTDOWN,100);

end;

procedure TWin_OF.Timer1Timer(Sender: TObject);

begin

label1.Caption:=timetostr(time);

if MaskEdit1.Text=label1.Caption then

begin

ShowMessage('Em alguns pcs isso não ira funcionar!');

if Radio1.Checked=true then

ExitWindowsEx(EWX_LOGOFF,50);

if radio2.Checked=true then

exitwindowsex(EWX_REBOOT,2);

if RadioButton3.checked=true then

exitwindowsex(EWX_SHUTDOWN,3);

end

end;

procedure TWin_OF.Executar1Click(Sender: TObject);

begin

if Radio1.Checked=true then

ExitWindowsEx(EWX_LOGOFF,50);

if radio2.Checked=true then

exitwindowsex(EWX_FORCEIFHUNG,2);

if RadioButton3.checked=true then

exitwindowsex(EWX_SHUTDOWN,3);

end;

end.

[bolomaster]

bem aconselho a você usar a força bruta nele para teste porque no meu aqui rodou perfeitamente winxp

// força todos os programas a se desligarem

ExitWindowsEx(EWX_FORCE,0);

ok vai substituindo o seu shutdown por force ok

abraços e espero que resolva

Rafael Marciano

[Guest - Mauro Junior -]

fala ae galera eu to tendo aula de delphi no colegio agora, então acho que vou passar a postar bastante aki...seguinte:

eu testei o negocio dos comando pra desligar tal, eu botei um time e un checkbox pro usuario escolher entre reiniciar desligar e dar logoff....mais so o logoff funciona..os outros comandos não dao erro não inicia o programa, mais so o logoff que funciona...

eu uso windows xp profissional ....isso influencia em alguma coisa ??

valeu

Comigo também aconteceu o mesmo problema

[sem ideia p/ nick]

o force... fecha os programas...sim...ae vai pra tela de logoff

[piradox]

Tem que ver tb se num tá com um usuário fraquinho q não seja o administrador

[sem ideia p/ nick]

mais cara, aki na minha eu sou adm, agora e como e feito então para desligar um pc que não esteje logado como adm?

[Perfect Lion]

Como eu faço para colocar tal horario para desligar o computer? por exemplo desligue as 20:00 h como eu faço isso?

[sem ideia p/ nick]

usa o time... .timetostr(time) e usa um edit para verificar o digitado com o atual, dai então voce tentar poe esse comando pra desligar que aki nun funciona...sempre vai pra tela de logoff