delphi 让代码一步一步的执行,怎么实现?

我写了个软件升级程序。
第一步:下载新程序
第二步:复制新程序到指定目录
第三部:打开新程序,删除就程序

我想要的效果是,升级窗口上有个Label提示标签,执行第一步时显示,正在下载。
下载完毕,显示正在复制程序,复制完成。显示正在更新。。
类似这样的,告诉用户程序在一步一步的做。

这个是怎么实现的,使用的是什么方法。现在很多软件我看都有类似的提示。
我写的始终显示最后一个提示呢?

1个回答

在label1.Text:=xxx
下面加上
Application.ProcessMessages;

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
其他相关推荐
Delphi7 中如何实现 TStringBuilder
Delphi7 中如何实现 TStringBuilder Delphi7 中如何实现 TStringBuilder
Delphi 实现类似QQ聊天窗口
Delphi如何实现类似QQ的聊天窗口,需要聊天气泡和图文并茂的窗口
C#如何实现Delphi的abort功能
如题:C#如何实现Delphi的abort功能,写一个和Delphi功能一样的功能。 Delphi的Abort;实现如下: ``` procedure Abort; procedure RaiseEAbort(ReturnAddr: Pointer); begin raise EAbort.CreateRes(@SOperationAborted) at ReturnAddr; end; asm POP EAX JMP RaiseEAbort end; ```
delphi 怎么程序执行数据保存的时候 提示正在执行操作是否关闭程序
delphi怎么程序执行数据保存的时候 关闭窗口时提示正在执行操作是否关闭程序
delphi combox怎么实现这样的效果?
delphi combox怎么实现这样的效果? 中间的 --------------- 是怎么实现的,右边的数据都是对齐的。 ![图片说明](https://img-ask.csdn.net/upload/201711/26/1511665821_449121.png)
请问这样的Delphi源代码该如何编译
![图片说明](https://img-ask.csdn.net/upload/201612/18/1482064121_433442.png) 如图 都是后缀名为pas,v 和 dfm,v的文件 没有发现dpr项目文件 请问如何才能把源代码转换成IDE可以打开的项目
请问如何在delphi中实现图片的透明处理,并将其另存为gif格式
如题,如何在delphi中实现图片的透明处理,并将其另存为gif格式,谢谢,望给出详细代码!急急急
delphi怎样实现静音呀?(window系统的静音)
各位程序员师傅,我是delphi新手,我希望按下一个button来实现静音,不知道用下面这段摘抄的代码能够实现么?http://blog.csdn.net/jinjazz/article/details/2672197,如果可以能不能告诉小弟我该怎么做?
delphi 可以通过FDQuery来执行导入数据库操作吗?
delphi 可以通过FDQuery来执行导入数据库操作吗? 如题: 在delphi里怎么操作可以导入SQL文件到MYSQL数据库里呢,麻烦老是指点。
delphi dbgrideh 添加完数据后让他选中刚才添加的那行,怎么实现呢?
delphi dbgrideh 添加完数据后让他选中刚才添加的那行,怎么实现呢? ,如果我修改了此行,修改完了也让他高亮选中此行,老师代码怎么实现。
delphi HttpQueryInfo查询响应头信息,执行成功,但是返回的是空字符串
``` procedure Get(url: string;res: TStream); var hInt,hUrl:HINTERNET; buffer,hBuf:PChar; dwRead:cardinal; flag:Boolean; Len,index:Cardinal; stream:TStringStream; var value: DWORD; begin GetMem(buffer, 65536); GetMem(hBuf, 65536); hInt := InternetOpen('Delphi',INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0); dwRead:=0; hurl:=InternetOpenUrl(hInt,PChar(url),nil,0,INTERNET_FLAG_RELOAD,0); //查询响应头信息 flag:=HttpQueryInfo(hurl,HTTP_QUERY_RAW_HEADERS_CRLF,hBuf,len,index); stream:=TStringStream.Create(''); stream.Write(hBuf^,len); ShowMessage(stream.DataString); repeat InternetReadFile(hUrl,buffer,1000,dwRead); if dwRead<>0 then res.Write(buffer^, dwRead); until dwRead=0; InternetCloseHandle(hUrl); InternetCloseHandle(hInt); FreeMem(buffer); end; ``` rt delphi HttpQueryInfo查询响应头信息,执行成功,返回true,len也不为0,但是我从缓冲区读出来的字符串却是空的,不知道是我读取缓冲区的方式不对还是怎么的,有谁搞过,请多多指教!
delphi 实现验证码功能
本人在用delphi做一个登录界面,想实现验证码的功能。但在百度上没找到源码。求源码连接地址或源码,谢谢。
请问delphi大牛 为什么这段代码的外层循环没有执行?
procedure TForm1.Button1Click(Sender: TObject); var sUrl:string; ihMyIdHttp:TIdHTTP; ihMyIdHttp1:TIdHTTP; iFrom:Integer; iTo:Integer; i:Integer; sInfo:string; sName:string; list:TStringList; o:Integer; p:Integer; list1:TStringList; list2:TStringList; s公司名称:string; s会员级别:string; s联系人:string; sQQ:string; s电话:string; s移动电话:string; s传真:string; s网址:string; sSubInfo:string; begin ListView1.Items.Clear; if (Edit1.Text='') or (Edit2.Text='') then begin ShowMessage('请输入搜索范围'); Exit; end; iFrom:=StrToInt(Edit1.Text); iTo:=StrToInt(Edit2.Text); ListView1.ViewStyle:=vsReport; ihMyIdHttp:=TIdHTTP.Create(nil); for i := iFrom to iTo do begin sUrl:='http://www.sg560.com/company/cate_area-0/date_key_/p'+i.ToString+'.html'; ShowMessage(sUrl); sInfo:=ihMyIdHttp.Get(sUrl); sInfo:=CopyStr(sInfo,'<div class="result-list-content">','<div class="clearfix">'); SplitString(sInfo,'<a class="g-imgTxt-tl" href="',list); ihMyIdHttp1:=TIdHTTP.Create(nil); for o := 0 to list.Count-1 do begin p:=o; p:=p*2+1; if p=21 then Exit; SplitString(list[p],'" title="',list1); s网址:='http://www.sg560.com'+list1[0]; SplitString(list1[1],'"',list2); s公司名称:=list2[0]; sSubInfo:=ihMyIdHttp1.Get(s网址); sSubInfo:=CopyStr(sSubInfo,'<div class="header">','<div class="mright">'); s会员级别:=CopyStr(sSubInfo,'<div class="name2">','</div>'); s会员级别:=s会员级别+':第'+CopyStr(sSubInfo,'<span class="num">','</span>')+'年'; s联系人:=CopyStr(sSubInfo,'<p class="mlp2">','<a'); s联系人:=CopyStr(s联系人,'<span>','</span>'); sQQ:=CopyStr(sSubInfo,'&uin=','&site'); s电话:=CopyStr(sSubInfo,'电 话:','<br />'); s移动电话:=CopyStr(sSubInfo,'移动电话:','<br />'); s传真:=CopyStr(sSubInfo,'传 真:','</p>'); if s会员级别<>'免费会员' then begin with ListView1.Items.Add do begin //Caption:=IntToStr('1'); SubItems.Add('22'); SubItems.Add(s公司名称); SubItems.Add(s会员级别); SubItems.Add(s联系人); SubItems.Add(sQQ); SubItems.Add(s电话); SubItems.Add(s移动电话); SubItems.Add(s传真); SubItems.Add(s网址); try listview1.Items[listview1.Items.Count-1].MakeVisible(true); except on E:Exception do ShowMessage('异常:'+E.Message); end; end; end; end; ihMyIdHttp.Free; ihMyIdHttp1.Free; end; end;
delphi 类似这样的列表怎么实现?
delphi xe2 类似与QQ备忘录这样的列表,用什么实现,或者用什么控件,能达到这样的效果就行? ![图片说明](https://img-ask.csdn.net/upload/201706/01/1496320061_729128.png)
delphi工程如何反编译成可读的代码
我用delphi decompiler反编译,出来的都是乱码,我应该怎么弄?
sip delphi demo 只要delphi 的
哪位大侠有sip的代码? 要Delphi的,俺知识面不广,只会Delphi
C++中的类静态变量在delphi7中怎么实现。
请教一下,类TCat,TDog都是继承类TAnimal,我想自改TAnimal中myKind属性然后TCat和TDog实例中的MyKind都改了,怎么弄??
delphi dbgrideh的导出功能,导出某几列?
delphi dbgrideh的导出功能,导出某几列? 使用自带的函数SaveDBGridEhToExportFile导出全部的数据OK的, 现在我只想导出第2列 至 第5列 其他列的不要,怎么实现啊。 有知道的老师吗?
delphi用edit如何实现listview的过滤搜索?
界面:一个edit,一个listview,listview列表有vb,java,delphi,c,php,python,html,sql 要实现:在edit中输入h,listview显示delphi,php,python,html 该如何实现以上功能
相见恨晚的超实用网站
搞学习 知乎:www.zhihu.com 简答题:http://www.jiandati.com/ 网易公开课:https://open.163.com/ted/ 网易云课堂:https://study.163.com/ 中国大学MOOC:www.icourse163.org 网易云课堂:study.163.com 哔哩哔哩弹幕网:www.bilibili.com 我要自学网:www.51zxw
花了20分钟,给女朋友们写了一个web版群聊程序
参考博客 [1]https://www.byteslounge.com/tutorials/java-ee-html5-websocket-example
爬虫福利二 之 妹子图网MM批量下载
爬虫福利一:27报网MM批量下载    点击 看了本文,相信大家对爬虫一定会产生强烈的兴趣,激励自己去学习爬虫,在这里提前祝:大家学有所成! 目标网站:妹子图网 环境:Python3.x 相关第三方模块:requests、beautifulsoup4 Re:各位在测试时只需要将代码里的变量 path 指定为你当前系统要保存的路径,使用 python xxx.py 或IDE运行即可。
字节跳动视频编解码面经
引言 本文主要是记录一下面试字节跳动的经历。 三四月份投了字节跳动的实习(图形图像岗位),然后hr打电话过来问了一下会不会opengl,c++,shador,当时只会一点c++,其他两个都不会,也就直接被拒了。 七月初内推了字节跳动的提前批,因为内推没有具体的岗位,hr又打电话问要不要考虑一下图形图像岗,我说实习投过这个岗位不合适,不会opengl和shador,然后hr就说秋招更看重基础。我当时
Java学习的正确打开方式
在博主认为,对于入门级学习java的最佳学习方法莫过于视频+博客+书籍+总结,前三者博主将淋漓尽致地挥毫于这篇博客文章中,至于总结在于个人,实际上越到后面你会发现学习的最好方式就是阅读参考官方文档其次就是国内的书籍,博客次之,这又是一个层次了,这里暂时不提后面再谈。博主将为各位入门java保驾护航,各位只管冲鸭!!!上天是公平的,只要不辜负时间,时间自然不会辜负你。 何谓学习?博主所理解的学习,它
程序员必须掌握的核心算法有哪些?
由于我之前一直强调数据结构以及算法学习的重要性,所以就有一些读者经常问我,数据结构与算法应该要学习到哪个程度呢?,说实话,这个问题我不知道要怎么回答你,主要取决于你想学习到哪些程度,不过针对这个问题,我稍微总结一下我学过的算法知识点,以及我觉得值得学习的算法。这些算法与数据结构的学习大多数是零散的,并没有一本把他们全部覆盖的书籍。下面是我觉得值得学习的一些算法以及数据结构,当然,我也会整理一些看过
大学四年自学走来,这些私藏的实用工具/学习网站我贡献出来了
大学四年,看课本是不可能一直看课本的了,对于学习,特别是自学,善于搜索网上的一些资源来辅助,还是非常有必要的,下面我就把这几年私藏的各种资源,网站贡献出来给你们。主要有:电子书搜索、实用工具、在线视频学习网站、非视频学习网站、软件下载、面试/求职必备网站。 注意:文中提到的所有资源,文末我都给你整理好了,你们只管拿去,如果觉得不错,转发、分享就是最大的支持了。 一、电子书搜索 对于大部分程序员...
linux系列之常用运维命令整理笔录
本博客记录工作中需要的linux运维命令,大学时候开始接触linux,会一些基本操作,可是都没有整理起来,加上是做开发,不做运维,有些命令忘记了,所以现在整理成博客,当然vi,文件操作等就不介绍了,慢慢积累一些其它拓展的命令,博客不定时更新 顺便拉下票,我在参加csdn博客之星竞选,欢迎投票支持,每个QQ或者微信每天都可以投5票,扫二维码即可,http://m234140.nofollow.ax.
比特币原理详解
一、什么是比特币 比特币是一种电子货币,是一种基于密码学的货币,在2008年11月1日由中本聪发表比特币白皮书,文中提出了一种去中心化的电子记账系统,我们平时的电子现金是银行来记账,因为银行的背后是国家信用。去中心化电子记账系统是参与者共同记账。比特币可以防止主权危机、信用风险。其好处不多做赘述,这一层面介绍的文章很多,本文主要从更深层的技术原理角度进行介绍。 二、问题引入 假设现有4个人...
Python 基础(一):入门必备知识
目录1 标识符2 关键字3 引号4 编码5 输入输出6 缩进7 多行8 注释9 数据类型10 运算符10.1 常用运算符10.2 运算符优先级 1 标识符 标识符是编程时使用的名字,用于给变量、函数、语句块等命名,Python 中标识符由字母、数字、下划线组成,不能以数字开头,区分大小写。 以下划线开头的标识符有特殊含义,单下划线开头的标识符,如:_xxx ,表示不能直接访问的类属性,需通过类提供
这30个CSS选择器,你必须熟记(上)
关注前端达人,与你共同进步CSS的魅力就是让我们前端工程师像设计师一样进行网页的设计,我们能轻而易举的改变颜色、布局、制作出漂亮的影音效果等等,我们只需要改几行代码,不需...
国产开源API网关项目进入Apache孵化器:APISIX
点击蓝色“程序猿DD”关注我回复“资源”获取独家整理的学习资料!近日,又有一个开源项目加入了这个Java开源界大名鼎鼎的Apache基金会,开始进行孵化器。项目名称:AP...
程序员接私活怎样防止做完了不给钱?
首先跟大家说明一点,我们做 IT 类的外包开发,是非标品开发,所以很有可能在开发过程中会有这样那样的需求修改,而这种需求修改很容易造成扯皮,进而影响到费用支付,甚至出现做完了项目收不到钱的情况。 那么,怎么保证自己的薪酬安全呢? 我们在开工前,一定要做好一些证据方面的准备(也就是“讨薪”的理论依据),这其中最重要的就是需求文档和验收标准。一定要让需求方提供这两个文档资料作为开发的基础。之后开发
网页实现一个简单的音乐播放器(大佬别看。(⊙﹏⊙))
今天闲着无事,就想写点东西。然后听了下歌,就打算写个播放器。 于是乎用h5 audio的加上js简单的播放器完工了。 欢迎 改进 留言。 演示地点跳到演示地点 html代码如下`&lt;!DOCTYPE html&gt; &lt;html&gt; &lt;head&gt; &lt;title&gt;music&lt;/title&gt; &lt;meta charset="utf-8"&gt
Python十大装B语法
Python 是一种代表简单思想的语言,其语法相对简单,很容易上手。不过,如果就此小视 Python 语法的精妙和深邃,那就大错特错了。本文精心筛选了最能展现 Python 语法之精妙的十个知识点,并附上详细的实例代码。如能在实战中融会贯通、灵活使用,必将使代码更为精炼、高效,同时也会极大提升代码B格,使之看上去更老练,读起来更优雅。 1. for - else 什么?不是 if 和 else 才
数据库优化 - SQL优化
前面一篇文章从实例的角度进行数据库优化,通过配置一些参数让数据库性能达到最优。但是一些“不好”的SQL也会导致数据库查询变慢,影响业务流程。本文从SQL角度进行数据库优化,提升SQL运行效率。 判断问题SQL 判断SQL是否有问题时可以通过两个表象进行判断: 系统级别表象 CPU消耗严重 IO等待严重 页面响应时间过长
2019年11月中国大陆编程语言排行榜
2019年11月2日,我统计了某招聘网站,获得有效程序员招聘数据9万条。针对招聘信息,提取编程语言关键字,并统计如下: 编程语言比例 rank pl_ percentage 1 java 33.62% 2 c/c++ 16.42% 3 c_sharp 12.82% 4 javascript 12.31% 5 python 7.93% 6 go 7.25% 7
通俗易懂地给女朋友讲:线程池的内部原理
餐厅的约会 餐盘在灯光的照耀下格外晶莹洁白,女朋友拿起红酒杯轻轻地抿了一小口,对我说:“经常听你说线程池,到底线程池到底是个什么原理?”我楞了一下,心里想女朋友今天是怎么了,怎么突然问出这么专业的问题,但做为一个专业人士在女朋友面前也不能露怯啊,想了一下便说:“我先给你讲讲我前同事老王的故事吧!” 大龄程序员老王 老王是一个已经北漂十多年的程序员,岁数大了,加班加不动了,升迁也无望,于是拿着手里
经典算法(5)杨辉三角
杨辉三角 是经典算法,这篇博客对它的算法思想进行了讲解,并有完整的代码实现。
编写Spring MVC控制器的14个技巧
本期目录 1.使用@Controller构造型 2.实现控制器接口 3.扩展AbstractController类 4.为处理程序方法指定URL映射 5.为处理程序方法指定HTTP请求方法 6.将请求参数映射到处理程序方法 7.返回模型和视图 8.将对象放入模型 9.处理程序方法中的重定向 10.处理表格提交和表格验证 11.处理文件上传 12.在控制器中自动装配业务类 ...
腾讯算法面试题:64匹马8个跑道需要多少轮才能选出最快的四匹?
昨天,有网友私信我,说去阿里面试,彻底的被打击到了。问了为什么网上大量使用ThreadLocal的源码都会加上private static?他被难住了,因为他从来都没有考虑过这个问题。无独有偶,今天笔者又发现有网友吐槽了一道腾讯的面试题,我们一起来看看。 腾讯算法面试题:64匹马8个跑道需要多少轮才能选出最快的四匹? 在互联网职场论坛,一名程序员发帖求助到。二面腾讯,其中一个算法题:64匹
面试官:你连RESTful都不知道我怎么敢要你?
面试官:了解RESTful吗? 我:听说过。 面试官:那什么是RESTful? 我:就是用起来很规范,挺好的 面试官:是RESTful挺好的,还是自我感觉挺好的 我:都挺好的。 面试官:… 把门关上。 我:… 要干嘛?先关上再说。 面试官:我说出去把门关上。 我:what ?,夺门而去 文章目录01 前言02 RESTful的来源03 RESTful6大原则1. C-S架构2. 无状态3.统一的接
求小姐姐抠图竟遭白眼?痛定思痛,我决定用 Python 自力更生!
点击蓝色“Python空间”关注我丫加个“星标”,每天一起快乐的学习大家好,我是 Rocky0429,一个刚恰完午饭,正在用刷网页浪费生命的蒟蒻...一堆堆无聊八卦信息的网页内容慢慢使我的双眼模糊,一个哈欠打出了三斤老泪,就在此时我看到了一张图片:是谁!是谁把我女朋友的照片放出来的!awsl!太好看了叭...等等,那个背景上的一堆鬼画符是什么鬼?!真是看不下去!叔叔婶婶能忍,隔壁老王的三姨妈的四表...
为啥国人偏爱Mybatis,而老外喜欢Hibernate/JPA呢?
关于SQL和ORM的争论,永远都不会终止,我也一直在思考这个问题。昨天又跟群里的小伙伴进行了一番讨论,感触还是有一些,于是就有了今天这篇文。 声明:本文不会下关于Mybatis和JPA两个持久层框架哪个更好这样的结论。只是摆事实,讲道理,所以,请各位看官勿喷。 一、事件起因 关于Mybatis和JPA孰优孰劣的问题,争论已经很多年了。一直也没有结论,毕竟每个人的喜好和习惯是大不相同的。我也看
SQL-小白最佳入门sql查询一
不要偷偷的查询我的个人资料,即使你再喜欢我,也不要这样,真的不好;
项目中的if else太多了,该怎么重构?
介绍 最近跟着公司的大佬开发了一款IM系统,类似QQ和微信哈,就是聊天软件。我们有一部分业务逻辑是这样的 if (msgType = "文本") { // dosomething } else if(msgType = "图片") { // doshomething } else if(msgType = "视频") { // doshomething } else { // doshom...
致 Python 初学者
欢迎来到“Python进阶”专栏!来到这里的每一位同学,应该大致上学习了很多 Python 的基础知识,正在努力成长的过程中。在此期间,一定遇到了很多的困惑,对未来的学习方向感到迷茫。我非常理解你们所面临的处境。我从2007年开始接触 python 这门编程语言,从2009年开始单一使用 python 应对所有的开发工作,直至今天。回顾自己的学习过程,也曾经遇到过无数的困难,也曾经迷茫过、困惑过。开办这个专栏,正是为了帮助像我当年一样困惑的 Python 初学者走出困境、快速成长。希望我的经验能真正帮到你
“狗屁不通文章生成器”登顶GitHub热榜,分分钟写出万字形式主义大作
一、垃圾文字生成器介绍 最近在浏览GitHub的时候,发现了这样一个骨骼清奇的雷人项目,而且热度还特别高。 项目中文名:狗屁不通文章生成器 项目英文名:BullshitGenerator 根据作者的介绍,他是偶尔需要一些中文文字用于GUI开发时测试文本渲染,因此开发了这个废话生成器。但由于生成的废话实在是太过富于哲理,所以最近已经被小伙伴们给玩坏了。 他的文风可能是这样的: 你发现,...
程序员:我终于知道post和get的区别
是一个老生常谈的话题,然而随着不断的学习,对于以前的认识有很多误区,所以还是需要不断地总结的,学而时习之,不亦说乎
《程序人生》系列-这个程序员只用了20行代码就拿了冠军
你知道的越多,你不知道的越多 点赞再看,养成习惯GitHub上已经开源https://github.com/JavaFamily,有一线大厂面试点脑图,欢迎Star和完善 前言 这一期不算《吊打面试官》系列的,所有没前言我直接开始。 絮叨 本来应该是没有这期的,看过我上期的小伙伴应该是知道的嘛,双十一比较忙嘛,要值班又要去帮忙拍摄年会的视频素材,还得搞个程序员一天的Vlog,还要写BU...
相关热词 c# 图片上传 c# gdi 占用内存 c#中遍历字典 c#控制台模拟dos c# 斜率 最小二乘法 c#进程延迟 c# mysql完整项目 c# grid 总行数 c# web浏览器插件 c# xml 生成xsd
立即提问