Советы по Delphi
Точное определение даты установки Windows
Vitaliy Jungle приводит следующий код:
|
var reg:Tregistry; begin reg:=Tregistry.create; reg.RootKey:=HKEY_LOCAL_MACHINE; reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Detect',false); Edit1.Text:=reg.ReadString('TimeStamp'); reg.CloseKey; reg.Free; end; |
[001960]
