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

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.048 c
10-1114072163
Priest
2005-04-21 12:29
2006.02.19
Проблема с запуском COM сервера


3-1135237012
krb
2005-12-22 10:36
2006.02.19
Импорт из db-Vista


15-1138696408
syte_ser78
2006-01-31 11:33
2006.02.19
символ перехода на следующую строку?


3-1134878044
atruhin
2005-12-18 06:54
2006.02.19
Передается ли блоб на клиента из процедуры


15-1138183869
Иксик
2006-01-25 13:11
2006.02.19
А по какому принципу тут ветки удаляются?