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()); }

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