将你的程序编译成.exe文件,选择一个TXT类型的文件,按住shift+ctrl,然后再右键击所选的txt文件,右键菜单中就会有‘打开方式…’,然后选择它,在弹出的菜单中选择‘其它’,选择你的.exe文件,并在以后用此打开所有复选框前打勾,就OK拉。
绝对正确,给我分我会告诉你更多
绝对正确,给我分我会告诉你更多
解决方案 »
- SocketConnection1 属性中的Loginprompt 有什么用途?设置为false和true有什么区别?
- 如何在Richedit中贴图片阿?就像QQ的聊天窗口可以发送图片,显示图片阿?
- 请教各位高手:为什么Edit不能输入?分不够再++++++++++ 急!!!!在线等!!!!!!!!
- 判断Edit控件中的内容是合法的中文姓名(2到4个汉字),大家有什么好的方法?
- delphi sql数据库导出到execl
- 高分求助,不够可以再加(目录递归问题)
- delphi的基本函数(xor,shl,shr)的用法
- 谁对delphi比较精通啊?
- 今天结贴,分数只给一个人!如何列出一个指定的文件夹下的所有子文件夹名。
- 两个问题:资源管理器工具栏的图标资源保存在那个DLL里面?....
- 一个挺难的问题,急需帮助!!!!!!!!!!!!
- 如何重新编译dbconsts.pas?
http://www.csdn.net/expert/topic/297/297561.shtm
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CLASSES_ROOT;
reg.OpenKey( '\.XXX', True );
reg.WriteString( '', 'XXXfile' ); reg.OpenKey( '\XXXfile', True );
reg.WriteString( '', 文件类型的名称 );
reg.OpenKey( 'shell\open\command', True );
reg.WriteString( '', '"'+Application.ExeName+'" "%1"' );
reg.Free; // XXX应该用实际的扩展名代替
实际上我的程序是在参数有一个“/r”时执行这段程序。不过这样的话必须运行一次程序,如果你做安装程序的话,如果是自己写的安装程序,可以在自己程序中加入上面程序(注意Application.ExeName要修改为应用程序的路径)。如果用通用安装程序,可以在安装程序中注册,注册表的内容为:[HKEY_CLASSES_ROOT\.XXX]
@="XXXfile"[HKEY_CLASSES_ROOT\XXXfile]
@="文件类型名称"[HKEY_CLASSES_ROOT\XXXfile\Shell]
@=""[HKEY_CLASSES_ROOT\XXXfile\Shell\open][HKEY_CLASSES_ROOT\XXXfile\Shell\open\command]
@="程序全路径 %1"