Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 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);



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

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

Наверх




Память: 0.44 MB
Время: 0.006 c
1-90568
var
2002-02-11 21:34
2002.02.28
StringGrid


14-90659
Pokemon
2002-01-15 11:22
2002.02.28
Помогите друзья !!!!!!!!!!


1-90598
DJ X
2002-02-03 16:17
2002.02.28
HTML


3-90480
Demon ltd
2002-02-03 23:31
2002.02.28
Удаление из базы


4-90695
mikrom
2001-12-28 15:07
2002.02.28
Выгрузка DLL





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский