//---------------------------------------------------------------------------    #include 
#pragma hdrstop
#include "winbase.h"
#include "DokingCard1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
String sVolBuf;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{    }
//---------------------------------------------------------------------------
void __fastcall WhichFileSystem(String Drive)
{    LONG lRes;
LPDWORD lSerialNum;
LPDWORD lComponentLength;
LPDWORD lSysFlags ;
String sSysName;
String WhichFileSystem;
lRes=GetVolumeInformation(Drive.c_str(),sVolBuf.c_str(),255,lSerialNum,
lComponentLength,lSysFlags,sSysName.c_str(),255);    }
//---------------------------------------------------------------------------    void __fastcall TForm1::Button1Click(TObject *Sender)
{
int type;
for(char sz='C'; sz<='Z'; sz  )
   {
 AnsiString  Drive=(AnsiString)sz ":\\";
 type = GetDriveType( Drive.c_str() );     switch (type)
 {
  case 2: ;
MessageDlg(sVolBuf.c_str(), mtInformation, TMsgDlgButtons() << mbOK, 0 );
  break;
  case 3: ;
MessageDlg(sVolBuf.c_str(), mtInformation, TMsgDlgButtons() << mbOK, 0 );
  break;    }      }

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   DWORD NumSerie;
   char NomVol[12];
   char SysFile[16];       GetVolumeInformation("C:/", NomVol, 12, &NumSerie, NULL , NULL, SysFile, 16);       Label1->Caption = IntToHex((int)NumSerie, 8);
   Label2->Caption = SysFile;
   Label3->Caption = NomVol;    }

/*生活是一種藝術,用心生活才能享受生活*/