mahdy.asia
شنبه 08 بهمن 1390, 13:22 عصر
1-برنامه setup من تنها با کاربری Admin نصب می شود می خوام با همه کاربری ها نصب و در صورت نیاز به کاربر admin هنگام نصب کاربری admin را سوال کند
2-من سریال هارد را هنگام نصب با یوزر admin ست می کنم (برای تشخیص نسخه مجاز از آن استفاده می کنم)
اما وقتی با کاربری دیگری کاربر وارد می شود سریال هارد عدد دیگری است و برنامه نسخه را غیر مجاز تشخیص می دهد امکان ثبت سریال هارد جدید هم با کاربری وارد شده وجود ندارد (کاربر امکان ثبت در رجیستری را ندارد)
تابع بدست آوردن سریال هارد (دلفی)
function GetHardSerialNumber: LongInt;
{$IFDEF WIN32}
var
pdw : pDWord;
mc, fl : dword;
{$ENDIF}
begin
{$IfDef WIN32}
New(pdw);
GetVolumeInformation(nil,nil,0,pdw,mc,fl,nil,0);
Result := pdw^;
dispose(pdw);
{$ELSE}
Result := GetWinFlags;
{$ENDIF}
end;
2-من سریال هارد را هنگام نصب با یوزر admin ست می کنم (برای تشخیص نسخه مجاز از آن استفاده می کنم)
اما وقتی با کاربری دیگری کاربر وارد می شود سریال هارد عدد دیگری است و برنامه نسخه را غیر مجاز تشخیص می دهد امکان ثبت سریال هارد جدید هم با کاربری وارد شده وجود ندارد (کاربر امکان ثبت در رجیستری را ندارد)
تابع بدست آوردن سریال هارد (دلفی)
function GetHardSerialNumber: LongInt;
{$IFDEF WIN32}
var
pdw : pDWord;
mc, fl : dword;
{$ENDIF}
begin
{$IfDef WIN32}
New(pdw);
GetVolumeInformation(nil,nil,0,pdw,mc,fl,nil,0);
Result := pdw^;
dispose(pdw);
{$ELSE}
Result := GetWinFlags;
{$ENDIF}
end;