Remove recently opened projects from the CodeGear RAD Studio IDE welcome page #107

procedure ClearRecentlyOpenedProjects;
var
  iCount  : Integer;
  Reg     : TRegistry;
  sList   : TStrings;
begin
  sList := TStringList.Create;
  Reg   := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey('\Software\Borland\BDS\5.0\Closed Projects', True) then
      Reg.GetValueNames(sList);
    if sList.Count > 0 then
      begin
        for iCount := 0 to Pred(sList.Count) do
          Reg.DeleteValue(sList[icount]);
      end
    else
      MessageDlg('No registry items to be cleaned at this time.',
        mtInformation, [mbOk], 0);
  finally
    sList.Free;
    Reg.Free;
  end;
end;