Cách tạo GUID mới trong Cài đặt Inno?

Question

Có cách nào để tạo GUID mới từ bên trong tập lệnh Inno Setup không?

Answer 1

Các mặt hàng này về lưu trữ nhóm tin InnoSetup:

http://news.jrsoftware.org/news/innosetup/msg76234.html

tôi đã không kiểm tra nó.

[Code] 

type 
    TGUID = record 
    D1: LongWord; 
    D2: Word; 
    D3: Word; 
    D4: array[0..7] of Byte; 
    end; 

function CoCreateGuid(var Guid:TGuid):integer; 
external 'CoCreateGuid@ole32.dll stdcall'; 

function inttohex(l:longword; digits:integer):string; 
var hexchars:string; 
begin 
hexchars:='ABCDEF'; 
setlength(result,digits); 
while (digits>0) do begin 
    result[digits]:=hexchars[l mod 16+1]; 
    l:=l div 16; 
    digits:=digits-1; 
end; 
end; 

function GetGuid(dummy:string):string; 
var Guid:TGuid; 
begin 
    if CoCreateGuid(Guid)=0 then begin 
    result:='{'+IntToHex(Guid.D1,8)+'-'+ 
      IntToHex(Guid.D2,4)+'-'+ 
      IntToHex(Guid.D3,4)+'-'+ 
      IntToHex(Guid.D4[0],2)+IntToHex(Guid.D4[1],2)+'-'+ 
      IntToHex(Guid.D4[2],2)+IntToHex(Guid.D4[3],2)+ 
      IntToHex(Guid.D4[4],2)+IntToHex(Guid.D4[5],2)+ 
      IntToHex(Guid.D4[6],2)+IntToHex(Guid.D4[7],2)+ 
      '}'; 
    end else 
    result:='{00000000-0000-0000-0000-000000000000}'; 
end; 

function InitializeSetup(): Boolean; 
begin 
    MsgBox(GetGuid(''), mbInformation, MB_OK); 
    Result := False; 
end; 

Answer 2

Bạn có thể thực hiện việc này bằng cách gọi hàm Windows API CoCreateGuid (trong "OLE32.dll"), mà bạn khai báo bên trong phần [Mã] trong tập lệnh của bạn. Xin lỗi, tôi đã không sử dụng thiết lập Inno trong một thời gian vì vậy tôi không biết chính xác làm thế nào để làm điều này. Để giúp đỡ, đây là một lời tuyên bố mẫu API cho GetWindow() chức năng:

Function GetWindow (HWND: Longint; uCmd: cardinal): Longint; 
    external 'GetWindow@user32.dll stdcall'; 

Và đây là một liên kết đến một mẫu VB cho việc sử dụng CoCreateGuid:

http://support.microsoft.com/kb/176790

Một nơi nào đó trong tất cả điều này là của bạn câu trả lời.

Answer 3

Dưới đây là một việc thực hiện phần nào sạch của FormatGuid, không có chức năng hex-định dạng không cần thiết (chúng ta có gì Format cho ?!):

function FormatGuid(Guid:TGuid):string; 
begin 
    result:=Format('%.8x-%.4x-%.4x-%.2x-%.2x-%.2x-%.2x-%.2x-%.2x-%.2x-%.2x', [Guid.D1, Guid.D2, Guid.D3, Guid.D4[0], Guid.D4[1], Guid.D4[2], Guid.D4[3], Guid.D4[4], Guid.D4[5], Guid.D4[6], Guid.D4[7]]); 
end; 

Bạn vẫn cần phải xác định TGuid và nhập CoCreateGuid như trong các câu trả lời khác:

type 
    TGuid = record 
    D1: LongWord; 
    D2: Word; 
    D3: Word; 
    D4: array[0..7] of Byte; 
    end; 

function CoCreateGuid(var Guid:TGuid):integer; 
external 'CoCreateGuid@ole32.dll stdcall'; 

Answer 4

Tôi đã sử dụng giải pháp này một thời gian (chạy 5.5.0 (a) và 5.5. 1 (a)).

Tuy nhiên, khi tôi cập nhật lên 5.5.2 (u) - tập lệnh xây dựng của tôi không thành công do lỗi loại trùng lặp: 'TGUID'.

Để khắc phục nó, tôi đã phải loại bỏ:

type 
    TGUID = record 
    D1: LongWord; 
    D2: Word; 
    D3: Word; 
    D4: array[0..7] of Byte; 
    end; 

này chỉ xảy ra trên các phiên bản Unicode - có nghĩa 5.5.2 (u) đã tích hợp sẵn trong loại GUID.