procedure OpenOutExeP(HD:THandle; path: string);
Var
HWndCalculator:HWnd;
Begin
//打开指定的文件;
HWndCalculator:=windows.FindWindow(nil,pchar(path));
if HwndCalculator=0 then
Shellexecute(HD,'open',Pchar(path),'',nil,sw_shownormal);
end;
procedure CloseoutExeP(path: string);
Var
HWndCalculator:HWnd;
Begin
//查找指定的文件是否被打开;
HWndCalculator:=FindWindow(nil,pchar(path));
if HwndCalculator<>0 then
SendMessage(HwndCalculator,WM_CLOSE,0,0);
end;