Как обнаружить, что вставили дискету?

← →
stals © (2005-09-20 15:47) [0]

Народ, как это проделать, есть ли какие сообщения от винды в этот момент? Вобщем, как просечь момент, когда ее вставили, но при этом не использовать вечный цикл на проверку доступноси дисковода (чтобы не хрюкал все время) ?

← →
Джо © (2005-09-20 16:04) [1]

На PC - никак. Аппаратно не поддерживается без прямого обращения. На Маках - да, поддерживается контроллером и самим устройством привода.

← →
stals © (2005-09-20 16:25) [2]

Дык а можно как-нибудь хрюканье тогда поменьше сделать? :)
Чтоб один раз дернулся проверить и успокоился, а то он начинает полчаса трещать...

← →
Big Joe © (2005-09-20 16:51) [3]

function DiskInDrive(const Drive: char): Boolean;
var
DrvNum: byte;
EMode: Word;
begin
result := true; // было false
DrvNum := ord(Drive);
if DrvNum >= ord("a") then
dec(DrvNum, $20);
EMode := SetErrorMode(SEM_FAILCRITICALERRORS);
try
while DiskSize(DrvNum - $40) = -1 do
begin // при неудаче выводим диалог
if (Application.MessageBox("Диск не готов..." + chr(13) + chr(10) +
"Повторить?", PChar("Диск " + UpperCase(Drive)), mb_OKCANCEL +
mb_iconexclamation {IconQuestion}) = idcancel) then
begin
Result := false;
Break;
end;
end;
finally
SetErrorMode(EMode);
end;
end;

И еще поставь нормальную дискету чтоб пол часа не трещала.

← →
Джо © (2005-09-20 17:27) [4]

> [2] stals © (20.09.05 16:25)
> Дык а можно как-нибудь хрюканье тогда поменьше сделать?
> :)

Никак не можна.

← →
DrPass © (2005-09-20 21:35) [5]

Вставь в вечный цикл проверки дисковода Sleep(2000). Хрюкать будет заметно меньше

AutoRun для флопаря? Оригинально!
НЕ МУЧАЙТЕ ФЛОП!
Гловки сотрутся!
:)
ик

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