Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.28;
Скачать: CL | DM;

Вниз

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

 
LelikK   (2001-11-25 21:41) [0]

Хотелось бы из Дельфи изменить дату.Как это сделать?


 
Tosov ©   (2001-11-25 22:37) [1]


procedure TForm1.Button1Click(Sender: TObject);
var
St:_SYSTEMTIME;
hToken:THandle;
privValue:Int64;
tkp:TOKEN_PRIVILEGES;
ReturnLength:Cardinal;
begin
//---------Если не хватает привилегий
if not OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken )
then ShowMessage("OpenProcessError");
if not LookupPrivilegeValue( nil, "SeSystemTimePrivilege", privValue )
then begin
CloseHandle(hToken);
ShowMessage("LookupPriv Error");
end;

tkp.PrivilegeCount:= 1;
tkp.Privileges[0].Luid := privValue;
tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
if not AdjustTokenPrivileges(hToken,false,tkp,SizeOf(tkp),tkp,ReturnLength)
then showmessage("privilege error");
CloseHandle( hToken );

// ------------ увеличиваем год на 1
GetSystemTime(St);
inc(St.wYear);
SetSystemTime(st);



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

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

Наверх




Память: 0.46 MB
Время: 0.009 c
1-90597
Sleepyhead (http://www.excelsior-usa.com/)
2002-02-03 14:18
2002.02.28
Некоторые замечания к статье


1-90539
Faster
2002-02-09 13:36
2002.02.28
Подскажите, как в Delphi6 вызвать из одной процедуры другую?


1-90586
Michael C
2002-02-12 10:27
2002.02.28
Поиск в строке 3ей запятой...


7-90678
ISA
2001-11-25 12:40
2002.02.28
Работа с COM-портом


14-90658
Mz
2002-01-15 10:19
2002.02.28
Статья