'================================================================
'= ポートの構成ダイアログを表示

'=    (ConfigurePort.bas)
'================================================================
#include "Windows.bi"

' ポートの設定ダイアログを表示
Declare Function Api_ConfigurePort& Lib "winspool.drv" Alias "ConfigurePortA" (ByVal pName$, ByVal hWnd&, ByVal pPortName$)

Var Shared Edit1 As Object
Var Shared Text3 As Object

Edit1.Attach GetDlgItem("Edit1") : Edit1.SetFontSize 14
Text3.Attach GetDlgItem("Text3") : Text3.SetFontSize 14

'================================================================
'=
'================================================================
Declare Sub Mainform_Start edecl ()
Sub Mainform_Start()
    Edit1.SetWindowText "LPT1:"
End Sub

'================================================================
'=
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()
    Var PortName As String
    Var Ret As Long

    'ポート名を指定
    PortName = GetDlgItemText("Edit1")

    'ポートの構成ダイアログを表示
    Ret = Api_ConfigurePort(ByVal 0, GethWnd, PortName)

    '結果を表示
    If Ret <> 0 Then
        Text3.SetWindowText "表示できました！"
    Else
        Text3.SetWindowText "表示できません！"
    End If
End Sub

'================================================================
'=
'================================================================
While 1
    WaitEvent
Wend
Stop
End