网络包探测软件 DSoft Sniffer 2.9 是不错的Shareware,但有时间限制,如何去除
呢?
以下是Delphi5写的核心部分。
var
r: TRegistry;
t: Dword;
begin
r := TRegistry.Create;
try
r.rootKey := HKEY_LOCAL_MACHINE;
r.OpenKey('SOFTWAREDsoftLicenseProducts32', 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;
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10790690/viewspace-951621/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/10790690/viewspace-951621/