On the path to the executable file, we determine whether it is running.
|
1 2 3 4 5 6 7 8 9 10 11 12 |
Uses Winapi.TlHelp32; ... var exePath: WideString; pid: Integer; begin exePath:= 'C:\Windows\explorer.exe'; pid:= isExeRunning(exePath); if pid <> 0 then ShowMessage('The file is running') else ShowMessage('The file is not running'); end; |
We get the keys for starting the process by its identifier (PID). You can get them only from the process of the corresponding bit capacity. That is, a 32-bit program cannot get this information from a 64-bit process and vice versa. To access processes running...
By PID (process ID), we get the path to the file of the process that launched it.
|
1 2 3 4 5 6 7 8 |
var procPath: UnicodeString; pid: Integer; begin pid:= 864; procPath:= getParentProcessPath(pid); ShowMessage(procPath);; end; |
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...
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; |
