Làm cách nào tôi có thể sử dụng GetVolumeInformation trong Cài đặt Inno?

Question

Tôi cần lấy số sê-ri cho một ký tự ổ đĩa trong khi cài đặt được tạo bằng Cài đặt Inno. Tôi biết rằng chức năng DLL có thể được nhập vào Inno, nhưng tôi khá mới với nó và có một số vấn đề nhận được nó để làm việc. Tôi biết rằng các GetVolumeInformation chức năng trong kernel32 có thể làm những gì tôi cần. Ai đó có thể chỉ cho tôi cách nhập và sử dụng chức năng đó trong tập lệnh Inno để truy xuất số sêri khối lượng không?

Cảm ơn!

Answer 1

InnoSetup ::

[Code] 
function GetVolumeInformation(
    lpRootPathName: PChar; 
    lpVolumeNameBuffer: PChar; 
    nVolumeNameSize: DWORD; 
    var lpVolumeSerialNumber: DWORD; 
    var lpMaximumComponentLength: DWORD; 
    var lpFileSystemFlags: DWORD; 
    lpFileSystemNameBuffer: PChar; 
    nFileSystemNameSize: DWORD 
): BOOL; 
    external 'GetVolumeInformationA@kernel32.dll stdcall'; 


function LoWord(dw: DWORD): WORD; 
begin 
    Result := WORD(dw); 
end; 

function HiWord(dw: DWORD): WORD; 
begin 
    Result := WORD((dw shr 16) and $FFFF); 
end; 

function WordToHex(w: WORD): string; 
begin 
    Result := Format('%.4x', [w]); 
end; 

function FindVolumeSerial(const Drive: string): string; 
var 
    FileSystemFlags: DWORD; 
    VolumeSerialNumber: DWORD; 
    MaximumComponentLength: DWORD; 
begin 
    Result := ''; 
    // Note on passing PChars using RemObjects Pascal Script: 
    // '' pass a nil PChar 
    // #0 pass an empty PChar  
    if GetVolumeInformation(
    PChar(Drive), 
    '', // nil 
    0, 
    VolumeSerialNumber, 
    MaximumComponentLength, 
    FileSystemFlags, 
    '', // nil 
    0) 
    then 
    Result := WordToHex(HiWord(VolumeSerialNumber)) + '-' + WordToHex(LoWord(VolumeSerialNumber)); 
end; 

function InitializeSetup(): Boolean; 
begin 
    MsgBox(FindVolumeSerial('c:\'), mbInformation, mb_Ok); 
end; 

---

Thử nghiệm với Inno- phiên bản thiết lập 5.2.3
Trong các phiên bản Unicode của Inno-Setup thay thế PChar bằng PAnsiChar

Answer 2

Vì InnoSetup không hỗ trợ con trỏ, bạn sẽ phải tạo thư viện bên ngoài để gọi hàm GetVolumeInformation. Các mẫu mã sau đây sẽ làm việc cho tất cả các kết hợp của Delphi và InnoSetup (từ điểm hỗ trợ Unicode).

Dưới đây là mã thư viện Delphi:

library VolumeInformation; 

uses 
    Types, Classes, SysUtils, Windows; 

var 
    SerialNumber: AnsiString; 

function GetVolumeSerial(Drive: PAnsiChar): PAnsiChar; stdcall; 
var 
    FileSystemFlags: DWORD; 
    VolumeSerialNumber: DWORD; 
    MaximumComponentLength: DWORD; 
begin 
    SerialNumber := ''; 
    GetVolumeInformationA(Drive, nil, 0, @VolumeSerialNumber, 
    MaximumComponentLength, FileSystemFlags, nil, 0); 
    SerialNumber := IntToHex(HiWord(VolumeSerialNumber), 4) + ' - ' + 
    IntToHex(LoWord(VolumeSerialNumber), 4); 
    Result := PAnsiChar(SerialNumber); 
end; 

exports 
    GetVolumeSerial; 

end. 

Và đây là mã InnoSetup: Mã

[Files] 
Source: "VolumeInformation.dll"; Flags: dontcopy 

[Code] 

function GetVolumeSerial(Drive: PAnsiChar): PAnsiChar; 
    external 'GetVolumeSerial@files:VolumeInformation.dll stdcall setuponly'; 

procedure ButtonOnClick(Sender: TObject); 
var 
    S: string; 
begin 
    S := GetVolumeSerial('c:\'); 
    MsgBox(S, mbInformation, mb_Ok); 
end;