[DELPHI] ALTERAR A DATA E HORA DO WINDOWS

Vamos criar um projeto que irá permitir alterar a data e/ou hora do windows diretamente via DELPHI.

1. Abra o Delphi e crie um novo projeto através do menu File -> New -> VCL Forms Application - Delphi, que será usado como a tela principal do sistema.

2. Altere as propriedade do Form conforme tabela abaixo:

Caption = Tela Principal

Name = Frm_Principal

Position = poDesktopCenter

3. Salve as alterações (File -> Save All), coloque o nome uPrincipal para Unit e Principal para o nome do projeto.

4. Adicione dois Label, dois DataTimePicker e um Button ao formulário e altere suas propriedades conforme abaixo:

Label1:

Caption = DATA

Label2:

Caption = HORA

DataTimePicker1:

Name = dtpData

DataTimePicker2:

Name = dtpHora

Kind = dtkTime

Button1:

Caption = Alterar DATA/HORA do Windows

Width = 185

5. Adicione o código ao evento OnClick do button1, que será responsável por efetivar a alteraçao da DATA/HORA do windows.

procedure TFrm_Principal.Button1Click(Sender: TObject);

var

  DataHora: TSystemTime;

  Data, Hora: TDateTime;

  Ano, Mes, Dia, H, M, S, Mil: word;

begin

  Data := (dtpData.Date);

  Hora := (dtpHora.Time);

  DecodeDate(Data, Ano, Mes, Dia);

  DecodeTime(Hora, H, M, S, Mil);

  with DataHora do

  begin

    wYear := Ano;

    wMonth := Mes;

    wDay := Dia;

    wHour := H;

    wMinute := M;

    wSecond := S;

    wMilliseconds := Mil;

  end;

  if SetLocalTime(DataHora) then

    Application.MessageBox('A Data/Hora do Windows foi alterada com sucesso.',

      'Aviso', mb_iconinformation + mb_ok)

  else

    Application.MessageBox('Não foi possíve alterar a da Data/Hora do Windows!',

      'Aviso', mb_iconinformation + mb_ok);

end;

6. Salve as alterações.

Nota: Para funcionar a aplicação deve ser executada como Administrador.

7. Pronto,execute a aplicação e altere a data/hora para ver o resultado.

Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!【ツ】