Leggi il valore GUID memorizzato nel registro

Question

Provo a leggere un valore GUID memorizzato come valore binary nel Registro di sistema in Delphi. Quando l'ho letto con BintoHex, ma il risultato è nell'ordine inverso. Sembra che io debba scambiare byte ma ho pensato che BinToHex lo avrebbe fatto.

ho denominati nel questa discussione, ma non riesco a trovare la giusta soluzione: how to convert byte array to its hex representation in Delphi Sembra che sia a causa di poco Eendian.

Qui di seguito, è possibile vedere il GUID memorizzato nel registro

Ecco il mio codice:

var 
s : string; 
buffer : pointer; 
... 

begin 
getmem(buffer, 1024*1024); 
.... 
reg.ReadBinaryData(iValueOfregistry, buffer^, 1024*1024); 
.... 
bintohex(pointer(longint(buffer)+14), PChar(s), 32); 

Uscita per s: 90E24D373F126545916439C4925E467B

GUID dovrebbe essere FOLDERID_Downloads GUID:
{374DE290-123F-4565-9164-39C4925E467B}

Aiutateci

Answer 1

un GUID in forma binaria è meglio pensato come un record. Effettivamente in Delphi il record già esiste - è TGUID.

Tutto ciò che dovete fare è copiare i byte rilevanti direttamente in una variabile di tipo TGUID e il vostro lavoro è finito. Se si desidera una rappresentazione di stringa, utilizzare GUIDToString.

var 
    GUID: TGUID; 
    strGUID: string; 
.... 
GUID := PGUID(PAnsiChar(buffer)+14)^; 
strGUID := GUIDToString(GUID); 

Questo si occuperà automaticamente di tutti i problemi di endian. Diamo uno sguardo alla dichiarazione di TGUID:

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

Il codice considera questo come un array di byte dritto. Tuttavia, nel record, D1, D2 e D3 sono tipi interi su una macchina little endian. Quindi il tuo codice inverte i primi 4 byte, quelli che appartengono a D1. Quindi inverte i due byte di D2 e anche i due byte di D3. La matrice di 8 byte alla fine del GUID non è invertita, ovviamente.

Quindi, sebbene sia possibile eseguire facilmente lo scambio di tutti i byte, è molto meglio utilizzare un record per farlo e sfruttare la funzione di supporto che converte un record GUID binario in una stringa GUID formattata correttamente.