如何找文件?(10分)

  • 主题发起人 主题发起人 城里的月饼
  • 开始时间 开始时间

城里的月饼

Unregistered / Unconfirmed
GUEST, unregistred user!
我想在d:盘找到'k??er.exe'的文件如何找到?
 
查一下MSDN. FindFiles Method CFileFind::FindFile
 
用API函数FindFirstFile();
如:
handle:=FindFirstFile(PChar('k??er.exe'),data);
 
例子:
procedure TForm1.Button1Click(Sender: TObject);
var data:TWin32FindData;
begin
if Button1.Caption='查找文件' then
begin
handle:=FindFirstFile(PChar(Edit1.Text),data);
ShowFileInfo(data);
Button1.Caption:='查找下一个';
end
else
begin
if NOT FindNextFile(handle,data) then
begin
Windows.FindClose(handle);
Button1.Caption:='查找文件';
end
else
ShowFileInfo(data);;
end;
end;
function TForm1.ShowFileInfo(data:TWin32FindData);
begin
//对data进行处理
end;
 
后退
顶部