function CLSIDFileName(CLSID : string) : string;

Возвращает имя файла, соответствующего указанному CLSID или пустую строку, если CLSID не найден в реестре или его анализ не позволил найти имя файла. Функция не проверяет, существует файл на диске или нет.

Пример:

var

 S : string;

begin

 S := 'B5F3970B-745E-46AC-B890-E08F69777D80';

 if CLSIDFileExists(S) then 

  AddToLog(CLSIDFileName(S)+

          ' >> '+ 

          'подозрение на AdvWare.ToolBar.SearchIt');

end.