چک کردن adminبودن کاربر

[neda_barnamenevis]

من یک برنامه نصب فونت نوشته ام حالا می خواهم چک کنم اگر کاربر adminstartorو یا permision adminهست فونت را نصب کنه اگر نه errorبده چطوری باید این دو حالت را ک کنه؟

[dkhatibi]

برای یک روش ساده رجیستری را چک کن. روشهای بهتری نیز وجود دارد.

[neda_barnamenevis]

می شه بیشتر توضیح بدهید

[Vahid.Shatery]

سلام
از کد زیر هم می شه استفاده کرد . فقط حواستون به نام عناصر و فیلد های دیتابیس باشه.

البته دیتابیس Access استفاده شده.


procedure TfrmLogin.Button2Click(Sender: TObject);
begin
if (edUsername.Text = '')or
(edPassword.Text = '') then
begin
TMessageBox.Show('.ÇØáÇÚÇÊ ÑÇ Èå ØæÑ ˜Çãá æÇÑÏ äãÇííÏ','ÎØÇ',MessageBox_OKOnly);
Exit;
end;
with frmPublicComponent.ADOtblUsers do
begin
Open;
if not Locate('xUser', frmLogin.edUsername.Text, []) then
begin
TMessageBox.Show('.˜áãå ˜ÇÑÈÑí æ íÇ ÑãÒ ÚÈæÑ ÇÔÊÈÇå ÇÓÊ', 'ÎØÇ', MessageBox_OKOnly);
Exit;
end;
if FieldByName('xPassword').AsString = frmLogin.edPassword.Text then
begin
frmMain.Username := edUsername.Text;
frmMain.Password := edPassword.Text;
_IsLogin := True;

[dkhatibi]

می شه بیشتر توضیح بدهید

تو یوزر محدود کلیدهای رجیستری را چک کن ببین کدومشون اجازه ی دسترسی ندارن.
می تونی با برنامه یک کلید را برای نوشتن باز کنی اگر خطایی رخ داد تو ادمین نیستی و برعکس.
البته این روش فقط روشی ه که کارت را جلو می بره و زیاد جالب نیست. یک کد دیگه هم دیدم که بهتره اگر پیداش کردم می ذارم.