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

Вниз

Люди помогите плииииииииииизззз!!!!!!!!!   Найти похожие ветки 

 
Lot ©   (2002-06-28 01:24) [0]

Как в дельфи поменять системное время и дату ??????????


 
nimble ©   (2002-06-28 02:37) [1]

Для этого существуют процедуры SetLocalTime и SetSystemTime, которые устанавливают местное время и системное время (в формате UTC) procedure GetSystemTime(var lpSystemTime: TSystemTime);

где TSystemTime есть тип-запись, определенная следующим образом:


TSystemTime = record
wYear: Word;
wMonth: Word;
wDayOfWeek: Word;
wDay: Word;
wHour: Word;
wMinute: Word;
wSecond: Word;
wMilliseconds: Word;
end;




 
MARcoDEN ©   (2002-06-28 07:33) [2]

function SetTime(DateTime:TDateTime):Boolean;
var
st:TSystemTime;
ZoneTime: TTimeZoneInformation;
begin
GetTimeZoneInformation(ZoneTime);
DateTime:=DateTime+ZoneTime.Bias/1440;
with st do begin
DecodeDate(DateTime,wYear,wMonth,wDay);
DecodeTime(DateTime,wHour,wMinute,wSecond,wMilliseconds);
end;
result:=SetSystemTime(st);
end;



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

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

Наверх




Память: 0.47 MB
Время: 0.018 c
14-47777
fnatali
2002-06-14 12:21
2002.07.15
Наши проиграли... Э-эх!!!...:(


4-47884
Z-man
2002-05-13 11:58
2002.07.15
Выдать дату последнего изменения файла


14-47791
Zevsus
2002-06-15 15:06
2002.07.15
Есть БД а-ля 1С, то есть набор cdx, dbf и каких-то fpt файлов...


14-47721
PCMX
2002-06-11 16:44
2002.07.15
Где скачать?


1-47559
Дмитрий Баранов
2002-06-27 11:27
2002.07.15
Кодировки