Delphi Получить ручку EXE

Question

Вот пример того, как я делаю это прямо сейчас:

var 
Client : String; 
Handle : Integer; 
begin 
Client := 'Window Name'; 
GetWindowThreadProcessId(FindWindow(nil, PAnsiChar(Client)), @ProcessId); 
Handle := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessId); 
end; 

Я предпочел бы схватить ручку процесса с его именем ехе ... Возможно ли это это ?

Answer 1

Вы можете использовать ProcessInfo:

var 
    ProcessInfo : TProcessInfo; 
    Process : TProcessItem; 
    PID: Cardinal; 
    ProcessHandle : THandle; 
begin 
    ProcessInfo := TProcessInfo.Create(nil); 
    try 
    Process := ProcessInfo.RunningProcesses.FindByName('Notepad.exe'); 
    if Assigned(Process) then 
    begin 
     PID := Process.ProcessID; 
     ProcessHandle := OpenProcess(PROCESS_ALL_ACCESS,False,PID); 
     if ProcessHandle > 0 then 
     try 
     {Add your code here} 
     finally 
     CloseHandle(ProcessHandle); 
     end; 
    end; 
    finally 
    ProcessInfo.Free; 
    end; 
end; 

Если вам не нравится с помощью сторонних компонентов, вы можете изучить исходный код ProcessInfo в как он извлекает список запущенных процессов и их свойства. В основном это относится к API справки Windows Tool для большинства его функций.

Answer 2

Application.Handle?
Похоже, вы пытаетесь запрограммировать в Delphi WinAPI. В подавляющем большинстве это не нужно, VCL предоставляет соответствующие объектно-ориентированные обертки.
Может быть вы найдете что-то в этом компоненте пакета: GLibWMI

Answer 3

Поскольку ссылка, предоставленная vcldeveloper, сломана, вот полный функциональный код, который работает без сторонних компонентов.

Сначала мы найдем идентификатор процесса (PID), а затем мы получим дескриптор процесса, открыв все доступ (так как OP, упомянутый в комментариях, он понадобится для функции ReadProcessMemory).

Если функция ПИД возвращает значение 0, то это означает, что процесс, скорее всего, не работает (или просто не нашли в списке запущенных процессов)

function GetPIDbyProcessName(processName:String):integer; 
var 
    GotProcess: Boolean; 
    tempHandle: tHandle; 
    procE: tProcessEntry32; 
begin 
    tempHandle:=CreateToolHelp32SnapShot(TH32CS_SNAPALL, 0); 
    procE.dwSize:=SizeOf(procE); 
    GotProcess:=Process32First(tempHandle, procE); 
    {$B-} 
    if GotProcess and (procE.szExeFile <> processName) then 
     repeat GotProcess := Process32Next(tempHandle, procE); 
     until (not GotProcess) or (procE.szExeFile = processName); 
    {$B+} 

    if GotProcess then 
    result := procE.th32ProcessID 
    else 
    result := 0; // process not found in running process list 

    CloseHandle(tempHandle); 
end; 

Далее, мы получим/открыть дескриптор процесса из ПИД-код, который мы получили. Весь код/​​использование выглядит следующим образом:

var myPID, myProcessHandle: integer; 
begin 
    myPID:=GetPIDbyProcessName('someExeName.exe'); 
    myProcessHandle:=OpenProcess(PROCESS_ALL_ACCESS,False,myPID); 
end; 

Вы должны хранить myProcessHandle таким образом, что для
, доступная ReadProcessMemory(myProcessHandle...) в качестве первого параметра.

Кроме того, добавить их к своим глобальным использований статей:
Winapi.Windows (для ReadProcessMemory и OpenProcess)
Winapi.tlHelp32 (для получения переменной PID tProcessEntry32)