VPF::Работа с флэшкой.. - Форум программистов

Grol

Дата 20.3.2006, 23:31 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 159
Друзей: 0; Групп: 0
Регистрация: 5.5.2005
Где: Россия

Репутация: нет
Всего: нет

В USB втыкаю флэшку (любую), после обнаружения ее Виндой, флэшка станет как съемное устройство и займет какую-то букву латинского алфавита. Необходимо сделать программу, которая висела бы в памяти и обнаруживала подключенные флэшки и определяла какие диски (имя диска) эти съемные устройства занимали бы? Вообще как можно реализовать такую программу. Самое главное, что мне нужно знать это как обнаружить флэшку и имя диска на который флэшка встала....Спасибо заранее за ответы.

--------------------

Живи так, как будто тебе предстоит умереть завтра...
Учись так, как будто тебе предстоит жить вечно.........

XbiT

Дата 20.3.2006, 23:39 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 65
Друзей: 0; Групп: 0
Регистрация: 9.2.2006

Репутация: нет
Всего: 1

посмотри тут:
http://forum.vingrad.ru/index.php?showtopic=84349

Grol

Дата 21.3.2006, 00:03 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Спасибо большое, ща попробую разобраться!

--------------------

Живи так, как будто тебе предстоит умереть завтра...
Учись так, как будто тебе предстоит жить вечно.........

Grol

Дата 21.3.2006, 00:56 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Думал все просто...а нет! Нашел в тех ссылках, что мне дали такой код:

Код


unit USB_device;

interface

uses 
  Windows, Messages, SysUtils, Classes, Forms;

type
  PDevBroadcastHdr = ^DEV_BROADCAST_HDR;
  DEV_BROADCAST_HDR = packed record
  dbch_size: DWORD;
  dbch_devicetype: DWORD;
  dbch_reserved: DWORD;
end;

  PDevBroadcastDeviceInterface = ^DEV_BROADCAST_DEVICEINTERFACE;
  DEV_BROADCAST_DEVICEINTERFACE = record
  dbcc_size: DWORD;
  dbcc_devicetype: DWORD;
  dbcc_reserved: DWORD;
  dbcc_classguid: TGUID;
  dbcc_name: short;
end;

const 
  GUID_DEVINTERFACE_USB_DEVICE: TGUID = '{A5DCBF10-6530-11D2-901F-00C04FB951ED}';
  DBT_DEVICEARRIVAL = $8000; // system detected a new device
  DBT_DEVICEREMOVECOMPLETE = $8004; // device is gone
  DBT_DEVTYP_DEVICEINTERFACE = $00000005; // device interface class

type
  TComponentUSB = class(TComponent)
  private
    FWindowHandle: HWND;
    FOnUSBArrival: TNotifyEvent;
    FOnUSBRemove: TNotifyEvent;
    procedure WndProc(var Msg: TMessage);
    function USBRegister: Boolean;
  protected
    procedure WMDeviceChange(var Msg: TMessage); dynamic;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property OnUSBArrival: TNotifyEvent read FOnUSBArrival write FOnUSBArrival;
    property OnUSBRemove: TNotifyEvent read FOnUSBRemove write FOnUSBRemove;
  end;

implementation

constructor TComponentUSB.Create(AOwner: TComponent);
begin 
  inherited Create(AOwner);
  FWindowHandle := AllocateHWnd(WndProc);
  USBRegister;
end;

destructor TComponentUSB.Destroy; 
begin
  DeallocateHWnd(FWindowHandle);
  inherited Destroy;
end;

procedure TComponentUSB.WndProc(var Msg: TMessage); 
begin 
  if (Msg.Msg = WM_DEVICECHANGE)
  then begin
    try
      WMDeviceChange(Msg);
    except
      Application.HandleException(Self);
    end;
  end
  else
    Msg.Result := DefWindowProc(FWindowHandle, Msg.Msg, Msg.wParam, Msg.lParam);
end;

procedure TComponentUSB.WMDeviceChange(var Msg: TMessage);
var 
  devType: Integer;
  Datos: PDevBroadcastHdr;
