Cambiar fecha y hora de windows

[emeceuy]

Hola...

Quería saber si hay alguna forma (componente o código de Delphi) que me permita cambiar la fecha y hora del sistema.
Muchas gracias por todo

saludos

mArCe

[Keiso]

Simplemente tienes que recurrir a la función SetSystemTime(MyNewTime), donde MyNewTime es una estructura del tipo _SYSTEMTIME. Ejemplo:

var
MyNewTime: _SYSTEMTIME;
begin
// primero llenamos la estructura
with MyNewTime do
begin
wYear := 2004; // año
wMonth := 8; // agosto
wDayOfWeek := 5; // jueves
wDay := 19; // día del mes
wHour := 01; // hora
wMinute := 55; // minutos
wSecond := 00; // segundos
wMilliseconds:= 00; // milisegundos
end;
// luego la aplicamos
SetSystemTime(MyNewTime);

Saludos

Keiso

[dfarias]

He utilizado esta funcion en XP y funciona correctamente pero en los PC con w.vista no. Alguna sugerencia.:( Gracias.

[mcs]

He utilizado esta funcion en XP y funciona correctamente pero en los PC con w.vista no. Alguna sugerencia.:( Gracias.

Es normal. En los Windows Vista y 7 (tambien en los NT, 2000 y XP, dependiendo de como esten configurados) se necesitan permisos de administrador para cambiar la fecha o la hora. La única opción (creo) que es ejecutar tu aplicación como administrador (botón derecho encima del icono, y seleccionar "Ejecutar como administrador").

Saludos,

Marc

[escafandra]

Trata de usar el truco 463 (http://www.clubdelphi.com/trucos/index.php?id=463).

Saludos.

[pinchaman]

uses ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
var

begin

ShellExecute(Handle, 'open', 'control', 'date/time', nil, SW_SHOW);

ENd;

De nada ..... es mi primer aporte jaajaj