PC²
|
JUCUTUQUARA, VITÓRIA
ES - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 16/06/2004 23:50 hs
Olá amigo, eu estive atrás disso tb para minha nova OCX, mas não é possivel faze-lo sem uma interação do usuário no VB, na verdade impossível entre aspas  use este código: Const SHFD_CAPACITY_DEFAULT = 0 ' default drive capacity
Const SHFD_CAPACITY_360 = 3 ' 360KB, applies to 5.25" drives only
Const SHFD_CAPACITY_720 = 5 ' 720KB, applies to 3.5" drives only
Const SHFD_FORMAT_QUICK = 0 ' quick format
Const SHFD_FORMAT_FULL = 1 ' full format
Const SHFD_FORMAT_SYSONLY = 2 ' copies system files only (Win95 Only!)
Private Declare Function SHFormatDrive Lib "shell32" (ByVal hwndOwner As Long, ByVal iDrive As Long, ByVal iCapacity As Long, ByVal iFormatType As Long) As Long
Private Sub Form_Load()
'iDrive = nº do drive a formatar. Drive A=0, B=1, C=1(cuidado))
SHFormatDrive Me.hwnd, 0, SHFD_CAPACITY_DEFAULT, SHFD_FORMAT_QUICK
End Sub
Pois é sempre vai ter que ter uma intervenção do usuário.
____________________________ PC² T+
|
|
|
|
