Определения подключенного USB устройсва.

[Onix[Bl]

Здравствуйте , уважаемые форумчанине.
Помоги пожалуйста с такой проблемкой , знаю что тем по данному поводу много. Но прям то что надо , не смог найти что - то . Да и переписать тоже не сообразил как . Делфи изучаю только 2 день.
Так вот , суть :
Нужен код , который определяет на подключение USB - флешку .
и запишет ее в переменную string "AdressFlash"

PHP код:

if найдено then 
ShowMessage('USB устройство : ' Flash); Пример вывода : "F:\"
else 
ShowMessage('Не найдено'); 


Заранее большое спасибо, вам!

[kta87]

Вот нашел исходник у себя для Lazarus-а немного допиленный

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
  Windows;

type
  { TForm1 }
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

const
  GUID_DEVINTERFACE_USB_DEVICE: TGUID = '{A5DCBF10-6530-11D2-901F-00C04FB951ED}';

var
  Form1: TForm1;

implementation

uses 
  JwaWinUser, JwaDbt;

{$R *.lfm}

type
  TMWndProc = Windows.WNDPROC;

var
   OldWndProc : TMWndProc;

function MyWndProc(my_wnd : HWND; Msg : UINT;
                   my_wparam : WPARAM; my_lparam : LPARAM) : LRESULT; stdcall;
var
  devType : Integer;
  Datos : PDevBroadcastHdr;
begin
  Result := 0;
  case Msg of
    WM_DEVICECHANGE:
    begin
      if (my_wparam = DBT_DEVICEARRIVAL) or (my_wparam = DBT_DEVICEREMOVECOMPLETE) then
      begin
        Datos := PDevBroadcastHdr(Pointer(my_lparam));
        devType := Datos^.dbch_devicetype;
        if devType = DBT_DEVTYP_DEVICEINTERFACE then
        begin
           if my_wparam = DBT_DEVICEARRIVAL then
              ShowMessage('USB устройство подключено')
           else
              ShowMessage('USB устройство отключено');
        end;
      end;

      // Здесь нужно, если не ошибаюсь, вернуть результат:
      // Return TRUE to grant the request
      // Return BROADCAST_QUERY_DENY to deny the request.

    end; // WM_DEVICECHANGE
  end; // case
  Result := Windows.CallWindowProc(OldWndProc, my_wnd, Msg, my_wparam, my_lparam);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  dbi: DEV_BROADCAST_DEVICEINTERFACE_W;
  Size: Integer;
  RDN: HDEVNOTIFY;
  arr : array[0 .. 0] of word;
begin
  arr[0] := 0;
  Size := SizeOf(DEV_BROADCAST_DEVICEINTERFACE_W);
  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 := arr;
  RDN := RegisterDeviceNotificationW(Form1.Handle, @dbi,
                                     DEVICE_NOTIFY_WINDOW_HANDLE);
  if not Assigned(RDN) then
  begin
    ShowMessage('Error Register Message');
  end;

  OldWndProc := TMWndProc(Windows.GetWindowLong(Self.Handle, GWL_WNDPROC));
  Windows.SetWindowLong(Self.Handle, GWL_WNDPROC, LongInt(@MyWndProc));
end;

end.

[Onix[Bl]

Так это ведь определение определенного USB .

GUID_DEVINTERFACE_USB_DEVICE: TGUID = '{A5DCBF10-6530-11D2-901F-00C04FB951ED}';

Вот типо эта строка , если я правда про то думаю)
А у меня будут все время разные флешки

[kta87]

Onix[Bl, и все ваши разные usb-flash будут определены! Попробовали бы хоть исходник то готовый

[Onix[Bl]

Хорошо , спасибо !
А вот не могли бы еще подсказать , не могу сделать 2 проверки.
1.

if FileExists (AdressFolder + '\' + nFile[0]) 
 and (nFile[0] = '') or (AdressFolder + '\' + nFile[1]) 
 and (nFile[1] = '') or (AdressFolder + '\' + nFile[2]) 
 and (nFile[2] = '') or (AdressFolder + '\' + nFile[3]) 
 and (nFile[3] = '') 
then begin
//тут код
end else begin.....

У меня на другом языке , стоит вот так , а на Delphi что то не получается , бьет ошибку как я понял вот эту : ..

[dcc32 Error] Unit1.pas(189): E2010 Incompatible types: 'string' and 'Boolean'

И не знаю как исправить , уже только как не пробовал проверять.

2. Как проверить на файлы с расширением "doc" в определенной папке ?
Говорится о переменной AdressFolder , в ней мне надо проверить , есть ли там файлы с расширением ".doc"
Естественно так же
if есть then
else если нету

[Stilet]

or (AdressFolder + '\' + nFile[1])

Это что такое. Суммирование дает тебе строку, а дальше что с ней должно происходить?
Может нужно or ((AdressFolder + '\' + nFile[1]) = '')

[Serge_Bliznykov]

or (AdressFolder + '\' + nFile[1])

что это за условие?!

Может, Вы хотите проверять FileExists ?

Но, с другое стороны, зачем проверять FileExists (AdressFolder + '\' + nFile[0]) в том случае, если (nFile[0] = '') ?!!

[Onix[Bl]

Эм , что то я совсем запутался. хД
@Serge_Bliznykov , на старом языке ,ahk, если не проверять "nFile[0] =" , там он просто сразу же бил ошибку , не важно был файл или нет.
Теперь тогда поставлю вопрос так ...
Как проверить тогда так ...
Что один из 4 файлов у меня уже есть в директории?
Полный путь одного из файлов .

(AdressFolder + '\' + nFile[0])

Массив nFile идет от 0 до 3 .

[Serge_Bliznykov]

как вариант:

var isFileExist : boolean;
...

  isFileExist := false;
  i := 0;
  while (i<=3) and Not isFileExist do begin
    if Trim(nFile[i])<>'' then
      if  FileExists(AdressFolder + '\' + nFile[i])  then begin
            isFileExist := true; 
            Break;
      end;
    inc(i);  
  end;

[Onix[Bl]

О , суперски! Спасибо.
Только как ему не давать ниже по коду идти? Если вот он нашел что нибудь.
Или это только надо остальной код в цикл вписывать?
У меня просто циклы вообще туго идут , и в коде это будет первый цикл только)