Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.03.2012, 23:58   #1
TwiX
Участник клуба
 
Аватар для TwiX
 
Регистрация: 28.07.2009
Сообщений: 1,510
По умолчанию Есть буква (пусть D). Как узнать, существует ли такой диск и является ли он локальным?

Хотя бы проверить на существование...
Заранее спасибо
TwiX вне форума Ответить с цитированием
Старый 14.03.2012, 00:02   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 18,922
По умолчанию

GetLogicalDrives
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 14.03.2012, 00:15   #3
BlackFishSQL
Форумчанин
 
Аватар для BlackFishSQL
 
Регистрация: 02.04.2011
Сообщений: 136
По умолчанию

Есть весьма полезный метод Windows, который раскажет вам о типе диска подключенного к системе
function GetDriveType(Drive:PChar) : Integer
Код:
begin
 for Ch:='A' to 'Z' do
  begin
   iDriveType:=GetDriveType(PChar(Ch+ ':\'));
   if iDriveType<=1 then Continue; // если диск не обнаружен, пропускаем шаг
   case iDriveType of
     DRIVE_REMOVABLE  : sDriveType:='Removable'; // аля съемный
     DRIVE_FIXED          : sDriveType:='Fixed'; // аля жесткий
     DRIVE_REMOTE       : sDriveType:='NETWORK'; //удал. (сетев) диск
     DRIVE_СDROM         : sDriveType:='СD_Rom'; //тута понятно
     DRIVE_RAMDISK       : sDriveType:='RAM'; //диск в опер памяти
   else                          sDriveType:='unknow'; // таких нету
    end;
Вывод и описание переменных додумайте сами, лень писать!)) могут ошибки быть.......

Последний раз редактировалось BlackFishSQL; 14.03.2012 в 00:24.
BlackFishSQL вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Существует ли такой компонент или как этого добиться Arkuz Общие вопросы Delphi 2 01.12.2011 15:53
как сформировать запрос к базе, что бы узнать есть ли уже такой товар? FACE OFF Помощь студентам 2 10.12.2010 09:35
Как узнать с помощью PHP, существует ли таблица в БД MySQL? motorway PHP 10 27.09.2010 15:01
Как узнать существует ли в БД нужная строка? kiber0net0 БД в Delphi 1 02.09.2008 21:31
Как узнать, существует ли в базе таблица с указанным именем? Seqular БД в Delphi 1 01.03.2007 10:19