Форум: "WinAPI";
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];

Вниз

EXENAME   Найти похожие ветки 

← →
Olgerd   (2001-11-25 17:39) [3]

uses TlHelp32;
function GetFileNameByProcessID(ProcessID: Integer): String;
var
hSnapshot: THandle;
lppe: TProcessEntry32;
begin
hSnapshot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if Process32First(hSnapshot, lppe) then
repeat
if lppe.th32ProcessID = ProcessID then
begin
Result := lppe.szExeFile;
Break;
end;
until not Process32Next(hSnapshot, lppe);
CloseHandle(hSnapshot);
end;

---

Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.003 c