05-17-2012، 09:20 AM
دوستان توی VS راحت میشه GUID رو ساخت و در دلفی همن توسط کد زیر میتونیم اینکاررو انجام بدیم.
کد:
var
Uid: TGUID;
result := CreateGuid(Uid);کد:
uses
ComObj, ActiveX;
function CreateGuid: string;
var
ID: TGUID;
begin
Result := '';
if CoCreateGuid(ID) = S_OK then
Result := GUIDToString(ID);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := CreateGuid;
// or: Edit1.Text := CreateClassID
end;