pobranie ID procesu z nazwy

Nigdzie nie mogę znaleźć jak pobrać id porcesu znając jego nazwę, np jak pobrać id procesu notepad.exe itp. ?

var
uchwyt :THandle;
proces :TProcessEntry32;
id:Cardinal;

{...}

uchwyt:= CreateToolHelp32SnapShot(TH32CS_SNAPALL,0);
proces.dwSize:= SizeOf(Proces);
if Integer(Process32First(uchwyt, proces)) <> 0 then
repeat
GetWindowThreadProcessId(uchwyt,ID);
if UpperCase(ExtractFileName(proces.szExeFile))=UpperCase('Notepad.exe') then id:=proces.th32ProcessID;
until Integer(Process32Next(uchwyt, proces)) = 0;
CloseHandle(uchwyt);

Postaraj się tego poszukać na 4p, gdzieś było...
Niestety nie wiem czy to zadziała :P

a jak pobrać uchwyt procesu przy próbie zamknięcia go w TasmManagerze?