首页 > 代码库 > 【温故Delphi】双击工程文件打开软件
【温故Delphi】双击工程文件打开软件
问题描述
大部分软件都有鼠标双击文件，就能打开所关联的软件并打开所选工程，这是如何做到的呢？
把文件关联到一个程序中，双击文件来启动程序，那么这个文件名称就是这个程序的命令行的一个参数。
所以要想实现双击工程文件打开软件，在程序运行入口必须要处理命令行。
代码说明
1 begin 2 Application.Initialize; 3 CreateMainForm(); 4 //GetCommandLine为Win32 API，用于获取命令行内容 5 HandleCommandLine(GetCommandLine); 6 if System.ParamCount = 0 then 7 ExecuteApplication(); 8 Application.Run; 9 end.10 11 procedure HandleCommandLine(const ACommandLine: string);12 begin13 // 解析参数个数：没有参数，直接退出14 if ParamCount(ACommandLine) = 0 then Exit;15 16 S := ParamStr(ACommandLine, 1);18 if IsOpenFileMode(S) then19 begin20 // 判断当前是否能够打开新工程21 if not AppInModelState then22 OpenProjFile(GetLongFileName(S))23 else24 ShowPrompt(‘请关闭当前窗体，再重新双击打开工程‘);25 end;26 end;
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。