procedure TForm1.Button1Click(Sender: TObject);
var
reg:tregistry;
begin
reg:=tregistry.Create;
reg.RootKey:=HKEY_CLASSES_ROOT;
reg.CloseKey;
if reg.OpenKey('ShockwaveFlash',false) then
begin
if reg.ReadString('hockwaveFlash')='7' then
showmessage('installed')
else
showmessage('not installed');
end else
showmessage('not installed');
reg.free;
end;
var
reg:TRegistry;
begin
reg := TRegistry.Create;
try
reg.RootKey := HEEY_CLASSES_ROOT;
if reg.OpenKey('\ShockwaveFlash.ShockwaveFlash.6\CLSID, True) then
ShowMessage('OK');
finally
reg.CloseKey;
reg.Free;
end;
end;