VPF::Поиск процесса и событие по уловию

ashkalov

Дата 30.7.2012, 12:58 (ссылка)

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

Загрузка ...

Новичок

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

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

Я новичок в этом деле, поэтому сильно не ругайте

Хочу сделать вызов события по условию.
Например

Ищем запущенный процесс "Project1.exe"
если не найден то показываем сообщение и закрываем программу

буду благодарен за вашу помощь

shoker

Дата 30.7.2012, 15:19 (ссылка)

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

Загрузка ...

Новичок

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

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

Код


uses
  TlHelp32, ShellAPI; 
  
function GetProcessByEXE(exename: string): THandle; 
var
  hSnapshoot: THandle; 
  pe32: TProcessEntry32; 
begin
  Result:= 0; 
  hSnapshoot:= CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); 
  if (hSnapshoot = 0) then Exit; 
  pe32.dwSize:= SizeOf(TProcessEntry32); 
  if (Process32First(hSnapshoot, pe32)) then
    repeat
      if (pe32.szExeFile = exename) then
      begin
        Result:= pe32.th32ProcessID; 
        exit; 
      end; 
    until not Process32Next(hSnapshoot, pe32); 
end; 
  
procedure TForm1.Button1Click(Sender: TObject); 
begin
  if GetProcessByEXE('notepad.exe') = 0 then
    ShellExecute(0, 'open', 'notepad', nil, nil, SW_SHOWNORMAL) 
  else
    ShowMessage('Уже запущено'); 
end;

может это поможет...
взял с delphisource

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