Не могу применить FindWindow, чтобы найти Word. Помогите.

[Nataliak]

Помогите, плиз разобраться с API. Вроде все просто и примеров много, но не получается. Задача проста - определить открыт ли Word.
Вот как я пытаюсь это проделать... У меня VB.NET, Studio2003, windowsXP, Word2002

Public Const WORD_WINDOWCLASSNAME = "OpusApp"
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Property WordApp() As Word.Application
Get
Return Me.objWord
End Get
Set(ByVal Value As Word.Application)
Dim hWnd As Long
hWnd = 0
hWnd = FindWindow(WORD_WINDOWCLASSNAME, vbNullString)

If hWnd <> 0 Then
MsgBox("Word уже загружен")
Else
MsgBox("Word не загружен")
Me.objWord = New Word.Application
Me.objWord.Visible = True
End If
End Set
End Property

В итоге всегда возвращается больше 0 и получается что ("Word уже загружен"), а это далеко не так. Причем в странном формате handle окна типа 92886755199418368.

[mad_Max]

Возможно
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Long - 64х битное число в .NET (в VB6 - 32х)

[Nataliak]

Да. Integer, но... тогда встречный вопрос, а как готовая программа поведет себя на других, не XP (как у меня) платформах ?

[Sebas]

а если документ открыт в ИЕ? Код пролетит с треском(((