L liguang Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-21 #1 我想知道如何编程调出系统的查找文件对话框，并且往搜索内容，包含文字，和搜索范围<br>三个编辑内添写内容，和开始搜索。
K Kingron Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-21 #2 查找对话框的函数仅仅支持两个参数,你的要求可能不能达到,<br>除非用其他SendMessage(...WM_SETTEXT)之类的方法,用ShellExecute可以添加查找的目录.
G g622 Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-21 #3 使用系统的文件搜索功能 <br><br>http://www.vchelp.net/source/find_file_dlg_demo.zip
G grays Unregistered / Unconfirmed GUEST, unregistred user! 2001-05-23 #4 可以确定路径，但不能确定文件<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br> PMalloc: IMalloc;<br> sei : TShellExecuteInfo;<br>begin<br> try<br> SHGetMalloc(PMalloc);<br> ZeroMemory(@sei, sizeof(sei));<br> with sei do<br> begin<br> cbSize := SizeOf(sei);<br> lpFile := PChar('c:/windows');//路径<br> lpVerb := 'find';//对话框<br> end;<br> ShellExecuteEx(@sei);<br> finally<br> pMalloc._Release;<br> pMalloc := nil;<br> end;<br>end;
可以确定路径，但不能确定文件<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br> PMalloc: IMalloc;<br> sei : TShellExecuteInfo;<br>begin<br> try<br> SHGetMalloc(PMalloc);<br> ZeroMemory(@sei, sizeof(sei));<br> with sei do<br> begin<br> cbSize := SizeOf(sei);<br> lpFile := PChar('c:/windows');//路径<br> lpVerb := 'find';//对话框<br> end;<br> ShellExecuteEx(@sei);<br> finally<br> pMalloc._Release;<br> pMalloc := nil;<br> end;<br>end;
D DragonPC_??? Unregistered / Unconfirmed GUEST, unregistred user! 2001-08-13 #6 打开FindDialog以后，自己用 SendKeys (Delphi 5开发人员指南) 单元塞 Key Message.<br>我用过类似应用，非常方便。
C cgh0717 Unregistered / Unconfirmed GUEST, unregistred user! 2001-08-14 #7 我知道，让我找找OK？或者，你写信给我我发给你：cgh0717@sina.com
K kingkong Unregistered / Unconfirmed GUEST, unregistred user! 2001-08-19 #8 记得在uses中加上ShellApi单元<br><br>ShellExecute(Handle, 'find',pchar('c:/windows'),'','', 0);
