Jak wygenerować programowo CLSID

Służy do tego funkcja API: CoCreateGUID. Znajduje się w module Ole2.

uses Ole2;
var
  Guid: TGUID;
begin
  CoCreateGUID(Guid);
end;

Problemy, na jakie możecie natrafić to:

1. Delphi pokaże, że nie ma modułu Ole2.dcu. Jak zerkniecie do katalogu %Delphi%SourceWin znajdziecie Ole2.pas. Dodajcie do projektu i skompilujcie to nie będzie problemu.
2. Czasem przydatnie jest miec w postaci stringa ten klucz. Do tego służy funkcja StringFromCLSID;

Przykład:

uses Ole2;
var
  Guid: TGUID;
  CLSIDStr: PWideChar;
begin
  CoCreateGUID(Guid);
  StringFromCLSID(Guid, ClSIDStr);
  ShowMessage(CLSIDStr);
end;