Архив исходников программ, модулей и компонентов на Delphi


Начальная страница

Поиск по базе



Операционная система
Настройка приложения
Взаимодействия приложений
Файлы и директории
Строки и символы
Математика
Базы данных
Интернет и сеть
Мультимедиа
Аппаратная часть
VCL
Другие разделы [0]
 

Количество записей в базе - 537
Сегодня добавлено – 0

Управление ОС



Вернуться к списку функций
 Возвращает handle Процесса из оперативки по имени exe файла

 Прислал: Alf ( 8 апреля 2008 г. )
©  я
 Описание:
Возвращает handle Процесса из оперативки по имени exe файла
Кейс сенсетивно!!!

 Зависимости:
TlHelp32(прости вписать в uses)

 Ограничения:
w2k

 Исходный текст:
{ **** UBPFD *********** by http://kladovka.net.ru/delphibase/ ****
>> Возвращает handle Процесса из оперативки по имени exe файла

Возвращает handle Процесса из оперативки по имени exe файла
Кейс сенсетивно!!!

Зависимости: TlHelp32(прости вписать в uses)
Автор:       Alf, Wirussoft@pisem.net
Copyright:   я
Дата:        8 апреля 2008 г.
***************************************************************** }

function GetProcessByEXE(exename:string):thandle;
var
  I: Integer;
  hSnapshoot: THandle;
  pe32: TProcessEntry32;

  proc:thandle;
begin
  result:=0;
  hSnapshoot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);

  if (hSnapshoot = -1) 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;

 Пример использования:
if GetProcessByEXE('explorer.exe')<>0 then killprocess(GetProcessByEXE('explorer.exe'));


Вернуться к списку функций

Наверх ▲    

Интернет-магазин Е96. Стоимость принтера. Доставка!