ShellExecute 会返回一个应用程序句柄，怎么根据此句柄判断该程序是否还在运行

ShellExecute 会返回一个应用程序句柄，如何根据此句柄判断该程序是否还在运行？
如题

[解决办法]
试试这样行不行?
procedure TForm1.Button1Click(Sender: TObject);
var
Hnd: THandle;
begin
Hnd := FindWindow( 'Notepad ',nil);
if IsWindow(Hnd) then ShowMessage( '有效 ');
if Hnd <> 0 then
SendMessage(Hnd,WM_CLOSE,0,0);
if Not IsWindow(Hnd) then ShowMessage( '无效 ');
end;
[解决办法]
ShellExecute没有这个功能
要用就CreateProcess的