【温故Delphi】双击工程文件打开软件

问题描述

　　大部分软件都有鼠标双击文件，就能打开所关联的软件并打开所选工程，这是如何做到的呢？

　　把文件关联到一个程序中，双击文件来启动程序，那么这个文件名称就是这个程序的命令行的一个参数。

　　所以要想实现双击工程文件打开软件，在程序运行入口必须要处理命令行。

代码说明　　

 begin
   Application.Initialize;
   CreateMainForm();
   //GetCommandLine为Win32 API，用于获取命令行内容
   HandleCommandLine(GetCommandLine);
   if System.ParamCount =  then
     ExecuteApplication();
   Application.Run;
 end.

 procedure HandleCommandLine(const ACommandLine: string);
 begin
   // 解析参数个数：没有参数，直接退出
   if ParamCount(ACommandLine) =  then Exit;

   S := ParamStr(ACommandLine, );
17   if IsOpenFileMode(S) then
   begin
     // 判断当前是否能够打开新工程
     if not AppInModelState then
       OpenProjFile(GetLongFileName(S))
     else
       ShowPrompt('请关闭当前窗体，再重新双击打开工程');
   end;
 end;