🚀 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  , 相楽
>

Syuuichi Ueki wrote:
>
> ＜＜VBによる方法でしたら以下のようにすれば可能です＞＞
(すいません省略します． )

元記事の人，fj.lang.c でも同じ質問見たんだけど，なにをしたいのかな ? ^^;

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

-- 
てぃぐれ

「Fri, 27 Mar 1998 12:34:05 +0900」頃
「<351B1E2D.511B@sii.co.jp>」の記事
「Re: Windows によるFDDの初期化  について」で
「Yuuichi Hirata <yuuichi.hirata@sii.co.jp>」氏 wrote：

>元記事の人，fj.lang.c でも同じ質問見たんだけど，なにをしたいのかな ? ^^;
　しかもマルチポスト。

=================================================
mailto:Sirai@mcn.ne.jp
Datula→http://www.vector.co.jp/authors/VA012699/
=================================================