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

cAkk · 2000-03-27

我现在用pipi的方法来判断是否是正确文件,然后如果不是就继续finditem, 但是为什么每次find结果都是同一个,没有继续查找剩下的item?? finditem的几个参数怎样使用?

Pipi. · 2000-03-27

第2个参数： iStart 是从下一个开始找，比如 -1 就是从0开始， 0就是从1开始，1就是从2开始找 因此，你要找到的如果不是，下次 iStart 的值就是这次找到的index，不要加1了

DreamTiger · 2000-03-27

procedure TForm1.OpenDialog1FolderChange(Sender: TObject); var hparent,hlist:hwnd;   Index: Integer;   buf:array[0..256] of char;   sFileName:string;   item:LV_ITEM; begin   hparent:=getparent(OpenDialog1.handle);   hlist:=findwindowex(hparent,0,'SHELLDLL_DefView',nil);   hlist:=findwindowex(hlist,0,'SysListView32',nil);   windows.setfocus(hlist);  //给他设置焦点   index := ListView_GetNextItem(hlist,-1,LVNI_ALL);   while index <> -1 do   begin     item.mask:=LVIF_PARAM ;     item.iItem:=index;    //第0个文件     item.iSubItem:=0;     ListView_GetItem(hlist,item);     SHGetPathFromIDList(PItemIDList(item.lParam),buf);     sFileName := ExtractFileName(string(buf));     if sFileName = 'Project1.exe' then  break;     index := ListView_GetNextItem(hlist,index,LVNI_ALL);   end;   ListView_EnsureVisible(Hlist, Index div 5,false);  //强制visible   ListView_SetItemState(Hlist, Index, LVIS_SELECTED+LVIS_FOCUSED, LVIS_SELECTED+LVIS_FOCUSED); end;

Pipi. · 2000-03-27

首先说明一下，上面你自己找到的方法中ListView_FindItem的第2个参数你用0 是错误的，要-1才是从头开始，0是从index 1开始（就是第二个文件） 找下一个： iStart:=-1 do   iStart := ListView_FindItem(.., iStart ,..) until (iStart<0（表示没了）或者（合我要求）)

DreamTiger · 2000-03-27

呵呵，吃饭前不知道SHGetPathFromIDList(PItemIDList(item.lParam),buf); 一直用 ListView_EnsureVisible ListView_SetItemState 加上 OpenDialog1.FileName 在实验，但总是会相差一位（就是说定位不到project1.exe，到了Project1.res 上），很奇怪。用了SHGetPathFromIDList就一切OK了。 Pipi大侠，能否告知你怎么知道要用这个SHGetPathFromIDList的？ （对你的敬仰如滔滔江水，绵绵不绝。）

Pipi. · 2000-03-27

cakk再不给我分，前卫兄就要抢了我的座次了 DreamTiger：没有资料的，一靠跟踪，二靠幻想

DreamTiger · 2000-03-27

Pipi.：能否说说在这个例子你跟踪了哪些东西？

cAkk · 2000-03-27

还没完那,现在判断当前系统是否设置为"隐藏后缀名",如果是,再判断该文件的 后缀名是否被注册了,如果是,用"xxx"查找,如果不是用"xxx.xxx"查找. 其实DreamTiger的方法可以解决这个问题,就是我嫌速度慢了一点,因为要 遍历所有的item. 我会额外拿出100分奖励DreamTiger的. pipi: 这600分肯定是你的,把最后一点疑问也解决掉吧!

cAkk · 2000-03-27

请大家对最后的疑问踊跃发言,如果pipi解决了,  pipi得到600分. 如果别人解决的,从pipi的600分里面扣除100分.

DreamTiger · 2000-03-27

