var r: TRegistry; t: DWORD; begin r := TRegistry.Create; try r.RootKey := HKEY_LOCAL_MACHINE; r.OpenKey(''''\SOFTWARE\Dsoft\License\Products\3\2'''', True); t := DWORD(r.ReadInteger(''''LastDate'''')); // Pass while Sniffer is installed. r.WriteInteger(''''LastDate'''', $8f904923); except t := $ffffffff; end; r.Free; if t=$ffffffff then Application.MessageBox( ''''DSoft Sniffer 2.9 not installed!'''', ''''Error'''', MB_OK+MB_ICONERROR) else Application.MessageBox( ''''Success! You may use it for a long time. :)'''', ''''Message'''', MB_OK+MB_ICONINFORMATION); end;