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

解決

はげ山  2006-02-27 18:15:43  No: 20245  IP: [192.*.*.*]

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

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

編集    削除
Ru  2006-02-27 21:40:50  No: 20246  IP: [192.*.*.*]

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

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

いけるかな・・・

編集    削除
HOta  2006-02-28 01:40:30  No: 20247  IP: [192.*.*.*]

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

編集    削除
Ru  2006-02-28 02:11:53  No: 20248  IP: [192.*.*.*]

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

編集    削除
はげ山  2006-02-28 02:31:28  No: 20249  IP: [192.*.*.*]

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

編集    削除