Hola estoy tratando de cambiar solo la hora en delphi , me estoy basando en este codigo :
Código Delphi
[-]
var
MyNewTime: _SYSTEMTIME;
begin
with MyNewTime do
begin
wYear := 2004; wMonth := 8; wDayOfWeek := 5; wDay := 19; wHour := 01; wMinute := 55; wSecond := 00; wMilliseconds:= 00; end;
SetSystemTime(MyNewTime);
A lo que llegue a esto :
Código Delphi
[-]
program test;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils, ShellApi, Windows,Winapi.Messages;
function change_time():string;
var
MyNewTime: _SYSTEMTIME;
begin
with MyNewTime do
begin
wHour := 1;
end;
SetSystemTime(MyNewTime)
end;
begin
try
change_time();
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.
El tema es que este codigo no me cambia la hora ni en modo normal ni como administrador , creo que los demas parametros son obligatorios pero yo solo quiero cambiar la hora del sistema no desconfigurar todo.
Nota : Estoy usando Delphi XE2 en Windows Seven
¿ Hay alguna forma de hacer lo que quiero ?