We launch the application on behalf of another user.
|
1 2 3 4 5 6 7 8 9 |
var user, pass, pathAndParams: string; begin user:='user'; pass:= 'password'; pathAndParams:= 'C:\Windows\notepad.exe'; runAsUser(user, pass, pathAndParams); end; |
The function launches the application asking for administrator rights. As if it were launched from the context menu of the file - "Run as administrator".
|
1 2 3 4 5 6 7 8 9 10 11 12 |
Uses Winapi.ShellAPI; ... var app, params: WideString; begin app:= 'C:\Windows\notepad.exe'; params:= 'C:\Windows\System32\drivers\etc\hosts'; runAsAdmin(0, app, params); end; |
Error E000-153 means that the shift is closed at the checkout, and the required operation must be performed with an open shift.
In addition to the usual, standard, Windows has hidden virtual accounts. On their behalf, various services are launched and run in the system. With PowerShell , you can get a list of all accounts. Standard accounts get-wmiobject -class "win32_account" -namespace "root\cimv2" | sort caption |...
A high-precision timer that allows you to measure the time spent on performing any operations. The timer is more than 1 microsecond accurate.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
var countFreq, tmrStart, tmrStop: TLargeInteger; ... var sec: string; begin startTimer(); // --- do something sec:= stopTimer(); ShowMessage('The operation took: ' + sec + ' sec.'); end; |
If you call the context menu of a file or folder while holding down Shift, then additional items will appear there. Among them, there will be "Copy as path", which allows you to copy the full path to the object to the clipboard.
Error E000-136 means that the shift at the checkout was opened more than a day ago. The shift cannot exceed 24 hours. To continue working, you need to close the old shift and open a new one.
We get the path to the file that is launched by the shortcut.
|
1 2 3 4 5 6 7 8 9 10 11 12 |
Uses System.Win.ComObj, Winapi.ShlObj, ActiveX; ... var linkFileName, linkTarget: WideString; begin linkFileName:= GetEnvironmentVariable('appdata') + '\Microsoft\Windows\Start Menu\Programs\Internet Explorer.lnk'; linkTarget:= getFilePathFromLink(linkFileName); ShowMessage(linkTarget); end; |
Merge any two files, regardless of their type.
|
1 2 3 4 5 6 7 8 |
var file1, file2, destFile: WideString; begin file1:= 'c:\1.txt'; file2:= 'c:\2.txt'; destFile:= 'c:\12.txt'; mergeFiles(file1, file2, destFile); end; |
Programming and setting KB-6600 Series PS2 Keyboard Driver Utility 32Bit_v.8.12.0 works correctly only on a 32-bit system. Firmware Documentation
