help me please--api functions work under NT, not 95... 
Author Message
 help me please--api functions work under NT, not 95...

I'm testing the following in Word 97. It works when running under NT4, but
bums out in 95. Can anyone tell me why and a better way to do it. (I'm
posting here because I haven't had a response from the Word.VBA newsgroup.)
I you're a VBA/API expert, please help me...?

Private Declare Function FindWindowA Lib "user32" (ByVal ClassName As Long,
ByVal WindowTitle$) As Integer
Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As
Integer) As Integer

Sub applist_test()

If InStr(WordBasic.[AppInfo$](1), "95") <> 0 Then
    WordBasic.AppHide "Program Manager"
End If
ReDim AppNames__$(WordBasic.AppCount()), TempArray__$(WordBasic.AppCount())
WordBasic.AppGetNames TempArray__$()
For ta = 0 To WordBasic.AppCount() - 1
'*******************************'WORD7**********************************
    If IsWindowVisible(FindWindowA(0, TempArray__$(ta))) = 1 Then
'***********************************************************************
        AppNames__$(num) = TempArray__$(ta)
        num = num + 1
        WordBasic.MsgBox TempArray__$(ta)
    End If
Next ta

End Sub

--Thanks
--Michael



Sun, 17 Sep 2000 03:00:00 GMT  
 
 [ 1 post ] 

 Relevant Pages 

1. GetHostName API function not working for NT 4.0 (service pack 4)

2. Works on 95 but not NT!

3. Setup created in NT does not work in 95

4. it's work with windows NT not with Windows 95

5. Winsock ActiveX dll works on 95/98, not NT

6. OCX Created w/VB5 SP3 Work Only on Win NT - Not Win 95

7. OCX Created w/VB5 SP3 Work Only on Win NT - Not Win 95

8. VB4 code works in NT, not in '95

9. CreateFile work on NT do not in 95

10. One of two functions doesn't function on Windows 95 (i does on Windows NT)

11. HELP ! SendMessage API (NT vs 95)

12. Search function not work, please help

 

 
Powered by phpBB® Forum Software