学步园

var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CLASSES_ROOT;
    if Reg.OpenKey(Edit2.Text, True) then
    begin
      Reg.WriteString('', Edit2.Text + '  Protocol');
      Reg.WriteString('URL Protocol', Edit1.Text);
    end;
    Reg.CloseKey;
    Reg.RootKey := HKEY_CLASSES_ROOT;
    if Reg.OpenKey(Edit2.Text + '\shell\open\command\', True) then
    begin
      Reg.WriteString('', Edit1.Text + '  "%1"');
    end;
    Reg.CloseKey;
  finally
    FreeAndNil(Reg);
    ShowMessage('注册完成');
  end;
end;