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

问题描述

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

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

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

代码说明　　

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

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

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