По идентификатору (PID) процесса, узнаем имя пользователя от имени которого он был запущен.
|
1 2 3 4 5 6 7 8 |
var pid: Integer; user: string; begin pid:= 880; user:= GetUserFromPID(pid); ShowMessage(user); end; |
Получаем идентификационный номер процесса (PID) по его имени.
|
1 2 3 4 5 6 7 8 9 10 11 12 |
Uses Tlhelp32; ... var procName: string; pid: Integer; begin procName:= 'taskmgr.exe'; pid:= getPIDbyProcessName(procName); if pid <> 0 then ShowMessage('ID процесса: ' + IntToStr(pid)) else ShowMessage('Процесс не найден'); end; |
Функция принудительно завершает процесс по его имени.
|
1 2 3 4 5 6 7 8 9 10 |
Uses Tlhelp32; ... var procName: string; begin procName:= 'taskmgr.exe'; killTask(procName); end; |
Функция устанавливает указанному или своему процессу, привилегии, разрешения на выполнение системных операций различных типов.
|
1 2 3 4 5 6 7 8 9 10 11 |
var procHandle: HWND; privStr: string; enable: Boolean; begin procHandle:= 0; privStr:= 'SeDebugPrivilege'; enable:= True; SetPrivilege(0, privStr, enable); end; |
Стать владельцем файла или папки по SID (идентификатор безопасности) пользователя или группы.
|
1 2 3 4 5 6 7 8 9 10 11 |
Uses AclApi, AccCtrl; ... var path, sid: string; begin path:= 'C:\My_dir'; sid:= 'S-1-5-32-544'; setFileOwner(sid, path); end; |
Функция проверяет запущена ли программа от имени администратора. Как если была бы запущена от имени администратора из контекстного меню.
|
1 2 3 4 5 6 |
var admin: Boolean; begin admin:= isAdmin(); if admin = True then ShowMessage('Есть админ права') else ShowMessage('Нет админ прав'); end; |
Получение имени владельца указанного файла или папки.
|
1 2 3 4 5 6 7 |
var path, name: string; begin path:= 'C:\Program Files'; name:= getFileDirOwner(path); ShowMessage(name); end; |
Получение имени пользователя или группы в Windows по их SID (идентификатор безопасности) согласно локализации операционной системы.
|
1 2 3 4 5 6 7 |
var sid, name: string; begin sid:= 'S-1-5-32-544'; name:= SIDToName(sid); ShowMessage(name); end; |
Функция устанавливает полные права доступа к файлу/папке для указанного пользователя или группы.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
uses Winapi.AclAPI, Winapi.AccCtrl; ... var path: string; userName: string; begin path:= 'C:\Program Files'; userName:= 'Администраторы'; SetNTFSRules(path, userName); end; |
Мышь Клавиша Деся- тичный Шестнадца- теричный Символическое имя Левая 1 1 VK_LBUTTON Правая 2 2 VK_RBUTTON Средняя 4 4 VK_MBUTTON X1 5 5 VK_XBUTTON1 X2 6 6 VK_XBUTTON2 Основные клавиши Клавиша Деся- тичный Шестнадца- теричный Символическое имя F1 112 70 VK_F1 F2 113 71 VK_F2...
