Web-


NT Web- IIS 4.0


var Reg: TRegistry; begin try Reg:=TRegistry.Create; Reg.RootKey:=HKEY_CLASSES_ROOT; Label1.Caption := LocalServer32; if Reg.OpenKey(\CLSID\{A9E69610-B80D- 11d0-B9B9-00A0C922E750},False) then begin if not Reg.OpenKey(\CLSID\{A9E69610- B80D-11d0-B9B9-00A0C922E750}+ \ + LocalServer32,False) then Edit1.Text := else Edit1.Text := Reg.ReadString(); end; Reg.CloseKey; finally Reg.Free; end; //try Reg:=TRegistry.Create;