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

Grol

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

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

Загрузка ...

Бывалый

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

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

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

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

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

XbiT

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

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

Загрузка ...

Шустрый

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

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

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

Grol

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

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

Загрузка ...

Бывалый

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

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

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

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

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

Grol

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

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

Загрузка ...

Бывалый

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

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

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

Код


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 (ссылка)

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

Загрузка ...

Бывалый

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

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

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

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

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

Snowy

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

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

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

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

ComponentUSB.zip 1,29 Kb

Grol

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

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

Загрузка ...

Бывалый

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

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

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

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

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

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

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

Snowy

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

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

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

Код

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 (ссылка)

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

Загрузка ...

Бывалый

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

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

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

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

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

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

onyxx

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

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

Загрузка ...

Новичок

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

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

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

bems

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

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

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

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

)

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

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

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

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

MetalFan

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

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

Загрузка ...

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

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

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

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

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

There are always someone smarter than you...

diablist

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

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 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 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

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

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

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

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

Riply

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

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

Загрузка ...

Опытный

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

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

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

)

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

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

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

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

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

bems

Дата 13.12.2007, 17:54 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

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

Riply, можно поподробнее?

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

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

Riply

Дата 13.12.2007, 19:30 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата(bems @ 13.12.2007, 17:54

)

Riply, можно поподробнее?

Все дело в том, что я очень не люблю "сакраментальных" чисел. smile

А если серьезно, то:

Если бы человек удосужился проверить с какой файловой системой он имеет дело,
то можно было бы устроить гадание куда он хотел попасть:
то ли в Bad Clusters, то ли в Unused Clusters, BootStrap, или еще куда ?
А без определения файловой системы все дольнейшие разговоры совершенно бессмысленны.

Допустим "дух святой" просвятил его с чем он имеет дело.
Но даже в этом случае гадание на кофейной гуще будет продолжаться:
Что за такое хитрое смещение ( 512*4 ) используется в SetFilePointer ?

На четыре сектора ? А кто сказал, что размер сектора равен 512 ?
На один кластер ? А он проверял сколько секторов в кластере ?
Может на размер файловой записи ? Или на 2048 папугаев ?
Ни одна из этих величин не является "увековеченой в камне" и
индивидуальна для каждого "партишен".

Вот когда он со всем этим определиться, получит все смещения, размеры и "базовые адреса" для данного диска,
то можно будет и поговорить о том насколько безопасна запись в данное конкретное место,
(например в $UpCase или в $Extend) и каких правил
необходимо придерживатья при записи именно сюда.

Ну а запись "туда не знаю куда, того не знаю чего" в лучшем случае приведет к
падению файловой системы, а может и к сообщению от Windows,
что флешка(дискета или еще что) не отформатирована и
система не в состоянии сделать это smile

P.S.
Дабы не спорить о фиксированности FS, сообщаю:
бывают даже флоппики с NTFS smile

P.S.S.
Своими руками пока (тьфу, тьфу ) безвозвратно флешки не портила,
но знаю тех, кто ухитрялся превратить их в "груду металлолома" smile

Добавлено через 3 минуты и 35 секунд
Забыла очень важную деталь:
все сказанное выше - это imho
smile

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

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

bems

Дата 13.12.2007, 19:53 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

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

Цитата(Riply @ 13.12.2007, 19:30

)

Ну а запись "туда не знаю куда, того не знаю чего" в лучшем случае приведет к
падению файловой системы

а в худшем?

Цитата(Riply @ 13.12.2007, 19:30

)

Дабы не спорить о фиксированности FS, сообщаю:
бывают даже флоппики с NTFS

да никто с тобой не собирается спорить. Я вообще смотрю снизу вверх и пытаюсь хоть что-то понять.

Цитата(Riply @ 13.12.2007, 19:30

)

но знаю тех, кто ухитрялся превратить их в "груду металлолома"

вот это то о чем я и спрашиваю. Что там такого, что потом уже нельзя сделать "как надо"(ясен перец о восстановлении "полезной" информации я не говорю)? где почитать?

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

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

Riply

Дата 13.12.2007, 21:06 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата(bems @ 13.12.2007, 19:53

)

Что там такого, что потом уже нельзя сделать "как надо"(ясен перец о восстановлении "полезной" информации я не говорю)? где почитать?

Сложный ворос. Инфомации очень мало.
У Rouse_ на сайте есть очень неплохая книжка.
Если не ошибаюсь, называется: "Криминальный анализ файловых систем".
По вопорасам "уничтожения флешки как устройства" крохи информации можно подчерпнуть
на сайтах компаний, занимающихся восстановлением данных
(ссылки не помню, т.к. этот аспект меня особо не интересовал smile

),
имеются ввиду те, которые описывают алгоритмы своей работы.
Так же у "линуксоидов" можно попробовать посмотреть в исходниках ntfs_3g - драйвера,
в каких случаях идет ошибка форматирования.

В принципе, я могу рассказать о последовательности действй, которые
приводили к потере флешки (со слов и рассказов потерпевших smile

),
но мне кажется, что подобные вещи лучше не публиковать.
А то в будущем, нанароком, их и на нас испытают smile

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

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

bems

Дата 13.12.2007, 21:12 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

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

спасибо

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

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

Cashey

Дата 14.7.2008, 16:03 (ссылка)

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

Загрузка ...

Бессмертный

Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

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

у приведенного кода контроля подключение флэш-устройства (он же описан в DRKB) имеет существенный недостаток - дело в том, что код сразу отлавливает сообщение WM_DEVICECHANGE, система не сразу присваивает новаому устройству номер диска. проходит несколько секунд. поэтому не возможно определить, какой диск появился сразу после отлова FOnUSBArrival

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

библия учит любить ближнего, а камасутра обучает как именно

corpsehunter

Дата 25.7.2008, 13:07 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 199
Регистрация: 24.2.2007

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

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

Вот ссылка на проект http://webfile.ru/876803 (там архив Pro.rar - Pass:11111)

перезалейте кто-нибудь еще разик, плиз=)

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

Тест на IQ показал отрицательный результат...

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