i := winexec('c:/windows/calc.exe',sw_show);
if i<=31 then
begin
case i of
0 : application.MessageBox('系统资源不足,请关闭一些程序再试!','提示',mb_ok+mb_iconstop);
ERROR_BAD_FORMAT : application.MessageBox('所调用的不是一个有效的Win32文件!','提示',mb_ok+mb_iconstop);
ERROR_FILE_NOT_FOUND:application.MessageBox('程序未找到!','提示',mb_ok+mb_iconstop);
ERROR_PATH_NOT_FOUND:application.MessageBox('路径未找到!','提示',mb_ok+mb_iconstop);
end;
end;