Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];




Вниз

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


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);




Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.28;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.013 c
1-90604           vovan1                2002-02-12 19:23  2002.02.28  
Компонент для работы с архиваторами


4-90717           Delphimun             2001-12-20 12:55  2002.02.28  
Как #0 сообщение от клавы о нажатии клавиши?


3-90449           alexts                2002-01-30 16:57  2002.02.28  
Вопрос по полб DateTime


7-90679           Ол11                  2001-11-26 10:49  2002.02.28  
продолжение вопроса о PCI


1-90608           Геральт               2002-02-12 18:56  2002.02.28  
Справка по RxLib