[NumLock]

ну не в буквальном же смысле понимать

Код:

var
  hNotepad: THandle;
  hProcess: Cardinal;
  ProcessId: Cardinal;
begin
  hNotepad:=FindWindow('Notepad', nil);
  if hNotepad>0 then
  begin
    GetWindowThreadProcessId(hNotepad, ProcessId);
    hProcess:=OpenProcess(PROCESS_ALL_ACCESS, False, ProcessId);
    WaitForSingleObject(hProcess, INFINITE);
  end;
end;