怎样在openfiledialog打开时自动选中某个文件?(300分)

cAkk · 2000-03-26

注意是选中文件,不仅仅是在edit框里显示文件名. 并且,如果该文件不在视野里,还要把它MakeVisible

qf0421 · 2000-03-26

那要是该文件不存在呢?

cAkk · 2000-03-26

当然我事先已经确定该文件存在了

beta · 2000-03-26

不知道,如果实在没好办法,那只好模拟键盘或鼠标输入了(也麻烦!) :-(

cAkk · 2000-03-26

我知道大概方法: 先findwindow找到listview句柄,然后用sendmessage先让它查找某一个caption, 然后让它选择该item. 但是我第一步就卡壳了,无法找到listview的句柄.

cAkk · 2000-03-26

Pipi. · 2000-03-26

找hwnd： 在opendialog的 OnFolderChange 事件（注意每变一次目录就会调用一次， 如果你只需要运行一次，那只能用一个变量指示一下只执行一次） 不要在onshow事件（因为我发现nt下在onshow事件里面还找不到这个窗口） var h:HWND; h:=GetDlgItem(GetParent(OpenDialog1.Handle),1121); 坏消息： 我发现它是 SHELLDLL_DEFVIEW 类， 我发 listview 的消息控制它：失败。 我发 listbox 的消息控制它：失败。

沈前卫 · 2000-03-26

Pipi.兄： 》1121   你是如何知道的？

Pipi. · 2000-03-26

》1121  你是如何知道的？   用winsight32先找到那个类似listview的窗口， GetDlgCtrlId 得到该 控制的id，当然这不一定有用，是0 的话肯定没用，然后检查一下在 父窗口中是否唯一的id，是的话就可以使用了。 control id在delphi是没有用上的，很多人都不熟悉。 不过纯用api，或者以前用owl，或者用resource创建对话框就要用它了。

mikecool · 2000-03-27

关注〉〉

cAkk · 2000-03-27

>>在opendialog的 OnFolderChange 事件 我原先没注意到这个问题,估计可能就是卡在这里了. >>我发现它是 SHELLDLL_DEFVIEW 类， 它应该有一个子窗体,类名是"SysListView32", pipi再试一试看. 我这两天可能没时间干这个了.

Pipi. · 2000-03-27

var h:HWND; f: LV_FINDINFO ; i:integer; begin h:=GetDlgItem(GetParent(OpenDialog1.Handle),1121); h:=GetWindow(h,GW_CHILD); f.flags:=LVFI_STRING ; f.psz:='project1.exe'; i:=ListView_FindItem(h,-1,f); if(i>=0)then   begin   SetWindowLong(h, GWL_STYLE,GetWindowLong(h, GWL_STYLE) or LVS_SHOWSELALWAYS);      //缺省的listview在失去焦点时不显示selection，这里使它显示   ListView_SetItemState(h,i,LVIS_SELECTED ,LVIS_SELECTED );   end; end;

cAkk · 2000-03-27

习习,我也刚搞出来,准备进来给大家报喜,没想到pipi抢到前头了.. 我的做法和pipi基本一致,共大家参考: var hparent,hlist:hwnd;   Info: TLVFindInfo;   Index: Integer; begin   hparent:=getparent(odlg.handle);   hlist:=findwindowex(hparent,0,'SHELLDLL_DefView',nil);   hlist:=findwindowex(hlist,0,'SysListView32',nil);   with Info do   begin     flags := LVFI_STRING or 0 or LVFI_WRAP;     psz := PChar('res.zip');   end;   Index := ListView_FindItem(hlist, 0, Info);   windows.setfocus(hlist);  //给他设置焦点   ListView_EnsureVisible(Hlist, index div 5,false);  //强制visible   ListView_SetItemState(Hlist, Index, LVIS_SELECTED+LVIS_FOCUSED, LVIS_SELECTED+LVIS_FOCUSED);   caption:=inttostr(index); end; 不过现在还有几点疑问: 1.ListView_EnsureVisible(Hlist, index div 5,false);  //强制visible   这句话,必须把index div 5才有效,我猜是因为那个listview每列显示5行的缘故,   那么我如何判断每列显示6,7...行的情况?   (不过这个问题如果困难就算了,因为好像opendialog初始化都是5行的

) 2.如果当前windows资源管理器设置"隐藏已知文件类型后缀名",那么"xxx.exe"   在opendialog里面显示的是"xxx",这样用find就找不到了,请问怎样处理这种情况?

cAkk · 2000-03-27

第二个疑问补充: 我应该可以先判断当前资源管理器是否是"隐藏后缀名", 如果是,再检查要查找的文件是否为已经登记的"后缀名",如是则用"xxx" 来find,如果不是,就用"xxx.xxx"来判断.

DreamTiger · 2000-03-27

cAkk · 2000-03-27

好像不是这么简单,比如,如果同一目录下有"res","res.zip"两个文件, 如果系统设置为"隐藏后缀名",那么你用findcaption找到的是 "res"这个 文件,而不是"res.zip",我如果知道那一个才是我要找的文件呢? 看看openfiledialog的OnIncludeItem事件有没有帮助?

cAkk · 2000-03-27

前面问题的300分归pipi所有了. 关于第二个疑问,我追加300分.

Pipi. · 2000-03-27

看来后面300分也要归我了。cakk可不要食言啊 下面看到的是第0个（就是第一个，从0开始）文件的全路径名字（包括目录、文件名、扩展名） (h是listview的hwnd) item.mask:=LVIF_PARAM ; item.iItem:=0;    //第0个文件 item.iSubItem:=0; ListView_GetItem(h,item); SHGetPathFromIDList(PItemIDList(item.lParam),buf); ShowMessage(buf);  //看到 fullpath name

沈前卫 · 2000-03-27

直接使用OpenDialog1.FileName也可得到全名。

沈前卫 · 2000-03-27

还是Pipi.的方法好，不选中都可以。

怎样在openfiledialog打开时自动选中某个文件?(300分)

cAkk

Unregistered / Unconfirmed

qf0421

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

beta

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

Pipi.

Unregistered / Unconfirmed

沈前卫

Unregistered / Unconfirmed

Pipi.

Unregistered / Unconfirmed

mikecool

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

Pipi.

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

DreamTiger

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

Pipi.

Unregistered / Unconfirmed

沈前卫

Unregistered / Unconfirmed

沈前卫

Unregistered / Unconfirmed

Similar threads