|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
как узнать запущен ли процесс "процесс.ехе", если запущен то вызов сообщения!
Помоему в заголовке все кратко и четко. Надо узнать запущен ли процесс(НЕ ОКНО), к примеру "процесс.ехе" и если он запущен то вызов сообщения!!! Весь форум перебрал сам в шоке, ничего не нашел, то окна вместо процессов ищут, то исходник полметровый то текста на 2-е страницы, знаю ведь что всю эту дурь можно в 2-е коротенькие функции уложить... помогите!!! Да и если пишите какиенибудь сторонние функции, то просьба описать какого они модуля, всмысле в "uses"-e чё писать.
|
#2
|
||||
|
||||
Код:
function FindTask(ExeFileName: string): integer; var ContinueLoop: BOOL; FSnapshotHandle: THandle; FProcessEntry32: TProcessEntry32; begin result := 0; FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); FProcessEntry32.dwSize := Sizeof(FProcessEntry32); ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32); while integer(ContinueLoop) <> 0 do begin if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) = UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) = UpperCase(ExeFileName))) then Result := 1; ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32); end; CloseHandle(FSnapshotHandle); end; Gravitas |
#3
|
||||
|
||||
Всё легко, коротко, ясно и работает!!! Долго я это искал!!! Благодарю!!!
|