Question

delphi中如何打开指定文件夹

问题如题，我希望以浏览的方式显示文件夹中内容，如delphi同目录下有几个文件夹,希望高手能写出文件夹其它相关操作的代码.
我急用,网上找了一下，有点费时,先谢谢回复的热心人：谢谢。
提示：就像我们插入CD时，浏览CD那种效果。不是选择安装路径的那种。

Answer 1

uses
ShellAPI;

ShellExecute(Handle,'open','Explorer.exe','C:\Windows',nil,1);

这样可以打开C:\Windows，如果需要其它目录的话，可以自己设置一下就行了。

Answer 2

用listview可以浏览文件夹

procedure TForm1.findfiles(APath:string;listview:Tlistview);
var
FSearchRec,DSearchRec:TSearchRec;
FindResult:integer;
newitems:Tlistitem;
begin
findresult:=findfirst(Apath,faanyfile,fsearchrec);
listview.Items.Clear;
try
while findresult=0 do
begin
if (fsearchrec.name<>'.')and(fsearchrec.name<>'..') then
begin
newitems:=listview.items.add;
newitems.Caption:=copy(fsearchrec.Name,1,length(fsearchrec.name)-4);
newitems.ImageIndex:=0;
end;
findresult:=findnext(fsearchrec)
end;
findresult:=findfirst(apath+'*.*',fadirectory,dsearchrec);
while findresult=0 do
findresult:=findnext(dsearchrec);
finally
findclose(fsearchrec);
end;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
listname:='文件夹的路径';
FindFiles(listname+'*.*',listview1);
end

delphi 的Demo目录下的Virtual List View Demo

打两个&&就可以了。