Delphi GUID[2] 获取GUID值的方式

Delphi GUID[2] 获取GUID值的方式

源码：

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

function CoCreateGuid(out guid: TGUID): HResult; stdcall; external 'ole32.dll' name 'CoCreateGuid';   function CreateGUID(out Guid: TGUID): HResult; begin   Result := CoCreateGuid(Guid); end;   function GUIDToString(const GUID: TGUID): string; var   P: PWideChar; begin   if not Succeeded(StringFromCLSID(GUID, P)) then     ConvertError(@SInvalidGUID);   Result := P;   CoTaskMemFree(P); end;

方式1：

?

1 2 3 4 5 6 7 8 9 10 11 12

function GetGUID: string; var   Guid: TGUID; begin   CreateGUID(Guid);   Result := GUIDToString(Guid); end;   procedure TForm1.BitBtn1Click(Sender: TObject); begin   ShowMessage(GetGUID); end;

方式2：

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

function Guid_Gen: ansistring; var   s,gstr: string;   i: longint; begin   s := '0123456789abcdef';     //8-4-4-4-12   gstr := 'xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx';   for i := 1 to length(gstr) do   begin     if gstr[i] = 'x' then       gstr[i] := s[Random(16) + 1];   end;   Result:=gstr; end;   procedure TForm1.BitBtn2Click(Sender: TObject); begin    ShowMessage(Guid_Gen); end;

　　

 

 

 

 

创建时间：2021.05.25　　更新时间：