rt
解决方案 »
- [致命错误] Required package 'YeXinLibrary' not found
- 大家请帮忙,如何在delphi中使用udl文件动态改变ado连接
- 怎样设置墙纸?
- Fast Report能实现这样的报表吗?
- 如何修改access的密码?up者有分!
- 请问有谁知道怎样用代码安装控件啊
- 怎么让webbrowser每点击一次超级链接就打开一个新的网页?
- delphi字体的問題
- dbgrid中如何获得当前选中行的关键字段的值?
- SQL Server7中能否用varchar替代nvarchar?以后会不会出问题?
- 请问 哪有report builder professional edition 5.0版的报表设计器的使用说明
- 如何使用帮助文件阿~~~~请帮帮忙~~~
selectDirectory就可以做到
SELDIRHELP = 1000;
procedure TForm1.Button1Click(Sender: TObject);
var
Dir: string;
begin
Dir := 'C:\MYDIR';
if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
Label1.Caption := Dir;
end;
1.先用ShellExecute打开文件夹(是没有问题的),出现资源管理器窗口;
2.取得资源管理器窗口的句柄,进而取得listview的句柄(没有问题);
3.用postmessage发消息到listview中,让它选中我们所要选中的文件(我试了好多次都不行)
。可以用SPY++查看资源管理器窗口的类结构。