По пути к исполняемому файлу определяем, запущен ли он.
|
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('Файл запущен') else ShowMessage('Файл не запущен'); end; |
Получаем ключи запуска процесса по его идентификатору (PID). Получить их можно только у процесса соответствующей разрядности. То есть, 32-битная программа, не сможет получить эту информацию у 64-битного процесса и наоброт. Чтобы получить доступ к процессам запущенным от имени другого пользователя, нужно дать своему процессу привилегию...
По PID (ИД процесса), получаем путь к файлу процесса который его запустил.
|
1 2 3 4 5 6 7 8 |
var procPath: UnicodeString; pid: Integer; begin pid:= 864; procPath:= getParentProcessPath(pid); ShowMessage(procPath);; end; |
Определяем разрядность программы: 16-бит DOS, 16-бит Windows, 32-бит Windows, 64-бит 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; |
Запуск приложения и ожидание его завершения. Возможно указать максимальное время ожидания, после окончания которого функция продолжит работу не дожидаясь завершения запущенного приложения. Скрытый запуск приложений без появления окон, как консольных, так и оконных.
|
1 2 3 4 5 6 7 8 9 10 11 12 |
var path_params, workDir: WideString; sec: Integer; showWin: Boolean; begin path_params:= 'ping.exe 8.8.8.8'; workDir:= ''; sec:= 5; showWin:= True; execAndWait(path_params, workDir, sec, showWin); end; |
Приостанавливаем (ставим на паузу) процесс. Процесс остается в рабочем состоянии, но перестает выполнять любые свои действия. Окно процесса, если имеется, так же перестает реагировать на любые события.
|
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 приостановлен, нажмите ОК чтобы возобновить.'); if suspendResumeProcess(procname, false) then ShowMessage('Процесс вознобновлен.') else ShowMessage('Не удалось возобновить процесс.'); end else begin ShowMessage('Не удалось приостановить процесс.'); end; end; |
Принудительно завершаем процесс по его PID. [Завершить процесс по имени]
|
1 2 3 4 5 6 |
var pid: Integer; begin pid:= 2100; processTerminate(pid); end; |
Получаем вывод командной строки и консольных приложений. Вывод можно получить как после завершения запущенного приложения, так и в реальном времени, во время выполнения продолжительных операций.
|
1 2 3 4 5 6 7 |
var cmdline, output: WideString; begin cmdline:= 'ping 8.8.8.8'; output:= getCMDoutput(cmdline); ShowMessage(output); end; |
Извлечь файл из ресурсов и сохранить по указанному пути.
|
1 2 3 4 5 6 7 |
var resName, resNewName: string; begin resName:= 'txtFile'; resNewName:= 'C:\txtFile.txt'; extractRes(resName, resNewName); end; |
По идентификатору (PID) процесса, получаем путь к его исполняемому файлу. [Получить ID процесса по его имени]
|
1 2 3 4 5 6 7 8 |
var pid: Integer; exePath: string; begin pid:= 880; exePath:= GetFilePathByProcessID(pid); ShowMessage(exePath); end; |
