各位大虾,小弟做着玩,想实现一个类似于打开一个文件夹显示里面内容的小东东,比如里面的内容是一些Word文档,要大图标的显示方式,听说是用Listview控件。那位大虾给各例子?谢了先!
解决方案 »
- [原创]今天用Delphi和C#分别做了一个全国天气预报WSDL(Web Services)的调用例程序(含全部Source)
- 菜鸟的几个问题------------------------(高手请进)
- 如何封装可执行文件到dll模块,调用dll的模块已完成,dll借口也完成
- 怎样由 FORM 得到 TFORM(TComponentClass) ?
- 國慶節﹐散分
- 在C/S结构的MIS系统中,界面结构采用MDI好还是SDI,或者各自的适用范围?
- 窗口最小化问题???
- 开发ASP控件的疑问
- 这段Webbrowser 的框架代码哪里出了问题(图)
- 菜鸟问题:WebConnection的使用方法及例子
- 升级散分
- 小問題,幫幫忙!如何設定 dbgrid 每一列的高度?
// 得到StrDir目录下的子目录以DirList返回
procedure FindFileUnder(strDir, ExtName: string; var FileList: TStringList);
// 得到StrDir目录下的所有以ExtFile('.pas')为扩展名的文件 以FileList返回
procedure FindDirUnder(strDir: string; IncludeSelf: boolean; var DirList: TStringList);
var
SRec: TSearchRec;
retval: Integer;
begin
DirList.Clear;
retval := FindFirst(strDir+'\*.*',faDirectory,sRec);
try
while retval = 0 do
begin
if (SRec.Attr and faDirectory) <> 0 then
if (Srec.Name = '.') or (Srec.Name = '..') then
begin
if IncludeSelf then
DirList.Add(Srec.Name)
end else
DirList.Add(Srec.Name);
retval := FindNext(SRec);
end;
finally
FindClose(SRec);
end;
end;procedure FindFileUnder(strDir,ExtName:string;var FileList:TStringList);
var
SRec: TSearchRec;
retval: Integer;
begin
FileList.Clear;
retval := FindFirst(strDir+'\'+ExtName,faAnyFile,sRec);
try
while retval = 0 do
begin
if (SRec.Attr and faDirectory) = 0 then
FileList.Add(Srec.Name);
retval := FindNext(SRec);
end;
finally
FindClose(SRec);
end;
end;
http://www.neweasier.com/vcl.html?class=4
最好的是Shell Control pack的商业控件,真的是很棒
var
SearchRec: TSearchRec;
begin
list.Items.BeginUpdate;
list.Items.Clear;
if Directory[length(Directory)] <> '\' then
Directory := Directory + '\';
if FindFirst(Directory + '*.*',faDirectory,SearchRec) = 0 then
begin
repeat
if (SearchRec.Attr and faDirectory = faDirectory) and (SearchRec.Name[1] <> '.') then
begin
if (SearchRec.Attr and faDirectory > 0) then
begin Item := list.Items.Add;
item.Caption:=SearchRec.Name;
end;
GetDirectories(list,Directory + SearchRec.Name,Item,IncludeFiles);
end
else if IncludeFiles then
if SearchRec.Name[1] <> '.' then
begin
item:=list.Items.Add;
item.Caption:=SearchRec.Name;
end;
until FindNext(SearchRec) <> 0;
ExtractAssociatedIcon(application.Handle,filespath,0);
FindClose(SearchRec);
end;
list.Items.EndUpdate;
end;//list:是窗体上的listview的name Directory是文件夹名