GhAeM
6 October 2005, 01:29 PM
براي پيدا كردن شماره سريال دريوها از اين كدها ميشه استفاده كرد !
اينكار براي اونها كه ميخوان برنامه رو روي يك كامپيوتر ريجيستر كنن خوبه چون با تعويض هارد سريال عوض ميشه و برنامه ديگه برنامه قابل اجرا نيست!
اين تابع رو به فرم اضافه كنيد :
function getdiskserial(cdrivename:pchar):dword;
var
dwtemp,dwtemp2:dword;
begin
getvolumeinformation(pchar(cDrivename+':\'),
[Only registered and activated users can see links]
end;
يه كليد به فرم اضافه كنيد و اين كد هم در رويداد آنكليك وارد كنيد.
button1.caption:=format('%x',[getdiskserial('c')])
در اين كد پيش فرض درايو c هستش كه ميتونيد اون رو تغيير بديد.
اينكار براي اونها كه ميخوان برنامه رو روي يك كامپيوتر ريجيستر كنن خوبه چون با تعويض هارد سريال عوض ميشه و برنامه ديگه برنامه قابل اجرا نيست!
اين تابع رو به فرم اضافه كنيد :
function getdiskserial(cdrivename:pchar):dword;
var
dwtemp,dwtemp2:dword;
begin
getvolumeinformation(pchar(cDrivename+':\'),
[Only registered and activated users can see links]
end;
يه كليد به فرم اضافه كنيد و اين كد هم در رويداد آنكليك وارد كنيد.
button1.caption:=format('%x',[getdiskserial('c')])
در اين كد پيش فرض درايو c هستش كه ميتونيد اون رو تغيير بديد.