[HKEY_USERS/S-1-5-21-1091263236-1637486018-14044502-1001/Software/Microsoft/Windows/CurrentVersion/Explorer/HideFileExt 是用来判断是否设置为"隐藏后缀名"。

cAkk · 2000-03-27

DreamTiger: 你又得到50分.       现在怎么判断后缀名是"已知文件类型的后缀名" ?

沈前卫 · 2000-03-27

用registry 打开HKEY_CLASSES_ROOT/.xxx,如成功，则是"已知文件类型的后缀名" ?

cAkk · 2000-03-27

前卫: 但是当"隐藏后缀名"时, *.sys,*.vxd仍然显示后缀名, 而且sys,vxd用       你的方法是存在的.

沈前卫 · 2000-03-27

你好要点隐藏文件的那部分嘛，系统是分开处理的。

DreamTiger · 2000-03-27

先用ListView_FindItem查找， 然后再用ListView_GetNextItem查找， 这样应该是可以加快速度了吧，呵呵。 procedure TForm1.OpenDialog1FolderChange(Sender: TObject); var   Info: TLVFindInfo;   hparent,hlist:hwnd;   Index: Integer;   buf:array[0..256] of char;   sFileName:string;   item:LV_ITEM; begin   hparent:=getparent(OpenDialog1.handle);   hlist:=findwindowex(hparent,0,'SHELLDLL_DefView',nil);   hlist:=findwindowex(hlist,0,'SysListView32',nil);   windows.setfocus(hlist);  //给他设置焦点   with Info do   begin     flags := LVFI_STRING or 0 or LVFI_WRAP;     psz := PChar('Project1');   end;   Index := ListView_FindItem(hlist, 0, Info);   while index <> -1 do   begin     item.mask:=LVIF_PARAM ;     item.iItem:=index;    //第0个文件     item.iSubItem:=0;     ListView_GetItem(hlist,item);     SHGetPathFromIDList(PItemIDList(item.lParam),buf);     sFileName := ExtractFileName(string(buf));     if sFileName = 'Project1.exe' then  break;     sFileName := ChangeFileExt(sFileName,'');     if sFilename <> 'Project1' then break;     index := ListView_GetNextItem(hlist,index,LVNI_ALL);   end;   ListView_EnsureVisible(Hlist, Index div 5,false);  //强制visible   ListView_SetItemState(Hlist, Index, LVIS_SELECTED+LVIS_FOCUSED, LVIS_SELECTED+LVIS_FOCUSED); end;

DreamTiger · 2000-03-27

错了： Index := ListView_FindItem(hlist, 0, Info); 应该是 Index := ListView_FindItem(hlist, -1, Info);

cAkk · 2000-03-27

还是没有解决呀? 现在问题是我查找的时候是用"project"还是"project.exe"?? 我必须先判断当前是否"隐藏后缀名"才能决定呀.

DreamTiger · 2000-03-27

还是不对，应该是这样的： procedure TForm1.OpenDialog1FolderChange(Sender: TObject); var   Info: TLVFindInfo;   hparent,hlist:hwnd;   Index: Integer;   buf:array[0..256] of char;   sFileName:string;   item:LV_ITEM; begin   hparent:=getparent(OpenDialog1.handle);   hlist:=findwindowex(hparent,0,'SHELLDLL_DefView',nil);   hlist:=findwindowex(hlist,0,'SysListView32',nil);   windows.setfocus(hlist);  //给他设置焦点   with Info do   begin     flags := LVFI_STRING or 0 or LVFI_WRAP;     psz := PChar('Project1.exe');   end;   Index := ListView_FindItem(hlist, -1, Info);   if index <> -1 then   begin     ListView_EnsureVisible(Hlist, Index div 5,false);  //强制visible     ListView_SetItemState(Hlist, Index, LVIS_SELECTED+LVIS_FOCUSED, LVIS_SELECTED+LVIS_FOCUSED);     exit;   end;   with Info do   begin     flags := LVFI_STRING or 0 or LVFI_WRAP;     psz := PChar('Project1');   end;   Index := ListView_FindItem(hlist, -1, Info);   while index <> -1 do   begin     item.mask:=LVIF_PARAM ;     item.iItem:=index;     item.iSubItem:=0;     ListView_GetItem(hlist,item);     SHGetPathFromIDList(PItemIDList(item.lParam),buf);     sFileName := ExtractFileName(string(buf));     if sFileName = 'Project1.exe' then  break;     sFileName := ChangeFileExt(sFileName,'');     if sFilename <> 'Project1' then break;     index := ListView_GetNextItem(hlist,index,LVNI_ALL);   end;   ListView_EnsureVisible(Hlist, Index div 5,false);  //强制visible   ListView_SetItemState(Hlist, Index, LVIS_SELECTED+LVIS_FOCUSED, LVIS_SELECTED+LVIS_FOCUSED); end;

DreamTiger · 2000-03-27

嘿嘿，先按全名找，找得到就绝对正确了。 （你不会告诉我同时存在Project1.sys和 Project1.sys.txt这种文件名吧。如果有 的话，那就对找到的全名也进行index循环。） 找不到全名就按后缀隐藏的找。

cAkk · 2000-03-27

这个方法可行,不知道还有没有更好的办法? 这道题pipi帮助非常大,就不扣他的分了

预定分配分数如下: pipi: 600

DreamTiger: 200 请中奖的各位到外面拿分.

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

cAkk

Unregistered / Unconfirmed

Pipi.

Unregistered / Unconfirmed

DreamTiger

Unregistered / Unconfirmed

Pipi.

Unregistered / Unconfirmed

DreamTiger

Unregistered / Unconfirmed

Pipi.

Unregistered / Unconfirmed

DreamTiger

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

DreamTiger

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

沈前卫

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

沈前卫

Unregistered / Unconfirmed

DreamTiger

Unregistered / Unconfirmed

DreamTiger

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

DreamTiger

Unregistered / Unconfirmed

DreamTiger

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

Similar threads