Форум: "Начинающим";
Текущий архив: 2006.02.19;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Just a man   (2006-02-03 10:28) [0]

Захотелось написать простенькую утилиту для проверки наличия дискетты при выключении компа. А то последнее время стал часто их там забывать :) Подскажите, пожалуйста, как это можно сделать.

---

← →
promomix   (2006-02-03 10:56) [1]

ну можно искать на диске "а:" файлы. находишь - там, ненаходишь - нет, либо пустая.
а вообще, удобнее стикер на мон прилепить.

---

← →
umbra ©   (2006-02-03 11:06) [2]


 if FileExists("a:\") then
   ShowMessage("Диск в дисководе забыли!");


---

← →
Игорь Шевченко ©   (2006-02-03 11:15) [3]

> Подскажите, пожалуйста, как это можно сделать


Я бы сделал через GetVolumeInformation

procedure TfMain.ButtonClick(Sender: TObject);
var
 OldErrorMode: DWORD;
begin
 OldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS);
 try
   if GetVolumeInformation("A:\", nil,
       0,
       nil, Cardinal(nil^), Cardinal(nil^),
       nil, 0) then
     ShowMessage("Remove floppy disk");
 finally
   SetErrorMode(OldErrorMode);
 end;
end;

---

← →
umbra ©   (2006-02-03 11:20) [4]

ошибся. надо


 if DirectoryExists("a:\") then
  ShowMessage("Диск в дисководе забыли!");


---

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

Форум: "Начинающим";
Текущий архив: 2006.02.19;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.04 c