델파이 Recently Opened Projects 지우기

레지스트리를 지울 땐

델파이를 모두 닫고 진행한다.

 

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;

 

출처 : http://delphidabbler.com/tips/107