есть вопрос...в проге есть защита от запуска на чужом компе с помощью...проверки серийного номера диска...использовал...маленький prg-шник с таким кодом
PUBLIC m.sn
Declare Integer CloseHandle in kernel32 Integer hObject
Declare Integer CreateFile in kernel32 String lpFileName, ;
Integer dwDesiredAccess, Integer dwShareMode, ;
Integer lpSecurityAttributes, Integer dwCreationDisposition, ;
Integer dwFlagsAndAttributes, Integer hTemplateFile

Declare Integer DeviceIoControl in kernel32 Integer hDevice, ;
Integer dwIoControlCode, String @lpInBuffer, ;
Long nInBufferSize, String @lpOutBuffer, ;
Long nOutBufferSize, Integer @lpBytesReturned, ;
Integer lpOverlapped

Declare Integer GetLogicalDriveStrings in Win32API ;
Integer buflen, String @buf
Declare Integer GetDriveType in Win32API String &&m.path
Declare Integer GetVolumeInformation in Win32API ;
String lpRootPathName, String @lpVolumeNameBuffer, ;
Integer nVolumeNameSize, Long @lpVolumeSerialNumber, ;
Integer @lpMaximumComponentLength, Integer @lpFileSystemFlags, ;
String @lpFileSystemNameBuffer, Integer nFileSystemNameSize

clear
m.buflen=104
m.buf=replicate(chr(0),m.buflen)
GetLogicalDriveStrings(m.buflen, @m.buf)
m.buf=chrtran(m.buf,chr(0)+"\:","")
m.str1=""
for m.i=1 to len(m.buf)
m.drvtype=GetDriveType(substr(m.buf,m.i,1)+":\")
if m.drvtype=3
m.str1=m.str1+substr(m.buf,m.i,1)
endif
next

for m.i=1 to len(m.str1)
m.vnb=replicate(chr(0),64)
m.vnbs=64
m.vsn=0
m.mcl=0
m.fsf=0
m.fsnb=replicate(chr(0),10)
m.fsnbs=10

GetVolumeInformation(substr(m.str1,m.i,1)+":\", ;
@m.vnb,m.vnbs,@m.vsn,@m.mcl,@m.fsf,@m.fsnb,m.fsnbs)

if m.vsn<0
m.vsn=m.vsn+16^8
endif
m.vsn=padl(allt(substr(Transform(m.vsn,"@0"),3)),8,"0")

m.drivenumber=asc(substr(m.str1,m.i,1))-asc("C")
handle = CreateFile("\\.\"+chr(asc("c")+m.drivenumber)+":", ;
0xC0000000, 3, 0, 3, 0, 0)

m.sn=""
m.mod=""
m.rev=""
if handle<>-1
m.sci=""
m.sci=m.sci+chr(0)+chr(2)+chr(0)+chr(0)
m.sci=m.sci+chr(0)
m.sci=m.sci+chr(1)
m.sci=m.sci+chr(1)
m.sci=m.sci+chr(0)
m.sci=m.sci+chr(0)
m.sci=m.sci+chr(0xA0)
m.sci=m.sci+chr(0xEC)
m.sci=m.sci+chr(0)
m.sci=m.sci+chr(0)
m.sci=m.sci+repl(chr(0),499)

m.sco=replicate(chr(0),2048)
m.ret_buffersize=0
m.otv=DeviceIoControl(handle, 0x7C088, @m.sci, len(sci), ;
@m.sco, len(sco), @m.ret_buffersize, 0)

CloseHandle(handle)
if m.otv<>0
m.sn=chrtran(allt(conv21(substr(m.sco,37,20))),chr(0),"")
m.rev=chrtran(allt(conv21(substr(m.sco,63,8))),chr(0),"")
m.mod=chrtran(allt(conv21(substr(m.sco,71,40))),chr(0),"")
endif
endif
*SET PRINTER TO file volum.txt additive
*SET PRINTER on
*? substr(m.str1,m.i,1)+":\ VolSN: "+m.vsn+" "+ ;
chrtran(m.fsnb,chr(0),"")+" Model: "+m.mod+ ;
" Revision: "+m.rev+" Serial: "+m.sn
*? substr(m.str1,m.i,1)+":\ VolSN: "+m.vsn+" "+ ;
chrtran(m.fsnb,chr(0),"")+" Model: "+m.mod+ ;
" Revision: "+m.rev+" Serial: "+m.sn
*SET PRINTER TO
*SET PRINTER off
num_p=ALLTRIM(m.sn)
r_psw=STR(LEN(ALLTRIM(num_p)),1)+ALLTRIM(num_p)

tr_psw=" "
FOR i=1 TO LEN(r_psw)
code_sym=ASC(SUBSTR(r_psw,i,1))+10+LEN(r_psw)
code_sym=IIF(code_sym>255,code_sym-223,code_sym)
tr_psw=tr_psw+CHR(code_sym)
ENDFOR
num_p=ALLTRIM(tr_psw)
next


function conv21
lparameter m.str
if len(m.str)%2=1
m.str=m.str+" "
endif
local m.i, m.str2
m.str2=""
for m.i=1 to len(m.str)
m.str2=m.str2+substr(m.str,m.i+iif(m.i%2=0,-1,1),1)
next
return m.str2

в общем все работало пока не столкнулся с проблемой...сата диски с доступом AHCI ..
ни фига не дает просто так получить серийник...подскажите варианты мож кто сталкивался с таким?

Всем спасибо за помощь. Dima T твой вариант попробовал но к сожалению тож не сработал 000000 выдал серийник на моем компе доступ к винту легаси усб на том котором тестирую AHCI фишка именно в том что у меня работают все варианты а там нет. Вариант защиты с помощью серийника винта я и сам понимаю что никакой так чтобы был. Прога написана для своих юзеров просто раньше везде у себя так делал все работало а сейчас вот попал такой вариант что не работает. Можно конечно и просто тупо убрать проверку на серийник но это получится отступить а отступление не даст новых знаний и опыта. По мне лучше помучаться поискать варианты и в конце концов найти способ решения задачи.

еще варианты пробовал....
такой....
LOCAL lcRemoteComputer,;
loSWbemLocator, loSWbemServices,lcolSWbemObjectSet,loSWbemObject
lcRemoteComputer = "."

lcComputer="."

loSWbemServices = GetObject("winmgmts:\\" + lcComputer + "\root\cimv2")

lcolSWbemObjectSet = loSWbemServices.InstancesOf("Win32_PhysicalMedia")
for Each loSWbemObject In lcolSWbemObjectSet
? loSWbemObject.SerialNumber
next

и такой....
Local loSWbemLocator, loSWbemService, loItem

loSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
loSWbemService = loSWbemLocator.ConnectServer()

For each loItem in loSWbemService.Get("Win32_PhysicalMedia").Instances_
? loSWbemObject.SerialNumber
Endfor

loSWbemLocator = null

не работают оба....
да еще прикол...специальной сегейтовской утилитой SeaTools тоже номер диска 000000 показывает..

да забыл....примеры брал http://forum.foxclub.ru/read.php?29,157781,158140,quote=1 и отсюда
http://prog-gate.pp.ru/fido7.ru.visual.foxpro/5414.html