例: %If 命令

この例では、Windows 3.1、Windows NT、または Windows 95 上でコンパイルして実行します。アプリケーションをコンパイルして実行するのが 16 ビット対応の Windows (Windows 3.1) 上か、32 ビット対応の Windows (Windows 95 または Windows NT) 上かによって、適切な Windows ハンドル変数と、2 つの Windows API 関数の適切なバージョンを宣言して使用する必要があります。

GetActiveWindow は、現在アクティブになっているウィンドウのハンドル (16 ビット対応の Windows では Integer 型、32 ビット Windows では Long 型) を返します。GetWindowText は、ウィンドウのタイトルバーのテキストを返します。

Dim winTitle As String * 80
%If WIN16                      ' 16-bit Windows
   Dim activeWin As Integer    ' Window handles are Integer.
   Declare Function GetActiveWindow% Lib "User" ()
   Declare Function GetWindowText% Lib "User" _
         (ByVal hWnd%, ByVal lpstr$, ByVal i%)
%ElseIf WIN32                  ' 32-bit Windows
   Dim activeWin As Long       ' Window handles are Long.
   Declare Function GetActiveWindow& Lib "User32" ()
   Declare Function GetWindowText% Lib "User32" _
          Alias "GetWindowTextA" _
      (ByVal hWnd&, ByVal lpstr$, ByVal i&)
%End If
' Print the name of the currently active window.
activeWin = GetActiveWindow()  ' Returns an Integer or a Long.
Call GetWindowText(ActiveWin, winTitle$, 80)
Print winTitle$