Как изменить системную дату?

← →
AGGRESSOR (2002-07-03 09:22) [0]

... с помощью API, конечно. Профессионалов прошу извинить за ламерский вопрос. Не могу найти нормальной документации по API.

← →
MBo (2002-07-03 09:29) [1]

буквальный перевод вопроса
SetSystemTime

← →
easy (2002-07-03 11:41) [2]

...под XP на это дело потребуются привелегии.
вот типа этого:

Procedure TForm1.TimePrivileges();
var ph:THandle;
tp,prevst:TTokenPrivileges;
rl:DWORD;

begin
OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,ph);
LookupPrivilegeValue(Nil,"SeSystemTimePrivilege",tp.Privileges[0].Luid);
tp.PrivilegeCount:=1;
tp.Privileges[0].Attributes:=2;
AdjustTokenPrivileges(ph,FALSE,tp,SizeOf(prevst),prevst,rl);

end;

← →
easy (2002-07-03 11:45) [3]

...сорри...

Procedure TForm1.TimePrivileges();
var ph:THandle;
tp,prevst:TTokenPrivileges;
rl:DWORD;

begin
OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,ph);
LookupPrivilegeValue(Nil,"SeSystemTimePrivilege",tp.Privileges[0].Luid);
tp.PrivilegeCount:=1;
tp.Privileges[0].Attributes:=2;
AdjustTokenPrivileges(ph,FALSE,tp,SizeOf(prevst),prevst,rl);
SetSystemTime(....);
AdjustTokenPrivileges(ph,True,tp,SizeOf(prevst),prevst,rl);
end;

Как изменить системную дату? Найти похожие ветки