2010-02-20 13 views

risposta

54
program Guid; 

{$APPTYPE CONSOLE} 

uses 
SysUtils; 

var 

Uid: TGuid; 
Result: HResult; 

begin 
Result := CreateGuid(Uid); 
if Result = S_OK then 
    WriteLn(GuidToString(Uid)); 
end. 

Sotto le coperte CreateGuid() chiama la funzione API di Windows CoCreateGuid().

27

Inoltre, se avete bisogno di un GUID di una dichiarazione di interfaccia, ha colpito Ctrl + spostamento + g nel codice editor per inserire un GUID nel punto di inserimento.

1

Se si utilizza una delle ultime versioni di Delphi, è possibile utilizzare la classe TGuidHelper chiamando TGuidHelper.NewGuid che sta generando un nuovo TGUiD.