delphi - 使用delphi检测USB驱动器/设备

Question

我无法弄清楚这里的格式规则..在我的示例中，代码行太多，无法为每行添加 4 个空格，因此这里是我需要帮助的代码的链接

http://nitemsg.blogspot.com/2011/01/heres-unit-written-in-delphi-7-that-you.html

我遇到的问题是我对 delphi 的了解不够，无法在表单中使用此代码。我只是一个拖放程序员。

当检测到 USB 设备时，我需要一个带有 showmessage('Friendly name =' + ... ) 的示例。

干杯，

Answer 1

如果您只熟悉拖放编程，并且对对象或其他单元了解不多，那么您需要熟悉使用自动创建的表单和放入的组件之外的对象他们。

此链接中的代码是一个完整的单元。您需要在项目中创建一个新单元(文件 > 新建 > 单元)。它看起来像这样:

unit Unit1;

interface

implementation

end.

现在，当您保存单位时，单位名称将自动更改为文件名(不带扩展名)，如下所示:

unit MahUSB;

interface

implementation

end.

在此示例中，您应该使用与您尝试使用的源相同的单位名称。将单元另存为“MahUSB.pas”，并且应该与项目的其余部分位于同一文件夹中(或其他地方，只是建议)。复制/粘贴该网站上的所有代码并立即替换此单元中的所有内容。

现在为了实际使用它，您需要创建该对象的实例。只有一个实例(我这样说只是因为从表面上看，不需要多个实例)。

非常重要:鉴于你对物体不熟悉，让我快速解释一下。需要创建对象才能工作。同时，创建的任何内容在使用完毕后也需要释放。在这种情况下，我们将在您的应用程序启动时创建该对象，并在您的应用程序关闭时释放该对象。

现在，在您的主窗体(不是任何其他窗体)上，您需要为 OnCreate 和 OnDestroy 放置一个事件处理程序。您还需要声明一个变量来表示该对象。在主窗体的声明中，添加一个具有该对象类型的变量“USB”。确保它位于“私有(private)”或“公共(public)”部分下，任何一个都可以。还要确保您在 use 子句中的主单元顶部声明了“MahUSB”单元。

在主窗体中声明对象:

type
  TForm1 = class(TForm)
  private
    USB: TUsbClass;
  public

  end;

在应用程序启动/关闭时创建/释放对象:

  procedure TForm1.FormCreate(Sender: TObject);
  begin
    USB:= TUsbClass.Create;
  end;

  procedure TForm1.FormDestroy(Sender: TObject);
  begin
    if assigned(USB) then USB.Free;
  end;

现在我们还没有完成。现在我们需要添加事件处理程序。请注意，在该单元的顶部，有两种类型，分别称为 TOnDevVolumeEvent 和 TOnUsbChangeEvent。这些是事件类型。事件处理程序中的参数必须与这些类型中声明的参数相同。现在，在您的主窗体中，声明这些事件处理程序...

  type
    TForm1 = class(TForm)
      procedure FormCreate(Sender: TObject);
      procedure FormDestroy(Sender: TObject);
    private
      USB: TUsbClass;
      procedure VolumeEvent(const bInserted : boolean; const sDrive : string);
      procedure ChangeEvent(const bInserted : boolean;
        const ADevType,ADriverName, AFriendlyName : string);
    public

    end;

现在我们还需要做一件事才能让它发挥作用。 USB 对象需要知道要使用哪些事件处理程序，因此，我们需要将这些过程分配给事件。创建表单后，我们需要分配这些事件...

    procedure TForm1.FormCreate(Sender: TObject);
    begin
      USB:= TUsbClass.Create;
      USB.OnUsbChange:= Self.ChangeEvent;
      USB.OnDevVolume:= Self.VolumeEvent;
    end;

总而言之，您的主表单单元应该如下所示:

unit uUSBTest;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MahUSB;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    USB: TUsbClass;
    procedure VolumeEvent(const bInserted : boolean; const sDrive : string);
    procedure ChangeEvent(const bInserted : boolean;
      const ADevType,ADriverName, AFriendlyName : string);
  public

  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ChangeEvent(const bInserted: boolean; const ADevType,
  ADriverName, AFriendlyName: string);
begin
  ShowMessage('Change event for "'+AFriendlyName+'"');
end;

procedure TForm1.VolumeEvent(const bInserted: boolean;
  const sDrive: string);
begin
  ShowMessage('Volume event for "'+sDrive+'\"');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  USB:= TUsbClass.Create;
  USB.OnUsbChange:= Self.ChangeEvent;
  USB.OnDevVolume:= Self.VolumeEvent;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  if assigned(USB) then USB.Free;
end;

end.

你就在这里!您将拥有这两个事件处理程序，您可以在其中进一步处理这两个事件中的任何一个。