'================================================================
'= ネットワークプリンタ接続ダイアログボックスを表示

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

#define SW_SHOWNORMAL 1                 'SW_RESTOREと同じ

' ネットワーク上のプリンタに接続するためのダイアログボックスを表示
Declare Function Api_ConnectToPrinterDlg& Lib "winspool.drv" Alias "ConnectToPrinterDlg" (ByVal hWnd&, ByVal flags&)

' 拡張子に関連付けられたプログラムを実行
Declare Function Api_ShellExecute& Lib "Shell32" Alias "ShellExecuteA" (ByVal hWnd&, ByVal lpOperation$, ByVal lpFile$, ByVal lpParameters$, ByVal lpDirectory$, ByVal nShowCmd&)

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

    Ret = Api_ConnectToPrinterDlg(GethWnd, 0)
End Sub

'================================================================
'=
'================================================================
Declare Sub Button2_on edecl ()
Sub Button2_on()
    Var Ret As Long

    Ret = Api_ShellExecute(0, "Open", "explorer.exe", "/e,::{2227A280-3AEA-1069-A2DE-08002B30309D}", ByVal 0, SW_SHOWNORMAL)
End Sub

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