如题,在Delphi中没有找到这样的函数,不知有没有这样的API!
解决方案 »
- DELPHI 7 SQL server语句问题
- 关于获取目标IP..... (简单封包问题)................
- B4纸在QReport预览中不能全部显示.
- 奇怪:在Delphi5下编译过的程序,在Delphi6下编译报错:[Error] Ujf_ybzxf.pas(310): Undeclared identifier: 'VarArrayOf'
- 初学者为什么老是碰到怪问题?
- 如何设置系统时钟
- 有谁知道delphi7到底支持.net吗?
- ~有关CORBA方面的问题~
- 在DBLookupComboBox如何输入拼音时,指向汉字所在的记录,详情请看!
- 今天爽想给分(200)想知道关于文件操作的所有函数的用法
- 如何知道某个电脑是否装了MPEG4解码器?
- 请教一个关于REPORTMACHINE2.6 我对其中的"文本编辑器'不太了解 有谁能帮我
var
FindData: TWin32FindData;
FindHandle: THandle;
FileName: string;
AddToList: Boolean;
begin
Result := 0;
AddToList := Assigned(List); if Path[Length(Path)] <> '\' then
Path := Path + '\'; Path := Path + '*.*'; FindHandle := Windows.FindFirstFile(PChar(Path), FindData);
while FindHandle <> INVALID_HANDLE_VALUE do
begin
FileName := StrPas(FindData.cFileName);
if (FileName <> '.') and (FileName <> '..') and
((FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) <> 0) then
begin
Inc(Result);
if AddToList then
List.Add(FileName);
end; if not Windows.FindNextFile(FindHandle, FindData) then
FindHandle := INVALID_HANDLE_VALUE;
end;
Windows.FindClose(FindHandle);
end;使用:
var
s: TStringList;
begin
s := TStringList.Create;
ListDirs('c:\windows\', s);
ListBox1.Items.AddStrings(s);
s.Free;
end;