Frodo_Torbins
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: Buf: array[0..255] of Byte;
...
FillMemory(@Buf, SizeOf(Buf), 0);
reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('SYSTEM\CurrentControlSet\Data', false);
REG.ReadBinaryData('Data', Buf, SizeOf(Buf));
ii:=1;
if ((Buf[ii]=$00) and (Buf[ii+1]=$d3)) then
begin
TmpDate := EncodeDate(2000 + Buf[ii+3], Buf[ii+2], Buf[ii+4]);
TmpDate := IncDay(TmpDate, 50);
Buf[ii+3] := YearOf(TmpDate) - 2000;
Buf[ii+2] := MonthOf(TmpDate);
Buf[ii+4] := DayOf(TmpDate);
end; |
|
