调用外部DLL获取硬盘ID

iamlimeng

有一个DiskID.dll（见附件） DiskID.rar (18.79 KB, 下载次数: 110)

2010-05-14 11:42 上传

点击文件名下载附件

，内部含有一个获取本机硬盘ID的函数，我希望用PERL代码调用它，正确获得硬盘ID。因为不熟悉调用细节，尝试了很多次都不成功，希望有经验的大虾支招。

下面是这个DLL的PASCAL调用代码：

1. unit Unit1;
   
2. 
   
3. interface
   
4. 
   
5. uses
   
6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   
7.   StdCtrls;
   
8. 
   
9. type DRIVER_INFO_OK = record
   
10.   ModalNumber : array[0..39] of char;
    
11.   SerialNumber : array [0..19] of char;
    
12.   ControlNum : array[0..7]of char;
    
13.   DriveType : dword;
    
14.   Cylinders : dword;
    
15.   Heads : dword;
    
16.   Sectors : dword;
    
17. end;
    
18. 
    
19. type
    
20.   TForm1 = class(TForm)
    
21.     Button1: TButton;
    
22.     Memo1: TMemo;
    
23.     procedure Button1Click(Sender: TObject);
    
24.   private
    
25.     { Private declarations }
    
26.   public
    
27.     { Public declarations }
    
28.   end;
    
29. function IsWinNT:boolean;
    
30.         stdcall; external 'DiskID.dll'
    
31.         name 'IsWinNT';
    
32. function ReadPhysicalDrive(driveID:integer;buffer:Pointer;bufLen:integer):integer;
    
33.         stdcall; external 'DiskID.dll'
    
34.         name 'ReadPhysicalDriveInNT';
    
35. function ReadPhysicalDrive9X(driveID:integer;buffer:Pointer;bufLen:integer):integer;
    
36.         stdcall; external 'DiskID.dll'
    
37.         name 'ReadDrivePortsInWin9X';
    
38. function getHardDriveComputerID:int64;
    
39.         stdcall; external 'DiskID.dll'
    
40.         name 'getHardDriveComputerID';
    
41. var
    
42.   Form1: TForm1;
    
43. 
    
44. implementation
    
45. 
    
46. {$R *.DFM}
    
47. 
    
48. procedure TForm1.Button1Click(Sender: TObject);
    
49. var
    
50.   x:DRIVER_INFO_OK;
    
51.   intRet:integer;
    
52. begin
    
53.   if IsWinNT then
    
54.     ReadPhysicalDrive(0,@x,256)
    
55.   else
    
56.     ReadPhysicalDrive9X(0,@x,256);
    
57. 
    
58.   Memo1.Lines.Add(x.SerialNumber);
    
59.   Memo1.Lines.Add(x.ModalNumber);
    
60.   Memo1.Lines.Add(x.ControlNum);
    
61. 
    
62.   showmessage(inttostr(getHardDriveComputerID));
    
63. end;
    
64. 
    
65. end.
    

复制代码

redskywy

Win32::API可以实现的吧.

1. 
   
2. use Win32::API;
   
3. 
   
4. Win32::API::Struct->typedef('MYTYPE', qw(
   
5.         char ModalNumber[39];
   
6.         char SerialNumber[19];
   
7.         char ControlNum[7];
   
8.         DWORD DriveType;
   
9.         DWORD Cylinders;
   
10.         DWORD Heads;
    
11.         DWORD Sectors;
    
12. ));
    
13. 
    
14. $p = Win32::API::Struct->new('MYTYPE');
    
15. $p->{align} = 'auto';
    
16. 
    
17. $f = Win32::API->new('DiskID.dll', 'int ReadPhysicalDriveInNT(int a, MYTYPE p , int n)');
    
18. 
    
19. $rs = $f->Call(0, $p, 255);
    
20. print($p->{ModalNumber});
    

复制代码

dugu072_cu

据我知道的，Perl 5 似乎没有可以直接调用 dll 的可能，都是通过 xs 调用的，但 xs 要求你有 dll 的源码……
python 等脚本貌似都能支持 dll 直接调用了，perl6 应该会支持了～

iamlimeng

据我所知，是可以通过win32::api调用的，但可能在某些情况下不能调用。

nuclearxin

尝试第三方 module  
cpan有 关于硬盘序列号的 module吧

dugu072_cu

学习了哦，真没有用过这个模块，Win32下的几个模块，真的很强大啊，要好好研究一下～

iamlimeng

非常感谢redskywy，现在除了SerialNumber，其他的都能获取了。看有没有高手把SerialNumber也正确获取，再一起给分。

dugu072_cu

数组大小定义的有点问题，修改之，就可以获取serialnumber了~
Win32::API::Struct->typedef('MYTYPE', qw(
        char ModalNumber[40];
        char SerialNumber[20];
        char ControlNum[8];
        DWORD DriveType;
        DWORD Cylinders;
        DWORD Heads;
        DWORD Sectors;
));

redskywy

看了$p->{buffer}的内容做了下调整的
要把字符串的结束标志这个长度加进去不然会导致其它的成员无法取到

1. 
   
2. Win32::API::Struct->typedef('MYTYPE', qw(
   
3.         char ModalNumber[41];
   
4.         char SerialNumber[21];
   
5.         char ControlNum[11];
   
6.         DWORD DriveType;
   
7.         DWORD Cylinders;
   
8.         DWORD Heads;
   
9.         DWORD Sectors;
   
10. ));
    

复制代码

flw

据我知道的，Perl 5 似乎没有可以直接调用 dll 的可能，都是通过 xs 调用的，但 xs 要求你有 dll 的源码…… ...
dugu072_cu 发表于 2010-05-14 15:54

我给你更正一下你这条记忆：
Perl5 是可以直接调用 dll 的。
事实上不光 Perl5 可以，所有的支持 C 扩展的语言都可以。

这个结论可以直接从你已有的知识当中经过逻辑推理得到。
试想如果不支持直接调用 dll，但支持 xs 扩展，
而 xs 扩展里是可以调用任何 dll 的，然后写一个叫做 I::Can::Call::Any::Dll 的 xs 扩展不就可以了？