[Delphi]ファイルを開く場合

※全てのDelphiで動作する保証はありません。また、内容に関し管理人は全ての責任を負いかねます

サンプル ※説明に必要な部分しか記述していません

 

2種類の方法を書きます。

●その1

ShellExecuteを使った場合。

ShellAPI.ShellExecute(Self.Handle, nil, ファイルの絶対パス, nil, nil, SW_SHOWNORMAL);

 

●その2

アクションリストのFileRun を使った場合。

FileRun1.Operation := ‘edit’とすることで、[編集]に関連付けらたプログラムが起動します。

ActionList1: TActionList;
FileRun1: TFileRun;

・・・
var
    flnm: String;

begin
    flnm := ファイルの絶対パス;


    if FileExists(flnm) then begin
        FileRun1.Browse := False;
        FileRun1.FileName := flnm;
        FileRun1.Operation := 'edit';   //初期値はopen
        FileRun1.Execute;
    end
    else begin
        MessageDlg(flnm + ' が見つかりません', mtWarning, [mbOK], 0);
    end;