哎呀哎呀!我也要分!
var
SearchRec: TSearchRec;
begin
if FindFirst('./*.*',$00000010,SearchRec)=0 then
begin
if not((SearchRec.Name='.') or (SearchRec.Name='..')) then
ComboBox1.Items.Add(SearchRec.Name);
while FindNext(SearchRec)=0 do
if not((SearchRec.Name='.') or (SearchRec.Name='..')) then
ComboBox1.Items.Add(SearchRec.Name);
end
else begin
ShowMessage('没有目录');
close;
end;
