'================================================================
'= ファイル名変更エラーダイアログボックス

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

'ファイルの名前変更エラーをユーザーへ通知するためのダイアログボックスを生成
Declare Function Api_SetupRenameError& Lib "setupapi" Alias "SetupRenameErrorA" (ByVal hwndParent&, ByVal DialogTitle$, ByVal SourceFile$, ByVal TargetFile$, ByVal Win32ErrorCode&, ByVal Style&)

Var Shared Button1 As Object

Button1.Attach GetDlgItem("Button1") : Button1.SetFontSize 14

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

    Ret = Api_SetupRenameError(GethWnd, "Rename Error", "file.ex_", "file.ext", 123, 0)
End Sub

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