知识大全通过DELPHI小程序在WINDOWS下更好地使用DOS批处理

Posted 2022-07-21 文件

篇首语：浪再高，也在船底；山再高，也在脚底。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全通过DELPHI小程序在WINDOWS下更好地使用DOS批处理相关的知识，希望对你有一定的参考价值。

通过DELPHI小程序在WINDOWS下更好地使用DOS批处理 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　我们知道 DOS 下的批处理程序中可以用 ECHO 显示一段信息（提示信息或出错信息）对于要接收用户输入的情况 MS DOS 本身提供的外部程序就只有 CHOICE 能让用户输入一个键所以基本上只能用于菜单选择对于下述两个需求那就只有另外编程序了　　．在 DOS 下的批处理程序中通过 WINDOWS 对话框显示一段提示信息或出错信息　　．在 DOS 下的批处理程序中通过 WINDOWS 对话框接收用户输入的一个字符串并对其进行后续处理

　　对于这两个问题相信有些人已经有了一些解决方案在此我提出我的解决方案是用 DELPHI 写的程序（这些DELPHI程序都是没有 FORM 和 PAS文件的）我觉得比较简单作为抛砖引玉

　　显示提示信息 SHOWMSG DPR program ShowMsg; uses Windows; $R * RES begin if ParamCount < then begin MessageBox( 用Windows对话框显示信息 # # + 用法: ShowMsg 提示信息对话框标题用法说明 MB_ICONINFORMATION); Halt; end; MessageBox( PChar(ParamStr( )) Pchar(ParamStr( )) MB_OK); Halt; end

　　显示出错信息 EmsgDlg DPR program EmsgDlg; uses Windows; $R * RES begin if ParamCount < then begin MessageBox( 用Windows对话框显示出错信息 # # + 用法: EmsgDlg 出错信息对话框标题用法说明 MB_ICONINFORMATION); Halt; end; MessageBox( PChar(ParamStr( )) PChar(ParamStr( )) mb_IconHand); Halt; end

　　 INPUTBOX DPR　　通过 WINDOWS 对话框接收用户输入的一个字符串并把用户输入作为调用一个批处理程序或其他程序的第个参数 program INPUTBOX; uses Dialogs Windows; $R * RES var NewString: string; ClickedOK: Boolean; begin if ParamCount < then begin MessageBox( 将用户输入作为 BAT或其他程序的参数调用 # # + 用法: InputBox BAT或其他程序文件名缺省输入对话框标题提示信息 InputBox用法说明 MB_ICONINFORMATION); Halt; end; NewString := ParamStr( ); //default string ClickedOK := InputQuery(ParamStr( ) ParamStr( ) NewString); if ClickedOK then WinExec(PChar(ParamStr( ) + + NewString) SW_SHOWNORMAL); Halt; end

用法举例 PRT BAT文件内容: @ECHO OFF D:\\POS\\INPUTBOX EXE PR BAT 解压POS报表文件并用写字板打开入帐汇总表请输入日期:

PR BAT文件内容: @ECHO OFF IF % == GOTO END D: CD \\POS\\INBOX IF NOT EXIST POS% ARJ GOTO NOT_FOUND D:\\POS\\ARJ X y POS% ARJ CD D:\\POS\\INBOX\\pos_report IF NOT EXIST Pr B% txt GOTO PR _NOT_FOUND C:\\WINDOWS\\WRITE Pr B% txt D:\\POS\\ShowMsg 成功！ OK!!! GOTO END

:NOT_FOUND D:\\POS\\EmsgDlg 文件D:\\POS\\INBOX\\POS% ARJ找不到! 出错! CD D:\\ GOTO END

:PR _NOT_FOUND D:\\POS\\EmsgDlg 文件D:\\POS\\INBOX\\pos_report\\Pr B% txt找不到! 出错! CD D:\\ GOTO END

:END

cha138/Article/program/Delphi/201311/25043

知识大全 通过DELPHI小程序在WINDOWS下更好地使用DOS批处理

知识大全通过DELPHI小程序在WINDOWS下更好地使用DOS批处理