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

Вниз

новое подключение Flash или ZIV   Найти похожие ветки 

 
Doom-2   (2007-05-06 10:39) [0]

Данная функция должна отследить новое подключение Flash или ZIV-а. Я поместил её в OnTimer1 и началось...
- Return value of function "WindowProc" might be undefined
- Не заданы все параметры... а что такое: (Hwn, msg: longint): longint; stdcall мне не совсем понятно!
Из-за своей необразованности, не могу разобраться с кодом:

const DBT_DEVNODES_CHANGED = $7;

function WindowProc(Hwn, msg: longint): longint; stdcall;
var c: char;
    drive: string;
begin
if msg=WM_DEVICECHANGE
then begin
 if wpr = DBT_DEVNODES_CHANGED then //Состояние устройств изменилось
 begin
  for c := "D" to "Z" do // Определяем букву устройства
  begin
   drive := c + ":\";
   case GetDriveType(PChar(drive)) of //Проверяем тип устройства
    DRIVE_REMOVABLE: // Если флэха, то...
    begin
     ShowMessage("Обнаружен новый диск!");
    end;
   end;
  end;
 end;
end;
end;


 
Doom-2   (2007-05-06 10:40) [1]

Как заставить его работать?


 
Virgo_Style ©   (2007-05-06 10:48) [2]

Doom-2   (06.05.07 10:40) [1]

Это какой-то ужас, по-моему


 
Doom-2   (2007-05-06 12:15) [3]

С горем пополам разобрался:
type
 TForm1 = class(TForm)
 public
   procedure CD(var Msg: TMessage); message WM_DEVICECHANGE;
 end;

const  DBT_DEVNODES_CHANGED = $7;

procedure TForm1.CD(var Msg: TMessage);
var c: char;
   drive: string;
begin
 case Msg.WParam of
   DBT_DEVNODES_CHANGED:
   begin
    for c := "D" to "Z" do // Определяем букву устройства
    begin
     drive := c + ":\";
     case GetDriveType(PChar(drive)) of //Проверяем тип устройства
      DRIVE_REMOVABLE: // Если флэха, то...
      begin
       ShowMessage("Новый диск "+drive);
      end;
     end;
    end;
   end;
 end;
end;

Возник ещё вопрос:
Почему при подключении Flash-ки сообщение "Новый диск F:\" появляется нормально - 1 раз. Но при безопасном отключении оно выскакивает трижды! Как это исправить?



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

Текущий архив: 2007.05.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.046 c
8-1158154178
Lockdog
2006-09-13 17:29
2007.05.27
Определение цвета и преобразование палитры


15-1177705119
lookin
2007-04-28 00:18
2007.05.27
Имена файлов


15-1177450374
SerJaNT
2007-04-25 01:32
2007.05.27
Вывести имена папок в таблице (PHP)


2-1178872367
vitv
2007-05-11 12:32
2007.05.27
FormKeyDown-проблема.


15-1177759087
NailMan
2007-04-28 15:18
2007.05.27
Акроботы