By the identifier (PID) of the process, we find out the username on behalf of which it was launched.
|
1 2 3 4 5 6 7 8 |
var pid: Integer; user: string; begin pid:= 880; user:= GetUserFromPID(pid); ShowMessage(user); end; |
We get the process identifier (PID) by its name.
|
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('Process ID: ' + IntToStr(pid)) else ShowMessage('Process not found'); end; |
The function force terminate process by its name.
|
1 2 3 4 5 6 7 8 9 10 |
Uses Tlhelp32; ... var procName: string; begin procName:= 'taskmgr.exe'; killTask(procName); end; |
The function sets the specified or its own process, privileges, permissions to perform system operations of various types.
|
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; |
Take ownership of a file or folder by the SID (security identifier) of the user or group.
|
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; |
The function checks if the program is running as administrator. As if it were run as administrator from the context menu.
|
1 2 3 4 5 6 |
var admin: Boolean; begin admin:= isAdmin(); if admin = True then ShowMessage('Have admin rights') else ShowMessage('No admin rights'); end; |
Get the name of the owner of the specified file or folder.
|
1 2 3 4 5 6 7 |
var path, name: string; begin path:= 'C:\Program Files'; name:= getFileDirOwner(path); ShowMessage(name); end; |
Getting the name of a user or group in Windows by their SID (security identifier) according to the localization of the operating system.
|
1 2 3 4 5 6 7 |
var sid, name: string; begin sid:= 'S-1-5-32-544'; name:= SIDToName(sid); ShowMessage(name); end; |
The function sets full file / folder permissions for the specified user or group.
|
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; |
Mouse Key Decimal Hexadecimal Symbolic name Left 1 1 VK_LBUTTON Right 2 2 VK_RBUTTON Medium 4 4 VK_MBUTTON X1 5 5 VK_XBUTTON1 X2 6 6 VK_XBUTTON2 Basic keys Key Decimal Hexadecimal Symbolic name F1 112 70 VK_F1 F2 113 71 VK_F2 F3 114 72 VK_F3...