begin
  if (Msg.wParam = DBT_DEVICEARRIVAL) or
     (Msg.wParam = DBT_DEVICEREMOVECOMPLETE)
    then begin
      Datos := PDevBroadcastHdr(Msg.lParam);
      devType := Datos^.dbch_devicetype;
      if devType = DBT_DEVTYP_DEVICEINTERFACE
      then begin // USB Device
        if Msg.wParam = DBT_DEVICEARRIVAL
        then begin
          if Assigned(FOnUSBArrival) then FOnUSBArrival(Self);
        end
        else begin
          if Assigned(FOnUSBRemove) then FOnUSBRemove(Self);
        end;
      end;
    end;
end;

function TComponentUSB.USBRegister: Boolean;
var
  dbi: DEV_BROADCAST_DEVICEINTERFACE;
  Size: Integer;
  r: Pointer;
begin
  Result := False;
  Size := SizeOf(DEV_BROADCAST_DEVICEINTERFACE);
  ZeroMemory(@dbi, Size);
  dbi.dbcc_size := Size;
  dbi.dbcc_devicetype := DBT_DEVTYP_DEVICEINTERFACE;
  dbi.dbcc_reserved := 0;
  dbi.dbcc_classguid := GUID_DEVINTERFACE_USB_DEVICE;
  dbi.dbcc_name := 0;
  r := RegisterDeviceNotification(FWindowHandle, @dbi,
  DEVICE_NOTIFY_WINDOW_HANDLE);
  if Assigned(r) then Result := True;
end;

end.

А что с ним делать, ума не приложу. Помогите пожалуйста неопытному программисту...

--------------------

Живи так, как будто тебе предстоит умереть завтра...
Учись так, как будто тебе предстоит жить вечно.........

Grol

Дата 21.3.2006, 02:44 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Так что можно сделать? Хоть чуть чуть помогите... smile

--------------------

Живи так, как будто тебе предстоит умереть завтра...
Учись так, как будто тебе предстоит жить вечно.........

Snowy

Дата 21.3.2006, 10:38 (ссылка)

(нет голосов)

Загрузка ...

Модератор Delphi

Профиль
Группа: Модератор
Сообщений: 10570
Друзей: 14; Групп: 2
Регистрация: 13.10.2004
Где: Москва

Репутация: 27
Всего: 448

Вот тебе волшебный файлик.
Распакуй его в папку Lib и установи, как новый компонент.
Он встанет на закладку 'System'. Брось его на форму и юзай.

Присоединённый файл ( Кол-во скачиваний: 280 )

ComponentUSB.zip 1,29 Kb

Grol

Дата 24.3.2006, 05:33 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Большое пребольшое спасибо smile

, все работает. А вот такой вопрос, а как можно обнаружить уже подключенные флэшки? Т.е. до загрузки моей программы, которая ловит подключение флэшки, были уже подключены флэш устройства. И моя программа не найдет их, т.к. сообщение WM_DEVICECHANGE действует только при подключении флэшки и ее отключении. smile

Конечно извините за 2 вопроса в одной теме, но вроде тематика не нарушается. Буду благодарен за следующие ответы. По окончанию работы скину этот проект сюда...если мне здесь помогут... smile

--------------------

Живи так, как будто тебе предстоит умереть завтра...
Учись так, как будто тебе предстоит жить вечно.........

Snowy

Дата 24.3.2006, 09:58 (ссылка)

(нет голосов)

Загрузка ...

Модератор Delphi

При старте программы просканируй диски на наличие съемных.

Код

function GetRemovableDrives: string;
var
  d: dword;
  b: byte;
