delphi打开文件

Posted 2023-03-24

我添加了一个richedit控件，并把内容保存为'.kfz'文件,然后确实生成了这个文件，那我怎么才能做到双击这个文件就启动程序并显示文件内容呢？请高手相助！有代码最好！

Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\.wlsg]
@="wlsgcook"

[HKEY_CLASSES_ROOT\wlsgcook]

[HKEY_CLASSES_ROOT\wlsgcook\DefaultIcon]
@="I:\\!xxyy\\!武林三国\\sg\\ico\\48.ico"

[HKEY_CLASSES_ROOT\wlsgcook\shell]

[HKEY_CLASSES_ROOT\wlsgcook\shell\open]

[HKEY_CLASSES_ROOT\wlsgcook\shell\open\command]
@="I:\\!xxyy\\!武林三国\\sg\\SG.exe \"%1\""

以上注册表配置可以实现双击扩展那名为“.wlsg”的文件时，调用SG.exe这个可执行文件并将你双击的那个文件地路径作为参数传递给SG.exe，在Delphi里你可以通过函数ParamStr(Index: Integer)取得这个参数，然后就可以在RichEdit中载入这个文件。
如果你不喜欢在注册表中配置，你也可以直接在资源管理器中执行“工具---文件夹选项”打开“文件夹选项”对话框，切换至“文件类型”选项卡，点击下方地“新建”按钮，输入要关联的扩展名点击“确定”回到上一页，点击下方的“更改”或“配置”继续后面地操作即可。
还可以直接在你要关联的文件点击鼠标右键选择“打开方式---选择程序”打开“打开方式”对话框点击下方地浏览选择你要关联地可执行文件。
无论你选用以上哪种方式关联文件，最后调用时都是以参数的形式传递路径给你的程序，在程序处理这个参数就可以里。 参考技术A 要把.kfz类型的文件关联到你的程序,需要操作注册表本回答被提问者采纳