delphi中调用dll中的函数来获得硬盘序列号，源码中包括了生成dll的源码。