Мистер_WarFace М Мистер_WarFace Регистрация 31 Мар 2013 Сообщения 87 Репутация 0 Спасибо 0 Монет 0 13 Июл 2016 #1 Мне нужно для своего проекта в Delphi(для dll библиотеки) код чтобы узнавать PID процесса, как такое можно реализовать?, я сам не-давно начал учить Delphi, так-что сорьте за тупость -.-
Мне нужно для своего проекта в Delphi(для dll библиотеки) код чтобы узнавать PID процесса, как такое можно реализовать?, я сам не-давно начал учить Delphi, так-что сорьте за тупость -.-
judo88 J judo88 Регистрация 16 Апр 2013 Сообщения 91 Репутация -3 Спасибо 1 Монет 0 13 Июл 2016 #2 Покури этот код, многое прояснится: uses Psapi; procedure KillTask(task: String); var PIDArray: array [0..1023] of DWORD; cb: DWORD; I: Integer; ProcCount: Integer; hMod: HMODULE; hProcess: THandle; ModuleName: array [0..MAX_PATH] of Char; begin EnumProcesses(@PIDArray, SizeOf(PIDArray), cb); ProcCount := cb div SizeOf(DWORD); for I := 0 to ProcCount - 1 do begin hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, PIDArray); if (hProcess <> 0) then begin EnumProcessModules(hProcess, @hMod, SizeOf(hMod), cb); GetModuleFilenameEx(hProcess, hMod, ModuleName, SizeOf(ModuleName)); CloseHandle(hProcess); file1:=task; file2:=StrPas(ModuleName); PID:=PIDArray; Kill; end; end; end; Позитивный голос 0
Покури этот код, многое прояснится: uses Psapi; procedure KillTask(task: String); var PIDArray: array [0..1023] of DWORD; cb: DWORD; I: Integer; ProcCount: Integer; hMod: HMODULE; hProcess: THandle; ModuleName: array [0..MAX_PATH] of Char; begin EnumProcesses(@PIDArray, SizeOf(PIDArray), cb); ProcCount := cb div SizeOf(DWORD); for I := 0 to ProcCount - 1 do begin hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, PIDArray); if (hProcess <> 0) then begin EnumProcessModules(hProcess, @hMod, SizeOf(hMod), cb); GetModuleFilenameEx(hProcess, hMod, ModuleName, SizeOf(ModuleName)); CloseHandle(hProcess); file1:=task; file2:=StrPas(ModuleName); PID:=PIDArray; Kill; end; end; end;
yashka Y yashka Регистрация 5 Июл 2013 Сообщения 71 Репутация 0 Спасибо 0 Монет 0 13 Июл 2016 #3 1. Посмотри свойства в application 2. Посмотри функцию win типа getprocessid Позитивный голос 0