Prüfen ob MacroMedia Flash installiert ist

[chris]

Delphi-Quellcode:

function IsFlashInstalled: Boolean;
var reg: TRegistry;
begin
  Result := false;
  reg := TRegistry.Create(KEY_READ);
  with reg do
  begin
    try
      RootKey := HKEY_CLASSES_ROOT;
      if OpenKey('CLSID\{D27CDB6E-AE6D-11cf-96B8-444553540000}', False)
        then Result := true
    finally
      CloseKey;
      Free
    end
  end
end;