如题
类似于demo中listview做的资源管理器的功能,
只是demo中有很多的API都看不懂。。
现用ListView列出C:\test文件夹下的所有文件,
但是要在文件名前加上checkbox作为选择
再判断
如
name size type modified
口name1.txt 1k 文本类型 2004-6-1
口name2.txt ...............
类似于demo中listview做的资源管理器的功能,
只是demo中有很多的API都看不懂。。
现用ListView列出C:\test文件夹下的所有文件,
但是要在文件名前加上checkbox作为选择
再判断
如
name size type modified
口name1.txt 1k 文本类型 2004-6-1
口name2.txt ...............
var
strPath : string;
F : TSearchRec;
ListItem : TListItem;
begin
//ListView有两列,一列是文件名,一列是文件大小
strPath := 'C:\*.*';
if FindFirst(strPath,faAnyFile,F) = 0 then
begin
repeat
ListItem := ListView1.Items.Add;
ListItem.Caption := F.Name;
ListItem.SubItems.Add(IntToStr(F.Size));
//ListItem.SubIems.Add(F.)好多属性自己挑
until FindNext(F) <> 0;
end; FindClose(F);
end;