获取电脑中的USB设备名称

type TGetUSB = function: PAnsiChar;stdcall; var GetUSB: TGetUSB; begin DLLHandle := LoadLibrary('USB.DLL'); @GetUSB := GetProcAddress(DLLHandle, 'GetUSB'); if Assigned(@GetUSB) then begin ShowMessage(GetUSB); end;