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

Here is a procedure I wrote for clearing the recently opened projects from the Welcome Page (via Windows registry) in CodeGear Rad Studio 2007.

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;
Note
You should be able to change this code to work with other versions of RAD Studio by changing the version number the registry key in the above code For example changing 5.0 to 4.0 should work with Delphi 2006.
Author: Jeff DeVore
Contributor: Jeff DeVore
Added: 2009/10/20
Last updated: 2009/10/20