VPF::Ошибка при поиске съемных носителей

artmaestro

Дата 29.8.2012, 01:27 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 80
Регистрация: 8.11.2010

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

Здравствуйте

Я написал простенькую программу для работы с флешками и одной из ее задачи является вывод всех съемных носителей (их имен) в ListBox. Сделать это у меня получилось, НО функция только идеально работает на компьютерах, где нет дисководов.

Как только пробую прогу запустить на компьютере с пустым дисководом, выдает комп ошибку, если в дисковод вставляю дискету, ошибки нет

Код программы

Код


function issetRemovableDrive():TStringList;
var
    i:Integer;
    w:Cardinal;
    RemovableDriveList:TStringList;

begin
   RemovableDriveList := TStringList.Create;
  w := GetLogicalDrives;
 
   for i :=2  to 26 do
    begin
      if 1 shl i and w > 0 then
    
     if GetDriveType(PChar(chr(i+65)+':\')) = DRIVE_removable then
         begin
              RemovableDriveList.Add(chr(i+65)+':\');
             end;
    end;

       Result := RemovableDriveList;

end;

Подскажите в чем ошибка и как ее устранить, буду благодарен.

Это сообщение отредактировал(а) artmaestro - 29.8.2012, 01:38

Illusion Dolphin

Дата 29.8.2012, 20:39 (ссылка)

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

Загрузка ...

Эксперт

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

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

Можно попробовать так:

Код


function issetRemovableDrive():TStringList;
var
    i:Integer;
    w:Cardinal;
    RemovableDriveList:TStringList;
  OldMode: Cardinal;
begin
  OldMode := SetErrorMode(SEM_FAILCRITICALERRORS);
   RemovableDriveList := TStringList.Create;
  w := GetLogicalDrives;
 
   for i :=2  to 26 do
    begin
      if 1 shl i and w > 0 then
    
     if GetDriveType(PChar(chr(i+65)+':\')) = DRIVE_removable then
         begin
              RemovableDriveList.Add(chr(i+65)+':\');
             end;
    end;
       Result := RemovableDriveList;

    SetErrorMode(OldMode);
end;

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

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

artmaestro

Дата 31.8.2012, 01:07 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 80
Регистрация: 8.11.2010

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

Спасибо! Заработало, сообщение не появляется.

Это сообщение отредактировал(а) artmaestro - 31.8.2012, 02:07

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