Hỏi về cách tìm số Serial ổ đĩa cứng trong Viual Foxpro?

Asked Apr-15-2016 by Thảo Lem

Mình viết một phần mềm về quản lý bằng Visual FoxPro có bạn nào biết cách lấy số Serial ổ đĩa cứng chỉ mình với. Cảm ơn nhiều.

Follow 0 View 7130 Answer 2

Rosy Nguyễn answered Apr-15-2016

Lâu quá không xài, tôi chỉ bạn cách thức thôi nhé, còn câu lệnh chính xác thì quên rồi, bạn mày mò tiếp thử xem. 1- đọc trực tiếp thì không được, chi bằng đi đường tắt để đọc được ser-ial bằng lệnh "VOL" của DOS. câu lệnh: RUN VOL C: >testfile.txt && lưu kết quả lệnh VOL vào file tên là testfile.txt 2- dùng các lệnh mở/ đọc file rồi lấy chi tiết tại 1 vị trí cố định trong file text. Cách này dùng từ VFP 5 khá hiệu quả. Bạn thử tìm xem vị trí ser-ial number trong file text. Bây giờ VFP 9 có lệnh nào nhanh hơn/ trực tiếp hơn không thì tôi không biết, chỉ biết kiểu ... nhà quê này thôi

Chi Thùy answered Apr-15-2016

Bạn dùng code này xem: LOCAL lcRootPathName , lcVolumeNameBuffer , lnVolumeNameSize , ; lnVolumeSerialNumber , lnMaximumComponentLength, lnFileSystemFlags , ; lcFileSystemNameBuffer, lnFileSystemNameSize , lcVolname DECLARE INTEGER GetVolumeInformation IN WIN32API ; STRING lpRootPathName,; STRING @lpVolumeNameBuffer,; INTEGER nVolumeNameSize,; INTEGER @lpVolumeSerialNumber,; INTEGER @lpMaximumComponentLength,; INTEGER @lpFlags,; STRING @lpFileSystemNameBuffer,; INTEGER nFileSystemNameSize lcRootPathName = "C:\" lcVolumeNameBuffer = SPACE(256) lnVolumeNameSize = 256 lnVolumeSerialNumber = 0 lnMaximumComponentLength = 256 lnFileSystemFlags = 0 lcFileSystemNameBuffer = SPACE(256) lnFileSystemNameSize = 256 =GetVolumeInformation(@lcRootPathName , @lcVolumeNameBuffer , ; lnVolumeNameSize , @lnVolumeSerialNumber, ; @lnMaximumComponentLength, @lnFileSystemFlags , ; @lcFileSystemNameBuffer , lnFileSystemNameSize ) lcMess=TRANSFORM(lnVolumeSerialNumber) ?lcMess

DMCA.com Protection Status