C#,Delphi,Oracle,MSSQL 개발자블로그

델파이 Recently Opened Projects 지우기 본문

Programming/Delphi

델파이 Recently Opened Projects 지우기

19760323 2019. 6. 13. 09:01

레지스트리를 지울 땐

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

 

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

0 Comments
댓글쓰기 폼