如何调用“打开方式”对话框

larryuan 2001-11-23 03:01:34

打开一个文件的时候，如果在注册表中没有关联，弹出打开方式对话框
不知道这个对话框是不是一个API，能否在程序中调用？

...全文

239 30 打赏收藏转发到动态举报

写回复

用AI写文章

30 条回复

切换为时间正序

请发表友善的回复…

发表回复

kevin_gao 2001-11-23

打赏
举报

555555555555555,我的分呀，给我30吧。。。。。。。。。。

ChocoboY 2001-11-23

打赏
举报

还有一点注意大小写 "OpenAs_RunDLL"

ChocoboY 2001-11-23

打赏
举报

还有一点注意大小写 "penAs_RunDLL"

kevin_gao 2001-11-23

打赏
举报

larryuan(袁代码)　：

ChocoboY(陆行鸟)就是用的98实现的!

larryuan 2001-11-23

打赏
举报

没错，chocoboy说的对
to kevin_gao:是他抢走你一半的分，呵呵

ChocoboY 2001-11-23

打赏
举报

可以实现了！， ...........shell32.dll,{这里不能有空格}openas_rundll....

ChocoboY 2001-11-23

打赏
举报

其实这在 “运行”通过命令就可以实现：
c:\windows\rundll32.exe shell32.dll,OpenAs_RunDLL c:\1.lst

kevin_gao 2001-11-23

打赏
举报

是win2k与win98的区别？

larryuan 2001-11-23

打赏
举报

我的机器也是98，也不行
看来2000和98下的实现有点差别

ChocoboY 2001-11-23

打赏
举报

终于搞定了！
ShellExecute(GetDesktopWindow, 'open', 'rundll32.exe',
PChar(' shell32.dll,OpenAs_RunDLL ' + 'c:\1.lst'),
nil,SW_SHOWNORMAL);
可以实现！
openas_rundll之前不能有空格1

szgunz 2001-11-23

打赏
举报

//uses 语句中加一个unit进去:ShellAPI;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(GetDesktopWindow, 'open', 'rundll32',
PChar('shell32.dll, OpenAs_RunDLL'),nil,SW_SHOWNORMAL);
end;

ChocoboY 2001-11-23