Código Delphi [-] uses ActiveX, ComObj; procedure TForm1.Button1Click(Sender: TObject); var G: TGUID; begin OleCheck(CoCreateGuid(G)); ShowMessage(SysUtils.GUIDToString(G)); end;
uses ActiveX, ComObj; procedure TForm1.Button1Click(Sender: TObject); var G: TGUID; begin OleCheck(CoCreateGuid(G)); ShowMessage(SysUtils.GUIDToString(G)); end;