Генерация CLSID. Как?

[Бутаков_Сергей]

CLSID – уникальный 32-байтный (128-битный) номер, состоящий из шестнадцатеричных чисел. Первые 8 байт генерируются случайным образом, следующие четыре используются для создания текущего значения даты и времени, остальные генерируются на основе данных о конфигурации компьютера. Как правило, CLSID-номер заключается в фигурные скобки и имеет следующий формат записи: {xxxxxxxx-xxxx-xxxx-xxxxxxxxxxxx}. Стандартные объекты Windows, такие как «Панель Управления», «Корзина» во всех ОС имеют фиксированный CLSID.

Кто знает может кините исходничек или сылочку.
Заранее огромное спасибо...

[hoza_syl]

function CoCreateGuid(out guid: TGUID): HResult;

Создает уникальный глобальный идентификатор(GUID), 
используемый для идентификатора интерфейса(TIID) и идентификатора класса (CLSID).

     Паpаметpы:
guid - Возвращает созданный GUID.

     Возвpащаемое значение:
В случае успеха - S_OK
Ошибки Win32 возвращаются UuidCreate а параметре  HResult.

Комментарии

 Функция CoCreateGuid вызывает UuidCreate который создает GUID. 
Степень вероятности возврата ошибки 
черезвычайно мала ввиду того что число возможных вариантов GUID очень
 велико.  

Функция находится в файле Ole32.dll

[Бутаков_Сергей]

О господи, ты мне этим жизнь не облегчил
Пожалуйста выложите кто нибудь исходник, у меня уже голова взрывается...

[hoza_syl]

На вот:

var
myClsid : TGIUD:
begin
CoCreateGuid(myClsid);
//Это всё - результат в переменной myClsid
end;

[Бутаков_Сергей]

Не компилирует
Например у меня на форме есть listview, мне надо в первую колонку добавить имя какой нибудь библиотеки.dll, получить CLSID этой библиотеки и добавить во вторую колонку

[raxp]

лучше-бы не распыляться, вопрос по сути один http://www.programmersforum.ru/showt...E8%F2%FC+clsid

Не компилирует

шоб компилило, подключите uses activex

[hoza_syl]

получить CLSID этой библиотеки

Так тебе надо загенерить, или получить????

шоб компилило, подключите uses activex

это - раз.

А во вторых - clsid - это не строка - чтобы превратить в строку - далай так:

var sCLSID : string;
myClsid : TGIUD:
begin
CoCreateGuid(myClsid);
//Это всё - результат в переменной myClsid
StringFromCLSID(myClsid, sCLSID): 
//теперь в переменной sCLSID - строковое представление myClsid
end;

Не компилил - не знаю работает ли.

[Бутаков_Сергей]

procedure TForm1.Button1Click(Sender: TObject);
var
sCLSID: variant;
myClSID: TGUID;
begin
CoCreateGuid(myCLSID);
StringFromCLSID(myClSID, WideChar(sCLSID));

edit1.Text:= sCLSID;
end;

• Ошибка Компилятора:

Invalid typecast

[Бутаков_Сергей]

И как вообще этот фрагмент кода определит что нужно дать CLSID заранее выбранной мной библиотеки?

[hoza_syl]

Ошибка Компилятора

Попробуй так - просто компилятора под рукой нету:

StringFromCLSID(TCLSID(myClSID), WideChar(sCLSID));

И как вообще этот фрагмент кода определит что нужно дать CLSID заранее выбранной мной библиотеки?

Эта тема называется:

Генерация CLSID. Как?

- ГЕНЕРАЦИЯ, а не определение!
Я нигде не увидел вопроса "как узнать CLSID выбранной мной библиотеки?"