procedure TForm1.Button1Click(Sender: TObject);
var DriveType: Integer;
begin
DriveType := GetDriveType(pChar('A:\'));
case drivetype of
0 : ShowMessage( 'Tip alinamadi' );
1 : ShowMessage( 'Gecersiz sürücü' );
DRIVE_REMOVABLE : ShowMessage( 'Floppy Disk' );
DRIVE_FIXED : ShowMessage( 'Sabit Disk' );
DRIVE_REMOTE : ShowMessage( 'Network Drive' );
DRIVE_CDROM : ShowMessage( 'CD-Rom Drive' );
DRIVE_RAMDISK : ShowMessage( 'Ramdisk Drive' );
else
ShowMessage('Bilinmiyor');
end;
end;