| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как изменить системную дату? [D3, WinXP]
AGGRESSOR © (2002-07-03 09:22:00)... с помощью API, конечно. Профессионалов прошу извинить за ламерский вопрос. Не могу найти нормальной документации по API.
easy (2002-07-03 11:45:00) [1]...сорри...
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;
easy (2002-07-03 11:41:00) [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;
MBo (2002-07-03 09:29:00) [3]буквальный перевод вопроса
SetSystemTime
| |
