Форум: "WinAPI";
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c