VPF::Диск 3.14 - Форум программистов

Mde

Дата 15.12.2004, 00:16 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 77
Регистрация: 15.11.2004
Где: Азов, Ростовской области

Репутация: нет
Всего: нет

Подскажите пожалуйста как в системе определить под какой буквой числится дискета(3.14). Букв то много в может быть на любой от A до Z чаще всего на А. Но все же для уверенности подскажите кто чем может.

Alex

Дата 15.12.2004, 00:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

Код


type
  tDriveType = (dFloppy, dHdd, dCDROM, dNetwork);

const
  DriveType: array [tDriveType] of Cardinal = (
         {dFloppy } 2,
         {dHdd    } 3,
         {dCDROM  } 5,
         {dNetwork} 4
             );

function GetAllDrives(dType: tDriveType): String;
// Получение списка дисков, имеющихся в системе
// dType - Тип диска
var
  Drive: char; // Буква диска
const
  pref = ':\';
begin
  Result:='None';
  with TStringList.Create do try
    for Drive:= 'A' to 'Z' do
      if GetDriveType(PChar(Drive + pref)) = DriveType[dType] then
        Add(Drive + pref);
    SetString(Result, PChar(CommaText), length(CommaText));
  finally
    Free;
  end;
end;
// -----------------------------------------------------------------
function GetAllFloppyDrives: string;
// Получение списка гибких дисков, имеющихся в системе
begin
  Result:= GetAllDrives(dFloppy);
end;
// -----------------------------------------------------------------
function GetAllHddDrives: string;
// Получение списка жестких дисков, имеющихся в системе
begin
  Result:= GetAllDrives(dHdd);
end;
// -----------------------------------------------------------------
function GetAllCDDrives: String;
// Получение списка CD дисков, имеющихся в системе
begin
  Result:= GetAllDrives(dCDROM);
end;
// -----------------------------------------------------------------
function GetAllNetworkDrives: string;
// Получение списка сетевых дисков, имеющихся в системе
begin
  Result:= GetAllDrives(dNetwork);
end;
// -----------------------------------------------------------------

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

Mde

Дата 16.12.2004, 02:51 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Дурацкий вопрос и че с эти делать? По подробней если можно

Snowy

Дата 16.12.2004, 14:07 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Код


uses Windows
var
  D: char;
begin
  for D:= 'A' to 'Z' do
      if GetDriveType(PChar(Drive + ':\')) = DRIVE_REMOVABLE then // D - это он!

Одна проблема: Определяет первый Removable. А им может оказаться в 0.05% случаев и ZIP и флэш и т.п. Но другого способа в дельфях нет. Может где-то что-то нестандартное есть, но науке это неизвестно.

~FoX~

Дата 16.12.2004, 14:10 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68

Может я чего не понимаю, но раскажите мне как можно диску 3,5 заделать любую букву кроме А ил В???

--------------------

…множественность никогда не следует полагать без необходимости…

Snowy

Дата 16.12.2004, 15:54 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Ну, как вариант, можно вытащить флоп, поставить XP, подключить пару сетевых дисков на А и В, а потом воткнуть флоп обратно. Сам не проверял, но XP, в отличие от 9x, не любят менять буковки диска.
Можно попробовать в реестре поменять дескриптор А и В (также в ХР).
А вообще их может вообще не быть в системе (у меня например вообще флопа нет).

~FoX~

Дата 17.12.2004, 17:55 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68

А можноли через BIOS дернуть?

--------------------

…множественность никогда не следует полагать без необходимости…

Snowy

Дата 20.12.2004, 13:56 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Нет, через BIOS только A и B (сидели на трубe).
А если флоп внешний, то тут уж фантазия неограничена...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »