目录_浏览、通用对话框1.打开，在有些系统里会闪退

tst80tst

目录_浏览、通用对话框1.打开，用这两个命令在有些系统里会闪退，大部分系统里是正常的，请问怎么可以解决

zhongzutao

  

子程序名	返回值类型	公开	备 注
打开多文件对话框	文本型		多选文件,返回文件路径以";"分隔。打开失败或取消返回空文本
参数名	类 型	参考	可空	数组	备 注
父窗口句柄	整数型				被调用处
标题	文本型				对话框窗口标题
过滤器	文本型				形式：“MP3文件|*.mp3|mpg文件|*.mpg”
初始路径	文本型				空出为默认路径，一般是在“我的文档”开始

变量名	类 型	静态	数组	备 注
文件列表	文件对话框
temp	字节集
文件名数组	文本型		0
N
所选文件	文本型

文件列表.lStructSize ＝ 76
文件列表.hwndOwner ＝ 父窗口句柄
文件列表.lpstrFilter ＝ 子字节集替换 (到字节集 (过滤器), { 124 }, { 0 }, , ) ＋ { 0 } ＋ { 0 }
文件列表.lpstrFile ＝ 取空白字节集 (8192)  ' 备注：文件名缓冲区，决定能选择文件的多少
文件列表.nMaxFile ＝ 8192
文件列表.lpstrFileTitle ＝ 取空白文本 (8192)
文件列表.nMaxFileTitle ＝ 8192
文件列表.lpstrInitialDir ＝ 初始路径
文件列表.lpstrTitle ＝ 标题
文件列表.flags ＝ 524800
如果 (打开对话框 (文件列表) ≠ 0)  ' 备注：打开文件成功
temp ＝ 文件列表.lpstrFile
temp ＝ 取字节集左边 (temp, 寻找字节集 (temp, { 0, 0 }, ) － 1)
如果 (寻找字节集 (temp, { 0 }, ) ≠ -1)  ' 备注：是否选择多个文件
文件名数组 ＝ 分割文本 (到文本 (子字节集替换 (temp, { 0 }, { 124 }, , )), “|”, )
如果真 (取文本右边 (文件名数组 [1], 1) ≠ “\”)  ' 备注：选择多个文件时，第一个数组为路径名，后面为不包括路径的文件名
文件名数组 [1] ＝ 文件名数组 [1] ＋ “\”

计次循环首 (取数组成员数 (文件名数组) － 1, N)
如果 (取数组成员数 (文件名数组) － 1 ≠ N)  ' 备注：最后一个文件名不用加分隔字符“；”
所选文件 ＝ 所选文件 ＋ 文件名数组 [1] ＋ 文件名数组 [N ＋ 1] ＋ “;”
所选文件 ＝ 所选文件 ＋ 文件名数组 [1] ＋ 文件名数组 [N ＋ 1]

计次循环尾 ()
返回 (所选文件)  ' 备注：返回多个文件名全路径用“;”分隔
返回 (到文本 (temp))  ' 备注：返回单个文件名全路径

返回 (“”)  ' 备注：取消返回空文本

数据类型名	公开	备 注
文件对话框
成员名	类 型	传址	数组	备 注
lStructSize	整数型
hwndOwner	整数型
hInstance	整数型
lpstrFilter	字节集
lpstrCustomFilter	文本型
nMaxCustFilter	整数型
nFilterIndex	整数型
lpstrFile	字节集
nMaxFile	整数型
lpstrFileTitle	文本型
nMaxFileTitle	整数型
lpstrInitialDir	文本型
lpstrTitle	文本型
flags	整数型
nFileOffset	短整数型
nFileEtesion	短整数型
lpstrDefExt	文本型
lCustData	整数型
lpfnHook	整数型
lpTemplateName	文本型

DLL命令名	返回值类型	公开	备 注
打开对话框	整数型
DLL库文件名:
comdlg32.dll
在DLL库中对应命令名:
GetOpenFileNameA
参数名	类 型	传址	数组	备 注
OpenFile	文件对话框

