エクセルの起動を関知するには？

解決

はげ山 2006-02-27 18:15:43 No: 20245

delphi6.0を使っております。

起動時にエクセルが立ち上がっていると
メッセージを表示するアプリを作ろうと思っております。
何かイイ知恵はありませんか？

Ru 2006-02-27 21:40:50 No: 20246

API関数のFindWindow関数使うとかは？

  if FindWindow('XLMAIN', nil) > 0 then begin
    showmessage('Excel起動中');
  end;

いけるかな・・・

HOta 2006-02-28 01:40:30 No: 20247

こんな方法も
var
  Excel : Variant;
    try
      Excel := getActiveOleObject('Excel.Application')  //起動済み
    except
      Excel := CreateOleObject('Excel.Application')  //未起動時起動
    end;

Ru 2006-02-28 02:11:53 No: 20248

そんな方法もあるんですね。
勉強になります。

はげ山 2006-02-28 02:31:28 No: 20249

ぎゃー
解決しました！
感謝です！