Текущий архив: 2005.08.21;
Скачать: CL | DM;

Вниз

Права админа   Найти похожие ветки 

← →
Ванечка   (2005-06-28 23:29) [0]

Как узнать есть ли у пользователя права администратора, если нет то выдать MessageDlg ?

---

← →
Ученик   (2005-06-28 23:53) [1]

[CODE]
function IsUserAnAdmin: Bool; stdcall; external "shell32.dll";

procedure TForm1.Button1Click(Sender: TObject);
begin
 if IsUserAnAdmin then
   ShowMessage("Admin")
 else
   ShowMessage("Guest")
end;
[/CODE]

---

Страницы: 1 вся ветка

Текущий архив: 2005.08.21;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.041 c