WINDOWS下有一个很强大的搜索功能,就是搜索本地硬盘上的数据,包括能搜索文件和文件夹等,我想问一下,他这个功能是如何实现的?
解决方案 »
- TFrame 滚动条显示问题
- TcxImageComboBox1控件的使用
- 在AdoQuery和sql数据库表中,咋样实现记录的定位?(就是运行完后,鼠标点在表的哪一行,记录就定位在该行?)
- 用Canvas怎样调小字间距?
- 高分请教本机新建web站点,不能启动
- 下载!Borland Delphi 2005 设计师架构(Arichitect)版正式版!
- 还是delphi版好,散分……
- 各位老大 如何使用dlephiX来实现播放器呢
- 我以前用这代码可以在edit2找到edit1对应的姓名的,为什么今天不可以了
- 怎样实现解出Access2000库的密码?(附原文)怎样实现产生一个同日期的空库呢?
- borlndmm.dll
- 急救啊!~~在delphi中如何得到SQL_select sum()的结果?
procedure TForm1.Button1Click(Sender:TObject);
var
buffer:array[0..255] of char;
FileToFind:string;
begin
GetWindowsDirectory(buffer,SizeOf(buffer));
FileToFind:=FileSearch(Edit1.Text,GetCurrentDir+';'+buffer);
if FileToFind='' then
showmessage('Couldn''tfind'+Edit1.text+'.')
else
showmessage('Found'+FileToFind+'.');
end;
[email protected]