我无法弄清楚这里的格式规则.. 我的示例中的代码行太多，无法在每行添加 4 个空格，所以这里是我需要帮助的代码的链接
http://nitemsg.blogspot.com/2011/01/heres-unit-written-in-delphi-7-that-you.html
我的问题是我对 delphi 的了解不够，无法将此代码与表单一起使用。 我只是一个拖放程序员。
当检测到 USB 设备时，我需要一个带有 showmessage('friendly name =' + ... ) 的示例。
干杯，
【问题讨论】：
如果您只熟悉拖放编程，而不太了解对象或其他单元，那么您需要熟悉使用自动创建的表单和您放入的组件以外的对象他们。
此链接上的代码是一个完整的单元。您需要在项目中创建一个新单元（文件 > 新建 > 单元）。它看起来像这样：
unit Unit1;
interface
implementation
end.
现在当您保存单元时，单元的名称将自动更改为文件名（不带扩展名），如下所示：
unit MahUSB;
interface
implementation
end.
在此示例中，您应该使用与您尝试使用的来源相同的单位名称。将该单元保存为“MahUSB.pas”，并且应该与项目的其余部分位于同一文件夹中（或其他地方，只是一个建议）。复制/粘贴该网站的所有代码并立即替换本单元中的所有内容。
现在为了实际使用它，你需要创建这个对象的一个实例。只有一个实例（我之所以这么说只是因为从表面上看，不需要多个实例）。
非常重要：看你对物体不熟悉，让我快速解释一下。需要创建对象才能工作。同时，任何创建的东西在你完成后也需要释放。在这种情况下，我们将在您的应用程序启动时创建该对象，并在您的应用程序关闭时释放该对象。
现在在您的主窗体（不是任何其他窗体）上，您需要为 OnCreate 和 OnDestroy 放置一个事件处理程序。您还需要声明一个变量来表示该对象。在主窗体的声明中，添加一个具有此对象类型的变量“USB”。确保在“私人”或“公共”部分下，任何一个都可以。还要确保在使用子句中在主单元顶部声明“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.
你来了！您将拥有这两个事件处理程序，您可以在其中进一步处理这两个事件中的任何一个。
【讨论】：