返回程序執行參數

有關 Delphi 傳入應用程式的命令列參數, 請參考以下的說明：
用ParamCount函數取得命令參數的個數:
呼叫 ParamStr(0), 傳回執行檔的檔名(含路徑)
呼叫 ParamStr(n), 傳回第ｎ個參數的內容
procedure TForm1.FormCreate(Sender: TObject);
var
sFileName: string;
begin
if ParamCount > 0 then begin (* 有執行參數傳入 *)
sFileName := ParamStr(1); (* 取得參數內容 *)
if FileExists(sFileName) then
Memo1.Lines.LoadFromFile(sFileName)
else
Application.MessageBox('找不到指定的檔案', '訊息', 48);
end;
end;