Информация о логических дисках

Code:

procedure TMainForm.btnGetHandleClick(Sender: TObject);

var DriveHandle : HWND;

begin

case Win32Platform of

VER_PLATFORM_WIN32_NT:

   begin

     DriveHandle := CreateFile ('\\.\Scsi0:', GENERIC_READ+GENERIC_WRITE,

                               FILE_SHARE_READ+FILE_SHARE_WRITE, nil,

                               OPEN_EXISTING, 0, 0);

     if DriveHandle <> INVALID_HANDLE_VALUE then

       MessageBox (MainForm.Handle, PChar(IntToStr(DriveHandle)),

                  PChar('Here is your handle:'), MB_ICONINFORMATION)

     else

        MessageBox (MainForm.Handle, PChar('Error!'), PChar('Error'),

                    MB_ICONERROR);

   end;

VER_PLATFORM_WIN32_WINDOWS:

begin

DriveHandle := CreateFile ('\\.\SMARTVSD', 0, 0, nil, CREATE_NEW, 0, 0 );

if DriveHandle <> INVALID_HANDLE_VALUE then

   MessageBox (MainForm.Handle, PChar(IntToStr(DriveHandle)),

               PChar('Here is your handle:'), MB_ICONINFORMATION)

else

   MessageBox (MainForm.Handle, PChar('Error!'), PChar('Error'), MB_ICONERROR);

end;

end; // case

end