Comment générer un nouveau GUID dans Inno Setup?

Question

Existe-t-il un moyen de générer un nouveau GUID à partir du script Inno Setup?

Answer 1

trouvé sur archives newsgroup InnoSetup:

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

Je ne l'ai pas testé.

[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

Vous pouvez le faire en appelant la fonction Windows API CoCreateGuid (dans "OLE32.dll"), que vous déclarez dans une section [Code] dans votre script. Désolé, je n'ai pas utilisé Inno Setup depuis un moment, donc je ne sais pas exactement comment faire. Pour vous aider, voici une déclaration d'API exemple pour la fonction GetWindow():

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

Et voici un lien vers un échantillon de VB pour l'utilisation CoCreateGuid:

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

Quelque part dans tout cela est votre répondre.

Answer 3

est ici une mise en œuvre un peu plus propre de FormatGuid, sans la fonction de mise en forme hexagonale inutile (qu'avons-nous Format pour ?!):

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; 

Vous devez toujours définir TGuid et importer CoCreateGuid comme dans les autres réponses:

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

J'utilisais cette solution pendant un certain temps (fonctionnant sous 5.5.0 (a) et 5.5. 1 (a)).

Cependant, lorsque j'ai mis à jour vers 5.5.2 (u) - mes scripts de construction ont échoué à cause d'une erreur de type en double: 'TGUID'.

Pour le fixer, je devais enlever:

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

Cela ne se passe sur la version Unicode - ce qui signifie 5.5.2 (u) est un type construit GUID.