procedure TForm1.Button1Click(Sender: TObject);
begin
  //エクセルが起動中かをウィンドウハンドルの値で判定
  if FindWindow('XLMAIN', nil) <> 0 then begin
    MessageBox(Handle, 'エクセル起動中', '情報' , MB_ICONINFORMATION);
  end else begin
    MessageBox(Handle, 'エクセルは起動していません', '情報' , MB_ICONINFORMATION);
  end;
end;

//=============================================================================
//  エクセルが起動中かを調べる
//  実行中のアプリケーションのインスタンス取得はGetActiveOleObjectを使用する
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  objExcel : OleVariant;
  IsOpen   : Boolean;
begin
  try
    objExcel := GetActiveOleObject('Excel.Application');
    IsOpen   := True;
  except
    on E: EOleSysError do begin
      IsOpen := False;
    end;
  end;

  if IsOpen then begin
    MessageBox(Handle, 'エクセルは起動しています', '情報', MB_ICONINFORMATION);
  end else begin
    MessageBox(Handle, 'エクセルは起動していません', '情報', MB_ICONINFORMATION);
  end;
end;

//=============================================================================
//  エクセルのバージョン番号
//=============================================================================
procedure TplExcelFormEx1.Button1Click(Sender: TObject);
begin
  MessageBox(Handle, PChar(xlfExcelApp.Version[0]), 'バージョン', MB_ICONINFORMATION);
end;