Вопрос Как через Delphi узнать PID указанного процесса?

[Мистер_WarFace]

Мне нужно для своего проекта в Delphi(для dll библиотеки) код чтобы узнавать PID процесса, как такое можно реализовать?, я сам не-давно начал учить Delphi, так-что сорьте за тупость -.-

 

[judo88]

Покури этот код, многое прояснится: 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]

1. Посмотри свойства в application 2. Посмотри функцию win типа getprocessid