如何判断com是否注册

Question

如何进行有效的判断

Answer 1

function IsClassRegistered(GUID: TGUID): Boolean; var 
  ClassID: String; begin 
  with TRegistry.Create do 
  try 
    ClassID := GUIDToString(GUID); 
    RootKey := HKEY_CLASSES_ROOT;     Result := OpenKey(\CLSID\ + ClassID, False); 
  finally 
    Free; 
  end; 
end; 

Answer 2

function IsClassRegistered(GUID: TGUID): Boolean; var 
  ClassID: String; begin 
  with TRegistry.Create do 
  try 
    ClassID := GUIDToString(GUID); 
    RootKey := HKEY_CLASSES_ROOT;     Result := OpenKey(\CLSID\ + ClassID, False); 
  finally 
    Free; 
  end; 
end; 

Answer 3

function IsClassRegistered(GUID: TGUID): Boolean; var 
  ClassID: String; begin 
  with TRegistry.Create do 
  try 
    ClassID := GUIDToString(GUID); 
    RootKey := HKEY_CLASSES_ROOT;     Result := OpenKey(\CLSID\ + ClassID, False); 
  finally 
    Free; 
  end; 
end;  哈哈，看到这个，xikug(西方不敢很帅)兄，肯定气晕了。