'================================================================
'= ディスクの交換を求めるダイアログボックスを表示

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

'ユーザーにディスクの交換を求めるダイアログボックスを表示
Declare Function Api_SetupPromptForDisk& Lib "setupapi" Alias "SetupPromptForDiskA" (ByVal hParent&, ByVal dTitle$, ByVal dName$, ByVal PathToSource$, ByVal fSought$, ByVal tFile$, ByVal dPromptStyle&, ByVal pBuff$, ByVal pBuffSize&, ByRef pRequiredSize&)

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

    Ret = Api_SetupPromptForDisk(GethWnd, "ディスクをセットしてください！", "API-Guide Installation Disk", "data\xyz", "xyzsetup.exe", "API-Guide Setup Executable", 0, ByVal 0, 0, ByVal 0)

End Sub

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