Delphi获得弹出U盘的代码及获取U盘序列号的方法(100)

使用如下代码：const DIGCF_PRESENT = $00000002;
DIGCF_DEVICEINTERFACE = $00000010;
ANYSIZE_ARRAY = 1;
SetupAPI = 'SetupAPI.DLL';type HDEVINFO = Pointer;
ULONG_PTR = DWORD;
PSPDevInfoData = ^TSPDevInfoData;
SP_DEVINFO_DATA = packed record cbSize: DWORD;
ClassGuid: TGUID;
DevInst: DWORD;
Reserved: ULONG_PTR;
end;
{$EXTERNALSYM SP_DEVINFO_DATA} TSPDevInfoData = SP_DEVINFO_DATA;
PSPDeviceInterfaceData = ^TSPDeviceInterfaceData;
SP_DEVICE_INTERFACE_DATA = packed record cbSize: DWORD;
InterfaceClassGuid: TGUID;
Flags: DWORD;
Reserved: ULONG_PTR;
end;
{$EXTERNALSYM SP_DEVICE_INTERFACE_DATA} TSPDeviceInterfaceData = SP_DEVICE_INTERFACE_DATA;
PSPDeviceInterfaceDetailDataA = ^TSPDeviceInterfaceDetailDataA;
SP_DEVICE_INTERFACE_DETAIL_DATA_A = packed record cbSize: DWORD;
DevicePath: array[0..ANYSIZE_ARRAY - 1] of AnsiChar;
end;
{$EXTERNALSYM SP_DEVICE_INTERFACE_DETAIL_DATA_A} TSPDeviceInterfaceDetailDataA = SP_DEVICE_INTERFACE_DETAIL_DATA_A;
function SetupDiGetClassDevsA(ClassGuid: PGUID;
const Enumerator: PAnsiChar;
hwndParent: HWND;
Flags: DWORD): HDEVINFO;
stdcall;
external SetupAPI;function SetupDiEnumDeviceInterfaces(DeviceInfoSet: HDEVINFO;
DeviceInfoData: PSPDevInfoData;
const InterfaceClassGuid: TGUID;
MemberIndex: DWORD;
var DeviceInterfaceData: TSPDeviceInterfaceData): BOOL;
stdcall;
external SetupAPI;{$EXTERNALSYM SetupDiEnumDeviceInterfaces}function SetupDiGetDeviceInterfaceDetailA(DeviceInfoSet: HDEVINFO;
DeviceInterfaceData: PSPDeviceInterfaceData;
DeviceInterfaceDetailData: PSPDeviceInterfaceDetailDataA;
DeviceInterfaceDetailDataSize: DWORD;
var RequiredSize: DWORD;
Device: PSPDevInfoData): BOOL;
stdcall;
external SetupAPI;function SetupDiDestroyDeviceInfoList(DeviceInfoSet: HDEVINFO): BOOL;
stdcall;
external SetupAPI;function GetUSBDiskID(const DiskID: string;
var PID: string): Boolean;var USBGuid: TGUID;
USBHandle: HDEVINFO;
Success: LongBool;
Devn: Integer;
DevData: TSPDevInfoData;
DeviceInterfaceData: TSPDeviceInterfaceData;
FunctionClassDeviceData: PSPDeviceInterfaceDetailDataA;
BytesReturned: DWORD;
Reg: TRegistry;
RegData: array of Char;
i, RegSize: Integer;
Str, USBPath: string;begin
Result := false;
Pid := '';
Reg := TRegistry.Create;
try Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('SYSTEM/MountedDevices', false);
RegSize := Reg.GetDataSize(Format('/DosDevices/%s', [DiskID]));
SetLength(RegData, RegSize + 1);
Reg.ReadBinaryData(Format('/DosDevices/%s', [DiskID]), RegData[0], RegSize + 1);
for i := 0 to RegSize - 1do
if RegData <> #0 then
Str := Str + RegData;
Str := Copy(Str, Pos('#RemovableMedia#', Str) + 16, Length(Str));
Str := Copy(Str, 1, Pos('RM', Str) - 2);
Str := UpperCase(Str);
Reg.CloseKey;
USBGuid := StringToGUID('{53f56307-b6bf-11d0-94f2-00a0c91efb8b}');
USBHandle := SetupDiGetClassDevsA(@USBGuid, nil, 0, DIGCF_PRESENT or DIGCF_DEVICEINTERFACE);
if USBHandle = Pointer(INVALID_HANDLE_VALUE) then
Exit;
Devn := 0;
repeat DeviceInterfaceData.cbSize := SizeOf(TSPDeviceInterfaceData);
Success := SetupDiEnumDeviceInterfaces(USBHandle, nil, USBGuid, Devn, DeviceInterfaceData);
if Success then
begin
DevData.cbSize := SizeOf(DevData);
BytesReturned := 0;
SetupDiGetDeviceInterfaceDetailA(USBHandle, @DeviceInterfaceData, nil, 0, BytesReturned, @DevData);
if (BytesReturned <> 0) and (GetLastError = ERROR_INSUFFICIENT_BUFFER) then
begin
FunctionClassDeviceData := AllocMem(BytesReturned);
FunctionClassDeviceData^.cbSize := SizeOf(TSPDeviceInterfaceDetailDataA);
if SetupDiGetDeviceInterfaceDetailA(USBHandle, @DeviceInterfaceData, FunctionClassDeviceData, BytesReturned, BytesReturned, @DevData) then
begin
USBPath := StrPas(PChar(@FunctionClassDeviceData.DevicePath));
if Reg.OpenKeyReadOnly(Format('SYSTEM/CurrentControlSet/Enum%s', [StringReplace(Copy(USBPath, 4, Pos('{', USBPath) - 5), '#', '/', [rfReplaceAll])])) then
if UpperCase(Reg.ReadString('ParentIdPrefix')) = Str then
begin
Delete(USBPath, 1, Pos('#', USBPath));
PID := Copy(USBPath, Pos('#', USBPath) + 1, Length(USBPath));
PID := Copy(PID, 1, Pos('#{', PID) - 1);
PID := UpperCase(StringReplace(PID, '&', '', [rfReplaceAll]));
Result := True;
Break;
end;

Reg.CloseKey;
Inc(Devn);
end;

FreeMem(FunctionClassDeviceData);
end;

end;

until not Success;
SetupDiDestroyDeviceInfoList(USBHandle);
finally Reg.Free;
end;
end;
*************************************在使用方法中只执行带问号的语句：procedure TForm1.Button1Click(Sender: TObject);var Drv, Pid: string;begin
Drv := ExtractFileDrive(ParamStr(0));
//??????????????? if GetDriveType(PChar(Drv + '/')) <> DRIVE_REMOVABLE then
// ?????????? Application.MessageBox('对不起，请把本程序放至到优盘上使用!', 'Error', MB_ICONHAND) //??????????????????????? else
if GetUSBDiskID(Drv, Pid) then
ShowMessage(Pid);end;

可以模拟的，取也没用。

楼主的代码本身就有问题，也是复制过来的那段代码。另外，那个属性，也可以通过软件修改的。这个方法只能用在 用户是阿姨大妈的软件上。

网上浏览到U盘序列号方法一般都是注册表中读取，读出U盘序列号不是唯一的，在不同的电脑读出不同的值，U盘序物理列号应该是唯一的，不然就没有意义了。

哪位高手知道U盘弹出（Eject）的代码及方法，网上浏览到的代码我试过一些都行不通。

U盘序物理列号可以任意修改。这个方法只能用在 用户是阿姨大妈的软件上。

请教高手如何弹出（Eject）U盘的代码及方法，网上浏览到的代码我试过一些都行不通。

在单位的电脑使用U盘时，需要使用规定的U盘，也就是使用U盘序列号的方法，如果不想硬盘的物理序列号一样固定，从安全保密角度来讲是行不通的。

请教高手如何弹出（Eject）U盘的代码及方法。