![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как определить загружена программа или нет? [D6]
Семенов © (2004-07-15 11:02:00)Допустим, что есть игрушка под названием Game.exe, как
определить загружена она в настоящий момент или нет?
stone (2004-07-15 11:07:00) [1]посмотреть в списке процессов
procedure GetProcessList(List: TStrings);
var
hSnapshoot: THandle;
pe32: TProcessEntry32;
i: integer;
begin
List.Clear;
hSnapshoot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
pe32.dwSize := SizeOf(TProcessEntry32);
if Process32First(hSnapshoot, pe32) then
repeat
i := List.Add(pe32.szExeFile);
List.Objects[i] := pointer(pe32.th32ProcessID);
until not Process32Next(hSnapshoot, pe32);
end;