您所在位置：主题：为什么运行了下面代码后,最小化表单再还原,表单就出现一片空白了
qiuluhui
[专家分：0] 发布于 2008-08-10 22:45:00
Clea
#Define MAX_PATH 260
Declare integer GetSerialNumber in DiskSerial.dll Integer nDrive, String @lpBuffer
Declare integer GetModelNumber in DiskSerial.dll Integer nDrive, String @lpBuffer
Declare integer GetRevisionNumber in DiskSerial.dll Integer nDrive, String @lpBuffer
Declare integer GetBufferSize in DiskSerial.dll Integer nDrive
Declare integer GetDiskCylinders in DiskSerial.dll Integer nDrive
Declare integer GetDiskHeads in DiskSerial.dll Integer nDrive
Declare integer GetSectorsOfTrack in DiskSerial.dll Integer nDrive
i=0
lnSerialNumber =space(40)
lnModelNumber =space(40)
lnRevisionNumber=space(40)
=GetserialNumber (i,@lnSerialNumber)
=GetModelNumber (i,@lnModelNumber)
=GetRevisionNumber(i,@lnRevisionNumber)
kk1=alltrim(lnSerialNumber)
?kk1
Clea dlls
我将上面代码写在一个表单中,运行后将表单最小化,再还原.表单就出现一片空白了.这是为什么,如何解决?
(附有DISKSERIAL.DLL,可运行上面的代码)
