설치된 프로그램 리스트 얻기

procedure GetInstalledProg;
var
  MyList: TStringList;
  MyRegistry: TRegistry;
  i: Integer;
  Str: string;
  pView : TListItem;
begin
  MyRegistry:=TRegistry.Create;
  MyList:=TStringList.Create;
  with MyRegistry do
  begin
    RootKey:=HKEY_LOCAL_MACHINE;
    if OpenKey('Software\Microsoft\Windows\CurrentVersion\Uninstall', False)=True then
      GetKeyNames(MyList);
    CloseKey;

    for i:=0 to MyList.Count-1 do
    begin
      RootKey:=HKEY_LOCAL_MACHINE;
      OpenKey('Software\Microsoft\Windows\CurrentVersion\Uninstall\'+MyList[i], False);
      Str:=ReadString('DisplayName');
      if Str <> '' then
      begin
        pView := Form1.ListView2.Items.Add;
        pView.Caption := ReadString('DisplayName');
      end;
      CloseKey;
    end;
  end;

end;

이전에 어디서 참고한건데 출처를 모르겠네요.. ㅠㅠ

문제가 된다면 삭제하도록 하겠습니다.