亚洲av色香蕉一区二区三区,十四以下岁毛片带血a级,亚洲 校园 欧美 国产 另类,亚洲av日韩av一区谷露,色欲av无码一区二区三区

  • 相關(guān)軟件
    >用VB6.0編寫磁盤格式化程序　創(chuàng)建者：webmaster　更新時(shí)間：2005-07-02 01:45

    軟盤是數(shù)據(jù)的常用載體，我們的軟件可能會(huì)提供用戶將數(shù)據(jù)備份到軟盤上的功能。為避免軟盤上有帶有病毒的文件，最安全的辦法就是提醒用戶將軟盤格式化。

    　　Visual Basic可以通過調(diào)用API函數(shù)格式化一個(gè)磁盤，無論是軟盤還是硬盤。

    　　打開一個(gè)新的項(xiàng)目(project1) ，如果你沒有更改過缺省模式，那么Visual Basic會(huì)自動(dòng)添加一個(gè)form1文件，在form1上添加一個(gè)命令控件，將下面的代碼拷入。





    　　Option Explicit

    　　Private Declare Function SHFormatDrive Lib"shell32"_
    　　　( ByVal Hend AS Long,_
    　　　　ByVal Drive AS Long,_
    　　　　ByVal FormatID AS Long,_
    　　　　ByVal Options AS Long) as Long

    　　Private Sub FormatDisk(intDrive as integer,blnQuickFormat as Boolean)
    　　　dim lngReturn As Long；
    　　　
    　　　if (blnQuickFormat) then
    　　　　 lngReturn= SHFormatDrive(0,intDrive,0&,1&)
    　　　else
    　　　　 lngReturn= SHFormatDrive(0,intDrive,0&,0&)
    　　　end if
    　　end Sub

    　　Private Sub Command1_Click()
    　　　call FormatDisk(0,True)
    　　End Sub

    　　運(yùn)行此程序。

    　　這里有必要提醒讀者注意的是，F(xiàn)ormatDisk函數(shù)的第一個(gè)變量很重要，他的值是0,1,2時(shí)代表格式化的分別是：A、B、C盤。

    　　注意：讀者使用此程序作練習(xí)的時(shí)候千萬不要用硬盤作實(shí)驗(yàn)，筆者不為可能發(fā)生的錯(cuò)誤和損失負(fù)責(zé)。
    相關(guān)文章
    本頁查看次數(shù):