Privileges !!! [D5, Win2k]
Nigma © (2002-01-12 13:30:00)
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:00) [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());
}
Наверх 
ЧАТ |
Орешник |
|
