Форум: "WinAPI";
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];
Вниз
Как можно увидеть запущен ли exe? Найти похожие ветки
← →
Art (2001-10-31 13:19) [0]Как мне узнать запущен ли опред. exe"шник?Напишите код.
← →
Anatoly Podgoretsky (2001-10-31 16:51) [1]Самое простое это попытаться его открыть в монопольном режиме, смотри методы TFileStream
← →
Alien (2001-10-31 23:00) [2]Можно ещё проще... попытайся его удалить... если не получится, тогда запущен, а если получится, значит... не был :)
← →
deNNis (2001-11-10 13:29) [3]> Alien ©
АБАЛДЕННЫЙ совет! :))))))))))
← →
Anderius (2001-11-14 21:52) [4]Смотри этот код, он подходит не только для запущенного exe...
procedure TForm1.FormActivate(Sender: TObject);
var
hSnapshoot: THandle;
pe32: TProcessEntry32;
s:string;
const
PROCESS_TERMINATE = $0001;
PROCESS_CREATE_THREAD = $0002;
PROCESS_VM_OPERATION = $0008;
PROCESS_VM_READ = $0010;
PROCESS_VM_WRITE = $0020;
PROCESS_DUP_HANDLE = $0040;
PROCESS_CREATE_PROCESS = $0080;
PROCESS_SET_QUOTA = $0100;
PROCESS_SET_INFORMATION = $0200;
PROCESS_QUERY_INFORMATION = $0400;
PROCESS_ALL_ACCESS =
STANDARD_RIGHTS_REQUIRED or SYNCHRONIZE or $0FFF;
begin
hSnapshoot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if (hSnapshoot = -1) then
Exit;
pe32.dwSize := SizeOf(TProcessEntry32);
if (Process32First(hSnapshoot, pe32)) then
repeat
s:=pe32.szExeFile;
{В переменной s - имя и полный путь процесса,
в итоге после выполнения цикла ты можешь получить
список всех активных процессов, даже
если они скрытые, если будешь где-нибудь
запоминать s}
until not Process32Next(hSnapshoot, pe32);
CloseHandle (hSnapshoot);
end;
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.01.14;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.005 c
