Witam,
Czy mógłby ktos przetłumaczyc ten kod:
uses ComObj;
// I.
procedure TForm1.FormCreate(Sender: TObject);
begin
Caption := CreateClassID;
end;
// II.
function GenerateGUID: string;
var
GUID: TGUID;
begin
if CreateGUID(GUID) = S_OK then Result := GUIDToString(GUID);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Caption := GenerateGUID;
end;
//oczywiście do BCB!! :-)
Copyright by Wotek