ورود

View Full Version : کار نکردن برنامه setup با کاربر غیر admin



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;

mahdy.asia
جمعه 14 بهمن 1390, 11:16 صبح
من مشکلم بر طرف شد بجای اینکه سریال هارد را در رجیستری در HKEY_LOCAL_MACHINE ذخیره کنم در HKEY_CURRENT_USER ذخیره می کنم تا قابل تغییر باشد