Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.30;
Скачать: CL | DM;

Вниз

Как проверить наличие дискеты в дисководе   Найти похожие ветки 

 
you   (2004-04-28 08:12) [0]

Подскажите, как проверить наличие дискеты в дисководе? Заранее благодарю!!!


 
TUser ©   (2004-04-28 08:32) [1]

if DirectoryExists("a:\") then
  showMessage("!");

Если дискеты нет - пользователь будет обрадован радостным окошком об этом.


 
you   (2004-04-28 08:39) [2]

а...сэнкс


 
you   (2004-04-28 08:43) [3]

у меня все равно сначала ошибка винды выскакивает, что дискеты в дисководе нет. как ее убрать?


 
MBo ©   (2004-04-28 08:45) [4]

SetErrorMode SEM_FAILCRITICALERRORS


 
TUser ©   (2004-04-28 08:48) [5]

Точно не уверен, но возможно поможет SHBrowseForFolder.


 
you   (2004-04-28 08:58) [6]

всем спасибо, буду пробовать


 
GH@ST ©   (2004-04-28 12:04) [7]

function DiskInDrive(const Drive: char): Boolean;
var
DrvNum:byte;
EMode:Word;
begin
result:=true;
DrvNum:=ord(Drive);
if DrvNum>=ord(Manform.DriveComboBox1.Drive) then dec(DrvNum,$20);
EMode:= SetErrorMode(SEM_FAILCRITICALERRORS);
try
while DiskSize(DrvNum-$40)=-1 do
 begin
 Result:=false;
 Break;
 end;
finally
SetErrorMode(EMode);
end;
end;


 
GH@ST ©   (2004-04-28 12:09) [8]

function DiskInDrive(const Drive: char): Boolean;
var
DrvNum:byte;
EMode:Word;
begin
result:=true;
DrvNum:=ord(Drive);
if DrvNum>=ord(Manform.DriveComboBox1.Drive) then dec(DrvNum,$20);
EMode:= SetErrorMode(SEM_FAILCRITICALERRORS);
try
while DiskSize(DrvNum-$40)=-1 do
 begin
 Result:=false;
 Break;
 end;
finally
SetErrorMode(EMode);
end;
end;



Страницы: 1 вся ветка

Текущий архив: 2004.05.30;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.094 c
1-1084982628
Wontar
2004-05-19 20:03
2004.05.30
Как пребразовать wParam к Char ...


1-1084785192
Stas
2004-05-17 13:13
2004.05.30
Как узнать удален ли компонент ?


14-1084109673
Nick Denry
2004-05-09 17:34
2004.05.30
Куда дели ссылку на Мастера Улыбаются?


3-1084254203
Fishka
2004-05-11 09:43
2004.05.30
Количество полей или количество записей


14-1084156747
TGero
2004-05-10 06:39
2004.05.30
TImage - ничто, Delphi - все!