Текущий архив: 2002.09.02;
Скачать: CL | DM;

Вниз

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

← →
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;

---

Страницы: 1 вся ветка

Текущий архив: 2002.09.02;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.01 c