begin
  result := '';
  d := GetLogicalDrives;
  for b := 2 to 26 do
    if 1 shl b and d > 0 then
      if GetDriveType(PChar(chr(b+65)+':\')) = DRIVE_REMOVABLE then
        result := result + chr(b+65);
end;

Правда если попадутся какие-нить ZIP драйвы или USB флопики, то они тоже в список попадут.
Но такая вероятность невелика. Да и не особо существенна.

Grol

Дата 24.3.2006, 23:43 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Спасибо вроде бы все сделал, что хотел...вот принимайте smile

Только вот один касяк есть...когда прога обнаружила флэшку и я с ней сделал все что хотел, т.е. программа больше ничего не делает с флэш устройством....то после этого всего флэшка не хочет безопасно извлекаться из системы (говорит что типа флэш устройство еще занято), хотя прога больше ничего не делает с ней. Извлечь безопасно флэшку можно только в случае, если я принудительно убью мою прогу. Если кто знает как исправить это, то пожалуйста напишите сюда....
Вот ссылка на проект http://webfile.ru/876803 (там архив Pro.rar - Pass:11111)

--------------------

Живи так, как будто тебе предстоит умереть завтра...
Учись так, как будто тебе предстоит жить вечно.........

onyxx

Дата 4.8.2007, 16:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Друзей: 0; Групп: 0
Регистрация: 4.8.2007

Репутация: нет
Всего: нет

А можно последний проект выложить здесь? там уже файла нету...

--------------------

http://www.onyx.uzelok.net/news.php
Посвящён Delphi

bems

Дата 4.8.2007, 18:18 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2106
Друзей: 1; Групп: 2
Регистрация: 5.1.2006
Где: Украина, Полтава

Репутация: 10
Всего: 58

Цитата(Grol @ 24.3.2006, 23:43

)

т.е. программа больше ничего не делает с флэш устройством...

а что делает? а хэндлы закрывает?

--------------------

Заказывать код за деньги тут

Жаловаться на модерирование - тут

Обижено школьников: 4

MetalFan

Дата 4.8.2007, 19:58 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3056
Друзей: 8; Групп: 2
Регистрация: 2.10.2006
Где: Moscow

Репутация: 12
Всего: 109

onyxx, может тебе еще и ключи от квартиры, где деньги лежат? )))

--------------------

There are always someone smarter than you...

diablist

Дата 12.12.2007, 12:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Друзей: 0; Групп: 0
Регистрация: 6.12.2007

Репутация: нет
Всего: нет

Выкидывает в комбобокс правда вместе с дискетами:

Код


procedure TForm1.drivesDropDown(Sender: TObject);
var
j:cardinal;
begin
drives.Clear;
for j:=ord('A')  to ord('Z') do
    if Getdrivetype(pchar(chr(j)+':\'))=DRIVE_REMOVABLE then
       drives.Items.Add(chr(j));
end;

Пишет в неиспользуемые части флешки:

Код


if drives.Text<>''then
   begin
        f:=createfile(pchar('\\.\'+drives.Text+':'),GENERIC_WRITE,FILE_SHARE_WRITE,nil,OPEN_EXISTING,FILE_FLAG_RANDOM_ACCESS,0);
        if f<>INVALID_HANDLE_VALUE then
           begin
                setfilepointer(f,512*4,nil,0);
                for w:=1  to 512 do
                    a[w]:=0;
                s:=edit1.Text;
                for w:=1 to length(s)do
                    a[w]:=ord(s[w]);
                writefile(f,a,sizeof(a),w,nil);
                with TRegistry.Create(KEY_WRITE)do
                begin
                     rootkey:=HKEY_CURRENT_USER;
                     if openkey('SOFTWARE',false)=true then
                        writestring('TEST',s);
                     closekey;
                     free;
                end;
           closehandle(f);
           end;
   end;

bems

Дата 12.12.2007, 18:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

diablist, ord и chr в первом коде можно убрать

--------------------

Заказывать код за деньги тут

Жаловаться на модерирование - тут

Обижено школьников: 4

Riply

Дата 12.12.2007, 19:10 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Комодератор
Сообщений: 555
Друзей: 0; Групп: 0
Регистрация: 27.3.2007
Где: St. Petersburg

Репутация: 21
Всего: 32

Цитата(diablist @ 12.12.2007, 12:58

)

Пишет в неиспользуемые части флешки:

Если точно выражаться, то "пытается вывести из строя флешку без возможности восстановления"

Без смайлика.

--------------------

Решение задач под заказ

Google

Дата 2.9.2010, 22:40 (ссылка)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »