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

Вниз

Privileges !!!   Найти похожие ветки 

← →
Nigma ©   (2002-01-12 13:30) [0]

Podskazhite pozhalujsta, kak pravil"no rabotat" s privilegiyami v Delphi5 (obyavleniya i t.d ), a to u mneya stoit WinXP, a emu kak i WinNT nuzhni privilegii.
Zaranee spasibo !!!

---

← →
VuDZ ©   (2002-01-22 19:12) [1]

пояснения нужны?

// =========== seting priveges ==================
HANDLE hToken; // handle to process token
TOKEN_PRIVILEGES tkp; // pointer to token structure

// Get the current process token handle
if (!OpenProcessToken(GetCurrentProcess(),
TOKEN_ADJUST_PRIVILEGES | TOKEN_QUERY, &hToken))
{
CErrCodeMsg er(GetLastError());
AfxMessageBox(er.GetString());
}

// Get the LUID for access to DACL

LookupPrivilegeValue(NULL, SE_SECURITY_NAME, &tkp.Privileges[0].Luid);

tkp.PrivilegeCount = 1; // one privilege to set
tkp.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED;

// Get needent privileges
if (!AdjustTokenPrivileges(hToken, FALSE, &tkp, 0, (PTOKEN_PRIVILEGES) NULL, 0))
{
CErrCodeMsg er(GetLastError());
AfxMessageBox(er.GetString());
}


---

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

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

Наверх

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