[Code]
const
  SharedDLLsKey = 'Software\Microsoft\Windows\CurrentVersion\SharedDLLs';

function TryGetSharedCount(const Is64Bit: Boolean; const FileName: string; out Count: Cardinal): Boolean;
var
  RootKey: Integer;
begin
  if not Is64Bit then RootKey := HKLM32 else RootKey := HKLM64;
  Result := RegQueryDWordValue(RootKey, SharedDLLsKey, FileName, Count);
end;