ふるた技工所(てっこうしょ)

ハードディスクを列挙する方法を探していたら enumcd (Microsoft support online) を見つけた。サンプルは光学ドライブを探すものだったけど、ハードディスクにも応用できる。

GUID_DEVCLASS_CDROM → GUID_DEVCLASS_DISKDRIVE, CdRomClassGuid → DiskClassGuid と書き換えれば、ハードディスクの列挙にすぐに使えそうなことが判明した。

SetupDiGetClassDevs, SetupDiGetDeviceInterfaceDetail, SetupDiDestroyDeviceInfoList が肝の API の様だ。DDK の中だけで定義してある API なので Delphi で使うには setupapi.h 相当のユニットを作り setupapi.dll とリンク出来るようにする必要がある。

enumcd にはちょっとしたバグがある DebugLevel=3 にすると、スタックオーバーフロー(じゃなかった、バッファオーバーフロー)で停止してしまう。DebugPrint() 関数の buffer[] 配列を大きくする必要がある。

ディスクドライブのパスは \\.\\PHYSICALDRIVE0 ではなく、次のように長い文字列として得られた。

\\?\scsi#disk&ven_maxtor_6&prod_v300f0#4&34024bf5&0&000000#{53f56307-b6bf-11d0-94f2-00a0c91efb8b}

このためスタックオーバーフロー(じゃなかった、バッファオーバーフロー)が起きていたようだ。
いま地道にヘッダ移植中だ。