【溫故Delphi】雙擊工程檔案開啟軟體

標籤：style   blog   color   strong   檔案   io   

問題描述

　　大部分軟體都有滑鼠雙擊檔案，就能開啟所關聯的軟體並開啟所選工程，這是如何做到的呢？

　　把檔案關聯到一個程式中，雙擊檔案來啟動程式，那麼這個檔案名稱就是這個程式的命令列的一個參數。

　　所以要想實現雙擊工程檔案開啟軟體，在程式運行入口必須要處理命令列。

代碼說明　　

 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;