实现Delphi下的加密狗,可写狗,读狗,判断狗存在等。