🚀 go-pugleaf

＜＜VBによる方法でしたら以下のようにすれば可能です＞＞

''ディスクをフォーマットする         Ver 1.00 (Mar.06.1997 S.Ueki)
''【引　数】
''  hWnd&   ： ウィンドウのハンドル
''  Drive&  ： ドライブを示す数字(A=0,B=1..)
''  fmtID&  ： 0
''  opt&    ： SHFMT_OPT_xxx
''
''【戻り値】
''
''【備　考】
''  非公開関数なので詳しいことは不明
Public Declare Function SHFormatDrive Lib "SHELL32" _
    (ByVal hWnd&, ByVal Drive&, ByVal fmtID&, ByVal opt&) As Long
Public Const SHFMT_ID_DEFAULT As Long = -1
Public Const SHFMT_OPT_QUICK  As Long = 0   ''ドライブのクイックフォーマット
Public Const SHFMT_OPT_FULL  As Long = 1    ''ドライブのフルフォーマット
Public Const SHFMT_OPT_SYSONLY  As Long = 2
Public Const SHFMT_ERROR  As Long = -1
Public Const SHFMT_CANCEL  As Long = -2
Public Const SHFMT_NOFORMAT  As Long = -3
'
Public Function VB_FormatDrive _
        (ByVal lngHWnd As Long, _
         ByVal lngDrive As Long, _
         ByVal lngFmtID As Long, _
         ByVal lngOpt As Long) _
         As Long
    On Error Resume Next
    VB_FormatDrive = SHFormatDrive(lngHWnd, lngDrive, lngFmtID, lngOpt)
End Function

Private Sub CMD_DiskFormat()
    On Error Resume Next
    Dim lngRet  As Long
    Dim strDrv  As String
    Dim lngDrv  As Long
    strDrv = UCase(Left(PrvCnst_strDST, 1)) ''ドライブ名
    lngDrv = CLng(Asc(strDrv) - Asc("A"))   ''ドライブを示す数字(A=0)
    lngRet = VB_FormatDrive(CLng(0), lngDrv, CLng(0), SHFMT_OPT_FULL)
End Sub


Markun Sagara wrote in message <6eprjb$84p$1@nn-os001.ocn.ad.jp>...
>FDDの初期化をDOS画面でなく、WINDOWSの画面でAPI等で行いたいのですが、
>どのAPIを使用したらよいでしょぅか?
>
>どなたか、わかる方見えましたらお願いします。
>
>CENTRAL SOFT SERVICE  , 相楽
>