网管的第二个程序(调用外部程序)

2006-12-21本站原创admin

这个程序主要作用就是用Delphi调用外部程序

并实现运行过程中不显示/显示运行窗口的功能

这样就可以实现运行批处理不出现黑窗口的功能了。

具体实现过程如下,如果你其中有不明白的地方可以先放着

因为这是给网吧专用的快速入门教程。

(如果你没看昨天的教程一,建议你先看)

下面是详细实现过程:

1、按照昨天讲的方法,放置一个按钮组件到窗口设计界面上,双击按钮,转到代码编辑窗口:

输入以下命令(全部大写的块,不用去管,全部是常量,Delphi系统提供的):

procedure TForm1.btn1Click ( Sender: TObject ) ;//这行是自动生成的。
var
  nResult                                                                       : Integer ;//定义运行结果变量
begin
  nResult := WinExec ( 'c:\1.bat' , 0 ) ;//''内的是执行外部命令完整路径,0参数,表明不显示运行窗口,你可以改成1试试效果。
  if nResult > 31 then //返回结果大于31表明成功运行
    ShowMessage ( '成功运行!' )
  else
    if nResult = 0 then
      ShowMessage ( '超出系统内存资源!' )
    else
      if nResult = ERROR_BAD_FORMAT then //
        ShowMessage ( '不是合法的Win32程序' )
      else
        if nResult = ERROR_FILE_NOT_FOUND then
          ShowMessage ( '指定的文件未找到' )
        else
          if nResult = ERROR_BAD_FORMAT  then
            ShowMessage ( '不是合法的Win32程序' )
          else
            ShowMessage ( '未知错误!' ) ;
end ;

按F9运行后效果图(C:\1.bat文件存在,正常时的效果图):

如果此时删掉c:\1.bat文件或者改名后,再运行,你就会发现,会提示'指定的文件未找到' 。

WinExec这是一个函数,是Windows提供的。具体参数和使用方法可以直接用Delphi的帮助中找到,点Help菜单,Windows SDK里面索引,输入WinExec即可找到帮助(可惜是英文的),好了,明天继续,今天你学会这个可以自己写隐藏DOS批处理黑窗口程序了~~

本文来源:本站原创 作者:admin

声明
声明:本站所发表的文章、评论及图片仅代表作者本人观点,与本站立场无关。若文章侵犯了您的相关权益,请及时与我们联系,我们会及时处理,感谢您对本站的支持!联系Email:support@txwb.com,系统开号,技术支持,服务联系QQ:1175525021本站所有有注明来源为天下网吧或天下网吧论坛的原创作品,各位转载时请注明来源链接!
天下网吧·网吧天下
  • 本周热门
  • 本月热门
  • 阅读排行