DiskID32.dll及使用 procedureTForm1.Button1Click(Sender:TObject); typemychar=array[0..31]ofchar; typeTDiskID32=Function(varDiskModel,DiskID:mychar):BOOL;stdcall; var Hand