| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Утилитка для проверки наличия дискетты [D6]

Just a man ©   (2006-02-03 10:28:00) 

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

---

umbra   (2006-02-03 11:20:00) [1]

ошибся. надо


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


---

Игорь Шевченко   (2006-02-03 11:15:00) [2]

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


Я бы сделал через 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:06:00) [3]


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


---

promomix   (2006-02-03 10:56:00) [4]

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

---

Наверх