100分求读SD卡序列号代码

Question

100分求读SD卡序列号代码非常感谢

Answer 1

用IOCTL_DISK_GET_STORAGEID ，這應該是手機操作系統的，不知道pc操作系統是否有提供。
參考msdn描述http://msdn.microsoft.com/en-us/library/ms901392.aspx

Answer 2

你用DeviceIoControl，傳IOCTL_STORAGE_GET_MEDIA_TYPES  看能不能得到

Answer 3

我有取U盘号的,不知道修改后能不能读到SD卡的号,理论上他们都是移动盘,应该可以.unit Unit2;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Registry;  function GetUSBDiskID(const DiskID:string; var PID:string):Boolean;implementationconst
  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 - 1 do
      if RegData[i] <> #0 then Str := Str + RegData[i];
    Str := Copy(Str, Pos('#RemovableMedia#', Str) + 16, Length(Str));
    Str := Copy(Str, 1, Pos('RM', Str) - 2);
    Str := UpperCase(Str);
    Reg.CloseKey;
    USBGuid := StringToGUID('{a5dcbf10-6530-11d2-901f-00c04fb951ed}');//{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;end.

Answer 4

已经搞好了，读U盘的我也有，读SD卡是不行的