Недавно добавленные исходники

•  TDictionary Custom Sort  1 838

•  Fast Watermark Sources  1 870

•  3D Designer  3 289

•  Sik Screen Capture  2 293

•  Patch Maker  2 472

•  Айболит (remote control)  2 293

•  ListBox Drag & Drop  1 891

•  Доска для игры Реверси  69 542

•  Графические эффекты  2 492

•  Рисование по маске  2 026

•  Перетаскивание изображений  1 591

•  Canvas Drawing  1 589

•  Рисование Луны  1 606

•  Поворот изображения  1 224

•  Рисование стержней  1 276

•  Paint on Shape  907

•  Генератор кроссвордов  1 419

•  Головоломка Paletto  1 105

•  Теорема Монжа об окружностях  1 450

•  Пазл Numbrix  1 025

•  Заборы и коммивояжеры  1 301

•  Игра HIP  864

•  Игра Go (Го)  829

•  Симулятор лифта  960

•  Программа укладки плитки  803

•  Генератор лабиринта  963

•  Проверка числового ввода  863

•  HEX View  998

•  Физический маятник  867

•  Задача коммивояжера  918

 
скрыть


Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Как определить откуда был запущен процесс



Автор: TAPAKAH

Есть handle запущенного PE файла. Как определить откуда он был запущен? Я так предполагаю что getmodulefilename как и GetModuleHandle работает в рамках только своего процесса. А решить твою задачу .. можно так: Тут парочка моих любимых функций:

uses
  tlhelp32;

type
  TModuleArray = array of TModuleEntry32;

  // Возвращает список описаний (TModuleEntry32) модулей по идентификатору процесса

function GetModulesListByProcessId(ProcessId: Cardinal): TModuleArray;

implementation

function GetModulesListByProcessId(ProcessId: Cardinal): TModuleArray;
var
  hSnapshot: THandle;
  lpme: TModuleEntry32;

  procedure AddModuleToList;
  begin
    SetLength(Result, High(Result) + 2);
    Result[high(Result)] := lpme;
  end;

begin
  SetLength(Result, 0);
  hSnapshot := CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, ProcessId);
  if hSnapshot = -1 then
    RaiseLastWin32Error;
  lpme.dwSize := SizeOf(lpme);
  if Module32First(hSnapshot, lpme) then
  begin
    AddModuleToList;
    while Module32Next(hSnapshot, lpme) do
      AddModuleToList;
  end;
end;

Исходный код

var
  Wnd: hWnd;
  buff: array[0..127] of Char;
  //------------------------------------
  Pid: Cardinal;
  modarr: TModuleArray;
  Name: string;
  //------------------------------------
begin
  StringGrid1.RowCount := 1;
  Wnd := GetWindow(Handle, gw_HWndFirst);
  while Wnd <> 0 do
  begin
    if (GetWindowText(Wnd, buff, sizeof(buff)) <> 0) then
    begin
      fillchar(name, sizeof(name), #0);
      GetWindowText(wnd, buff, sizeof(buff));

      // if getmodulefilename(GetWindowLong(wnd,GWL_HINSTANCE),name,sizeof(name))=0
      // then name:='Null';
      //-----------------------------------------
      GetWindowThreadProcessId(Wnd, @Pid);
      modarr := GetModulesListByProcessId(Pid);
      name := 'Null';
      for i := 0 to High(modarr) do
      begin
        if Integer(modarr[i].modBaseAddr) = $400000 then
        begin
          name := modarr[i].szExePath;
          break;
        end;
      end;
      //-----------------------------------------
      StringGrid1.Cells[0, StringGrid1.RowCount - 1] := StrPas(buff);
      StringGrid1.Cells[1, StringGrid1.RowCount - 1] := StrPas(name);
      StringGrid1.RowCount := StringGrid1.RowCount + 1;
    end;
    Wnd := GetWindow(Wnd, gw_hWndNext);
  end;
  StringGrid1.RowCount := StringGrid1.RowCount - 1;
end;




Похожие по теме исходники

Список запущенных процессов

Очередность выполнения процессов

Ожидание завершения процесса

Сообщения между процессами Windows

 

Защита процесса

Информация о процессах

Защита процесса




Copyright © 2004-2023 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте   Facebook   Ссылка на Twitter   Ссылка на Telegram