文件名称：实时显示DOS程序执行的小软件含代码
文件大小：288KB
文件格式：RAR
更新时间：2014-09-21 16:56:21
实时显示DOS程序执行的小软件含代码
begin case Message.Msg of WM_CREATEPIPE_ERROR : showmessage('创建管道错误！'); WM_CREATEPROCESS_ERROR : showmessage('创建进程错误！'); WM_READPIPE_ERROR : showmessage('读管道错误！'); WM_FINISHED_COMMAND : showmessage('命令执行完毕！'); end; inherited WndProc(Message); end; procedure TMainFrm.Button1Click(Sender: TObject); begin Memo1.Lines.Clear; aRunDosThread := TRunDosThread.Create(False, LabeledEdit1.Text); end; procedure TMainFrm.LabeledEdit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_RETURN then Button1.Click; end;
【文件预览】：
Project1.drc
使用说明.txt
Project1.exe
GlobalPara.pas
Project1.elf
Unit1.dfm
Project1.dpr
CleanCode.bat
Unit1.pas
Project1.res
spawn.exe
RunDosThrd.pas
RoutingThrd.pas