Вывести список всех директорий, файлов и дисков

Советы » Файлы » Вывести список всех директорий, файлов и дисков

procedure

TForm1.Button1Click(Sender: TObject); var

D: PChar; begin

D := 'C:*.*'; SendMessage(ListBox1.Handle, LB_DIR, DDL_ARCHIVE + DDL_DIRECTORY + DDL_DRIVES + DDL_EXCLUSIVE + DDL_HIDDEN + DDL_READONLY + DDL_READWRITE + DDL_SYSTEM, Integer(D)); end

; //Oder: //Or: procedure

TForm1.Button2Click(Sender: TObject); var

D: PChar; begin

D := 'C:*.*'; ListBox2.Perform(LB_DIR, DDL_ARCHIVE + DDL_DIRECTORY + DDL_DRIVES + DDL_EXCLUSIVE + DDL_HIDDEN + DDL_READONLY + DDL_READWRITE + DDL_SYSTEM, Integer(d)); end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com