急求,如何根据当前窗口句柄判断是否是指定程序

急求,怎么根据当前窗口句柄判断是否是指定程序
没有标题。。。各位大侠帮帮忙啊

------解决方案--------------------
Delphi(Pascal) code

  GetWindowThreadProcessId
  GetModuleFileName