![]() |
![]() ![]() ![]() ![]() ![]() |
![]() |
Получить пути папок в Моем КомпьютереDelphi , Файловая система , ДиректорииПолучить пути папок в Моем Компьютере
Оформил: 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; Here is the translation of the content into Russian: Делфи-программирование задачи! Код предназначен для извлечения путей папок на вашем компьютере и отображения их в компоненте
Код использует некоторые компоненты и интерфейсы Delphi, такие как Альтернативное решение - использовать компонент
Код создает экземпляр Получение путей папок на компьютере с помощью процедуры TForm1.Button1Click(Sender: TObject) в Delphi, которая использует ActiveX и интерфейсы IShellFolder и IMalloc. Комментарии и вопросыПолучайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Директории ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |