Current Help System: PC-DMIS BASIC (View Core Help)

Example:

Declare Function GetFocus Lib "User" () As Integer

Declare Function GetWindowText Lib "User" (ByVal hWnd%, ByVal Mess$, ByVal cbMax%) As _ Integer

Sub Main

Dim hWindow%

Dim str1 As String *51

Dim str2 As String * 25

hWindow% = GetFocus()

print "GetWindowText returned: ", GetWindowText( hWindow%, str1,51 )

print "GetWindowText2 returned: ", GetWindowText( hWindow%, str2, 25)

print str1

print str2

End Sub