Недавно добавленные исходники

•  TDictionary Custom Sort  2 344

•  Fast Watermark Sources  2 230

•  3D Designer  3 852

•  Sik Screen Capture  2 618

•  Patch Maker  2 787

•  Айболит (remote control)  2 630

•  ListBox Drag & Drop  2 224

•  Доска для игры Реверси  72 673

•  Графические эффекты  2 881

•  Рисование по маске  2 280

•  Перетаскивание изображений  1 874

•  Canvas Drawing  1 900

•  Рисование Луны  1 874

•  Поворот изображения  1 462

•  Рисование стержней  1 511

•  Paint on Shape  1 047

•  Генератор кроссвордов  1 612

•  Головоломка Paletto  1 253

•  Теорема Монжа об окружностях  1 604

•  Пазл Numbrix  1 156

•  Заборы и коммивояжеры  1 413

•  Игра HIP  984

•  Игра Go (Го)  934

•  Симулятор лифта  1 068

•  Программа укладки плитки  890

•  Генератор лабиринта  1 164

•  Проверка числового ввода  962

•  HEX View  1 128

•  Физический маятник  967

•  Задача коммивояжера  1 029

 
скрыть


Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



BotTrade - Заработок на криптовалютах

Получить пути папок в Моем Компьютере



Оформил: DeeCo

uses
   ActiveX, ShlObj;

    procedure TForm1.Button1Click(Sender: TObject);
 var
   pShell, ShellFolder: IShellFolder;
   pidl: PITEMIDLIST;
   PMalloc: IMalloc;
   sName: string;
   EnumIDList: IEnumIDList;
   pceltFetched: ULONG;
   lpName: TStrRet;
   slDirectories: TStringList;
 begin
   slDirectories := TStringList.Create;
   try
     SHGetDesktopFolder(ShellFolder);
     SHGetSpecialFolderLocation(0,CSIDL_DRIVES, pidl);
     SHGetMalloc(PMalloc);
     ShellFolder.BindToObject(pidl, nil, IID_IShellFolder, Pointer(pShell));
     pShell.EnumObjects(0,SHCONTF_FOLDERS, EnumIDList);
     while EnumIDList.Next(1,pidl, pceltFetched) = S_ok do
     begin
       pceltFetched := 0;
       lpName.uType := 0;
       pShell.GetDisplayNameOf(pidl, SHGDN_FORPARSING, lpName);
       sName := lpName.pOleStr;
       slDirectories.Add(sName);
     end;
     ListBox1.Items.Assign(sldirectories);
   finally
     pMalloc._Release;
     pMalloc := nil;
     slDirectories.Free;
   end;




Похожие по теме исходники

A Star (нахождение кратчайшего пути)

Нахождение кратчайшего пути

Дейкстра: поиск кратчайшего пути




Copyright © 2004-2023 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте