VPF::Как узнать запущен ли процесс?

COOLHack

Дата 15.6.2008, 00:23 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 281
Регистрация: 8.2.2008

Репутация: -1
Всего: 0

Как узнать запущен ли в данный момент процесс с именем prrroq.exe, и если запущен, в переменную p записать '1'

Данкинг

Дата 15.6.2008, 00:24 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130

Цитата(COOLHack @ 15.6.2008, 01:23

)

запущен ли в данный момент процесс с именем prrroq.exe

Поюзать поиск по форуму, недавно дважды обсуждалось, точно помню. smile

Цитата(COOLHack @ 15.6.2008, 01:23

)

в переменную p записать '1'

Код


var p:integer;
begin
p:=1;
end;

--------------------

There's nothing left but silent epitaphs.

COOLHack

Дата 15.6.2008, 00:36 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 281
Регистрация: 8.2.2008

Репутация: -1
Всего: 0

ну как записать то я знаю... кстати если не в лом скинь ссылку на тему где обсуждалось, а то я чёт в упор не вижу

Rennigth

Дата 15.6.2008, 00:46 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 8
Всего: 76

COOLHack,
http://forum.vingrad.ru/forum/topic-108112...ry823823/0.html

--------------------

(* Honesta mors turpi vita potior *)

MadCoder

Дата 17.6.2008, 16:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 478
Регистрация: 24.8.2007
Где: Москва

Репутация: 1
Всего: 2

Функция получения списка процессов:

Код


function GetProcessList: TStringlist;
var
 hSnap:THandle;
 pe:TProcessEntry32;
begin
Result:=TStringlist.Create;
 pe.dwSize:=SizeOf(pe);
 hSnap:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
 If Process32First(hSnap,pe) then begin
  If (pe.szExeFile<>'[System Process]') and (pe.szExeFile<>'System') then
   Result.Add(pe.szExeFile);
   While Process32Next(hSnap,pe) do
   begin
  If (pe.szExeFile<>'[System Process]') and (pe.szExeFile<>'System') then
   Result.Add(pe.szExeFile);
   end;
 end;
end;

Поиск нужного процесса в списке:

Код


var
A: TStringList;
P: Integer;
begin
A:=TStringList.Create;
A:=GetProcessList;
if A.IndexOf('prrroq.exe')>0 then
p:=1;

Если не хрена не работает, попробуй добавить в раздел uses TLHelp32.

Это сообщение отредактировал(а) MadCoder - 17.6.2008, 16:57

--------------------

Домашняя страничка | Как скопировать настройки | Умный оптимизатор

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »