CLSIDからプログラムIDを取得する

CLSID からそのプログラムの ID を取得するには ClassIDToProgID 関数を使います。引数には TGUID 型の CLSID を指定します。逆に ProgIDから CLSIDを求めるには ProgIDToClassID 関数を使います。

■ ClassIDToProgID の使用例 
// uses ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
  GUID  : TGUID;
  s     : string;
begin
  s     :=  '{00000011-0000-0010-8000-00AA006D2EA4}';      
  GUID  :=  StringToGUID(s);
  //登録されていれば DAO.PrivateDBEngine.35 と表示
  ShowMessage(ClassIDToProgID(GUID));
end;