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

← →
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;

ошибся. надо

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

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