usesRegistry; {....} procedure
TForm1.Button1Click(Sender: TObject); var
Reg: TRegistry; KeyName: string
; ValueStr: string
; begin
Reg := TRegistry.Create; try
Reg.RootKey := HKEY_CLASSES_ROOT; KeyName := 'htmlfileshellopencommand'; if
Reg.OpenKey(KeyName, False) then
begin
ValueStr := Reg.ReadString(''); Reg.CloseKey; Label1.Caption := ValueStr; end
else
ShowMessage('No Default Webbrowser !'); finally
Reg.Free; end
; end
;