.版本 2<br /> <br /> .子程序 打开多文件对话框, 文本型, , 多选文件,返回文件路径以";"分隔。打开失败或取消返回空文本<br /> .参数 父窗口句柄, 整数型, 可空, 被调用处<br /> .参数 标题, 文本型, 可空, 对话框窗口标题<br /> .参数 过滤器, 文本型, 可空, 形式：“MP3文件|*.mp3|mpg文件|*.mpg”<br /> .参数 初始路径, 文本型, 可空, 空出为默认路径，一般是在“我的文档”开始<br /> .局部变量 文件列表, 文件对话框<br /> .局部变量 temp, 字节集<br /> .局部变量 文件名数组, 文本型, , "0"<br /> .局部变量 N<br /> .局部变量 所选文件, 文本型<br /> <br /> 文件列表.lStructSize ＝ 76<br /> 文件列表.hwndOwner ＝ 父窗口句柄<br /> 文件列表.lpstrFilter ＝ 子字节集替换 (到字节集 (过滤器), { 124 }, { 0 }, , ) ＋ { 0 } ＋ { 0 }<br /> 文件列表.lpstrFile ＝ 取空白字节集 (8192)  ' 备注：文件名缓冲区，决定能选择文件的多少<br /> 文件列表.nMaxFile ＝ 8192<br /> 文件列表.lpstrFileTitle ＝ 取空白文本 (8192)<br /> 文件列表.nMaxFileTitle ＝ 8192<br /> 文件列表.lpstrInitialDir ＝ 初始路径<br /> 文件列表.lpstrTitle ＝ 标题<br /> 文件列表.flags ＝ 524800<br /> .如果 (打开对话框 (文件列表) ≠ 0)  ' 备注：打开文件成功<br />     temp ＝ 文件列表.lpstrFile<br />     temp ＝ 取字节集左边 (temp, 寻找字节集 (temp, { 0, 0 }, ) － 1)<br />     .如果 (寻找字节集 (temp, { 0 }, ) ≠ -1)  ' 备注：是否选择多个文件<br />         文件名数组 ＝ 分割文本 (到文本 (子字节集替换 (temp, { 0 }, { 124 }, , )), “|”, )<br />         .如果真 (取文本右边 (文件名数组 [1], 1) ≠ “\”)  ' 备注：选择多个文件时，第一个数组为路径名，后面为不包括路径的文件名<br />             文件名数组 [1] ＝ 文件名数组 [1] ＋ “\”<br />         .如果真结束<br /> <br />         .计次循环首 (取数组成员数 (文件名数组) － 1, N)<br />             .如果 (取数组成员数 (文件名数组) － 1 ≠ N)  ' 备注：最后一个文件名不用加分隔字符“；”<br />                 所选文件 ＝ 所选文件 ＋ 文件名数组 [1] ＋ 文件名数组 [N ＋ 1] ＋ “;”<br />             .否则<br />                 所选文件 ＝ 所选文件 ＋ 文件名数组 [1] ＋ 文件名数组 [N ＋ 1]<br />             .如果结束<br /> <br />         .计次循环尾 ()<br />         返回 (所选文件)  ' 备注：返回多个文件名全路径用“;”分隔<br />     .否则<br />         返回 (到文本 (temp))  ' 备注：返回单个文件名全路径<br />     .如果结束<br /> <br /> .否则<br />     返回 (“”)  ' 备注：取消返回空文本<br /> .如果结束<br /> <br /> <br /> <br /> .版本 2<br /> <br /> .数据类型 文件对话框<br />     .成员 lStructSize, 整数型<br />     .成员 hwndOwner, 整数型<br />     .成员 hInstance, 整数型<br />     .成员 lpstrFilter, 字节集<br />     .成员 lpstrCustomFilter, 文本型<br />     .成员 nMaxCustFilter, 整数型<br />     .成员 nFilterIndex, 整数型<br />     .成员 lpstrFile, 字节集<br />     .成员 nMaxFile, 整数型<br />     .成员 lpstrFileTitle, 文本型<br />     .成员 nMaxFileTitle, 整数型<br />     .成员 lpstrInitialDir, 文本型<br />     .成员 lpstrTitle, 文本型<br />     .成员 flags, 整数型<br />     .成员 nFileOffset, 短整数型<br />     .成员 nFileEtesion, 短整数型<br />     .成员 lpstrDefExt, 文本型<br />     .成员 lCustData, 整数型<br />     .成员 lpfnHook, 整数型<br />     .成员 lpTemplateName, 文本型<br /> <br /> <br /> .版本 2<br /> <br /> .DLL命令 打开对话框, 整数型, "comdlg32.dll", "GetOpenFileNameA"<br />     .参数 OpenFile, 文件对话框

Ruang

什么原因？杀毒软件？

补充内容 (2022-4-21 10:35):
没见过这种情况

liantan

疑难杂症，关闭杀毒软件试试

大司命

可以尝试改用精易模块里的对话框_开头的命令！由于是纯api调用，出问题好解决~

tst80tst

周吕 发表于 2022-4-21 10:35
什么原因？杀毒软件？

补充内容 (2022-4-21 10:35):

由于是个别客户反应，具体的我也不好测试，不知道什么原因

tst80tst

liantan 发表于 2022-4-21 10:46
疑难杂症，关闭杀毒软件试试

由于是个别客户反应，具体的我也不好测试，不知道什么原因

tst80tst

大司命 发表于 2022-4-21 10:49
可以尝试改用精易模块里的对话框_开头的命令！由于是纯api调用，出问题好解决~ ...

好的，我试试

zhongzutao

试试我发的这个方法；