[s0Creator]

фильтровать можно в

Код:

procedure TForm1.PopulateIDList(ShellFolder: IShellFolder);

немного переделав

Код:

    while EnumList.Next(1, ID, NumIDs) = S_OK do
    begin
    end;