Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros temas > Trucos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Los mejores trucos

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 30-06-2006
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.119
Poder: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Cambiar fecha y hora del sistema desde la aplicación

Cambiar fecha y hora del sistema desde la aplicación

Se puede utilizar la estructura TsystemTime. Se dan valores a ésta y se pasa a la función SetSystemTime.

Se ha de completar tanto la fecha como la hora para evitar que tome valores absurdos y que la función devuelva falso.

También hay que tener en cuenta las diferencias horarias (una o dos horas), pues las considera en las modificaciones.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  fecha:TSystemTime;
begin
  fecha.wyear:=1998;
  fecha.wMonth:=12;
  fecha.wDayofWeek:=5;
  fecha.wDay:=31;
  fecha.wHour:=15;
  Fecha.wMinute:=30;
  Fecha.wSecond:=0;
  Fecha.wMilliseconds:=0;
  if not SetSystemTime(Fecha) then
    showmessage('Error de cambio de fecha-hora');
end;
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 01:26:07.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi