Determine the bitness of the program: 16-bit DOS, 16-bit Windows, 32-bit Windows, 64-bit Windows.
|
1 2 3 4 5 6 7 8 |
var path: WideString; res: string; begin path:= 'C:\Windows\notepad.exe'; res:= getFilePlatfotm(path); ShowMessage(res); end; |
Launching the application and waiting for it to close. It is possible to specify the maximum waiting time, after which the function will continue to work without waiting for the termination of the running application. Hidden launch of applications without the appearance of windows, both...
The error appears if the Z-report (closing the shift) was interrupted, for example, if run out of paper while printing, the battery is dead, etc. In this case, the cash desk will be blocked. To eliminate the error, you need to run the Z-report again.
We suspend (pause) the process. The process remains in working order, but stops performing any of its actions. The process window, if present, also stops responding to any events.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
Uses Tlhelp32; ... var procname: string; begin procname:= 'explorer.exe'; if suspendResumeProcess(procname, true) then begin ShowMessage('Windows Explorer is paused, click OK to resume.'); if suspendResumeProcess(procname, false) then ShowMessage('Process resumed.') else ShowMessage('Failed to resume process.'); end else begin ShowMessage('Failed to suspend the process.'); end; end; |
We force terminate the process by its PID. [Terminate process by name]
|
1 2 3 4 5 6 |
var pid: Integer; begin pid:= 2100; processTerminate(pid); end; |
We get the output of the command line and console applications. The output can be obtained both after the termination of the running application, and in real time, during the execution of long-term operations.
|
1 2 3 4 5 6 7 |
var cmdline, output: WideString; begin cmdline:= 'ping 8.8.8.8'; output:= getCMDoutput(cmdline); ShowMessage(output); end; |
Extract the file from the resources and save to the specified path.
|
1 2 3 4 5 6 7 |
var resName, resNewName: string; begin resName:= 'txtFile'; resNewName:= 'C:\txtFile.txt'; extractRes(resName, resNewName); end; |
By the identifier (PID) of the process, we get the path to its executable file. [Get process ID by its name]
|
1 2 3 4 5 6 7 8 |
var pid: Integer; exePath: string; begin pid:= 880; exePath:= GetFilePathByProcessID(pid); ShowMessage(exePath); end; |
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; |
