磁盘读写和写软盘引导区

易语言 2020-08-04 18:55:19

磁盘读写和写软盘引导区

tmp = 取字节集左边 (#boot, 30)
文本 = 取文本左边 (编辑框1.内容, 255)
tmp = tmp + 到字节集 (文本) + 取空白字节集 (512 - 30 - 取文本长度 (文本) - 2) + { 85, 170 }
r = 写入A盘引导区 (tmp)
SetFilePointer (hDevice, 0, 0, 0)
tmp = 取空白字节集 (取字节集长度 (字节集))
如果真 (ReadFile (hDevice, tmp, 取字节集长度 (tmp), dwBytesRead, 0) = 0)