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

解決

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

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

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

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

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

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

いけるかな・・・

編集 削除
HOta  2006-02-27 16:40:30  No: 20247  IP: 192.*.*.*

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

編集 削除
Ru  2006-02-27 17:11:53  No: 20248  IP: 192.*.*.*

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

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

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

編集 削除