说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

在Delphi程序的About窗口中建立URL连接

HTML文档下载 WORD文档下载 PDF文档下载
在Delphi程序的About窗口中建立URL连接

我们知道大多数应用程序都有一个“关于”的窗口,在该窗口中是一些关于程序的说明,以及作者介绍联系等。你如果有自己的Internet网站地址,那么就可以让用户直接点击“关于”窗口中的网址,自动调用浏览器与你站点连接,。本文就告诉你地Delphi程序中如何实现该功能。

1. 在你的“关于”窗口中添加一个标签Labell,其属性按如下设置:

Label1.Caption www.cfan.cn.net

Label1.Cursor crHandPoint

Label1.Color clolive

2. 在Labell的OnClick事件中输入以下代码:

var TempString:array[0..79] of char;

begin

StrPCopy(TempString

Labell.Caption);

OpenObject(TempString);

end;

3. 添加OnClick中的OpenObject过程

procedure TForm1.OpenObject(sObjectPath:PChar);

Begin

ShellExecute(O

NIl

sObjectPath

Nil

Nil

SW_NORMAL);

end;

4. 将ShellAPI添加到Uses中

完整的程序如下:

unit Unit1;

interface

uses

Windows

Messages

SysUtils

Classes

Graphics

Controls

Forms

Dialogs

StdCtrls

ShellApi;

type

TForml=class(TForm)

Labell:TLabel;

procedure LabellClick(Sender:TObject);

procedure OpenObject(sObjectPath:PChar);

private

{Private declarations}

public

{Public declarations}

end;

var

Forml:TForml;

implementation

{$R *.DFM}

procedure TForml..LabellClick(Sender:TObject);

var TempString:array[0..79] of char;

begin

StrPCopy(TempString

Labell.Caption);

OpenObject(TempString);

end;

procedure TForm1.OpenObject(sObjectPath:PChar);

Begin

ShellExecute(O

Nil

sObjectPath

Nil

Nil

SW_NORMAL);

end;

end.

该程序在Delphi3.0中调试通过

直觉不靠谱!使用移动应用分析的七个巧妙方法 屏蔽、挖角与丑闻,Uber的“创收神器”泡沫 蚁视科技发布会:三大产品与四大概念技术 盘点VS2015 预览版的5个新特性 低能的“智能” 你就是明星,第一届IBM RockStar正式启动! Kubernetes:Google分布式容器技术初体验 方法可以复制 AngularJS资源集合 那些年,微信走过的开放之路 从YunOS话阿里移动互联网云生态布局 Mobile First!苹果联合IBM发布10款企业级App iOS8.1.1越狱又惹急苹果!扒一扒黑客与苹果的斗争史! Firefox.html:用HTML重现Firefox UI Qt 5.4正式发布!引入WP,支持HTML5混合开发 2014智能硬件盘点第二弹!这次咱走暖心的 聚合数据资产,推动产业创新——2014中关村大数据日看大数据变现 拥抱开源:微软Windows 10宣布全面支持AllJoyn技术 改变App领域发展!友盟推“数据工场”战略,两款新品亮相 Cloudera正式登陆中国市场:与英特尔携手共助本土企业淘金大数据 Go 1.4正式发布 支持Android开发 【特别提醒】2014中国大数据技术大会门票全面告罄 不接受现场购票 累计4000万美元 Qualcomm在华投资5家公司 支持Android、WatchKit开发,全新RubyMotion 3面世! 快速开发移动医疗App!开源框架mHealhDroid 2014CVW﹒产业互联网大会解密未来20年 Nimble VR的收购与一封来自友商的感言 Google Earth API将在2015年12月彻底关闭 AR、美颜、机器人:计算机视觉库几乎无所不在 不激增,无爆收,年度最佳手游为80 Days带来了什么? 《近匠》机智云CEO黄灼:跨越智能硬件的“鸿沟” 智能手机≠智能家居!我们要的究竟是什么? ==>Server.Transfer 和 response.rdirect 有新打开页面和控制ie显示(工具栏、地址栏)的功能吗? 输出是怪码,为什么 錯誤代碼:0x80040E4D,錯誤信息:使用者登入失敗.(ASP中出現此錯誤,VB中是可以的),急!! 请问怎样在SQL中组织一临时表?(立即给分) 关于asp和SQLSERVER2000问题!郁闷之中..... 使用showModalDialog遇到的问题,再线等候!!!!!!!! 我使用jbuilder做的软件系统包括servlet,jsp,applet,打成了war包,可是却始终不能运行applet。 ***内核的networking问题*** 讨论:大家都用什么工具进行数据库比较 ? 我的鼠标提示刷新的速度不是很快,谁能给在下提供一些好的建议? 发短信的web service 请教一个服务端和客户端交互的问题? 高手帮忙 请问谁又对第三方控件imgscan.ocx操作的例子,发给我bit_hj@163.com。小弟不胜感激 肯请各位帮忙! 应该是简单问题,求高手帮忙,100分相送,绝不食言,一下午都没弄出来,太灰心了..... linux下,mysql数据库密码怎么找回?(在线等) 新手求救:关于8086和80386的中断类型号上的冲突? sleep函数 网络难题,跨网段传输 恢复数据库 有谁的信誉分比我低阿!!我送给他50分阿!! 谁能提供一个切实可用的“防止刷新页面重复提交表单”的方法 Web安装项目中的managed.msm和stdole.dll是何东东,何用?? java中字符串操作函数在哪?java中分解字串的函数(如asp中的:split)在哪个类中? 为何ACCESS出现“#已删除的”的记录? 欲交Java良师益友,愿伸援助之手请进。 关于复选框的初始问题(100份在线4:00-8:00 怎样在asp中把一个文件变成临时文件?? 求解奇怪问题,非常奇怪,分不够再加! 高分求IPMI开发资料 如何用Jtree将一个xml文件显示出来? 招聘系统分析员(北京) 深圳兼职电脑维护,哪个有兴趣? 求购 产品进销存源代码 VB or c# +SQL SERVER @@@@@@ 不送分而送现金!!!!! 谁能教我配置PHP服务器啊? 帮我看一下, 紧急求救!!!jsp的出错信息! 如何合并两个Image对象为一个Image对象 还有一个问题,帮帮我嘛! 高分请教高手!简单,看了你也是高手 代码编辑器的问题。 计论:大家都用什么工具进行数据库的比较? 我高中的班主任 请大家评评理,特别是JAVA版版主! 这样的SQL语句怎么写啊 form切换!VB.net里面如何在语句里调出别的FORM 如何用ADO连接EXCEL数据? 什么是上溯造型? 如何把console.write 输出很多内容保存到文件?thread.join()如何使用? 我想实现像网络蚂蚁那样在IE上点右键,把这个IE中的信息传送给我主程序,现在遇到两个问题! 控件的布局问题? 谁能告诉我关于人生的周记啊.急.要写事的 英语翻译We provide debt capacity estimates that are based on target ratings and novel financial flexibility measures that account for financial constraints due to the firm's debt capacityfinancial flexibility (财务柔性) 乐什么abb形式的 《我的人生 我来负责》周记应该怎么写?麻烦各位好人快一些,这个星期日就要写完啊! 跪求牛人帮写英语作文-------题目如下1 .How many years have you been learning English?What do you think of yourself as far as English learning is concerned?Are you satisfied with the progress you have made?Why or why not?2.Do you think it 墨西哥是南美洲还是北美洲? 有关龙飞凤舞的诗句诗的大致意思是想表达企业的兴旺 ccb是哪个银行简称 正方形ABCD的两条对角线交于点O,若三角形AOB的周长为12cm,则正方形的面积为( ) 李白豪放的诗句2句足以 CCB是什么的缩写 已知|a|=1,|b|=3,则|a+b|-|a-b|的值是多少? 设r>0,两圆(x-1)^2+(y+3)^2=r^2与x^2+y^2=16的位置关系A.相离 B.相交 C.内切或内含或相交 D.外切或外离 直()()ABB的词语速度说啊 追加分数 已知A+B=3 ,A*B=1,则A/B+B/A的值是多少重要的是过程 几个单词的意思...字典完全查不到啊啊啊啊trods、bostles、lichways、halterpaths、carneys、herepaths.(PS:应该都是一些路的名称,可能是作者自创的词所以查不到,求高人指点)原文是这样的Pilgrim paths, 直( )( )这个ABB式的词语怎么填? 我相对光做光速运动,那么我周围的时间是否会变慢?而我相对地面是静止的,那么我周围的时间又会不会有变化? 意思全部,没有带字典 ABB叠词:直()() 群蚁排衙的排是什么意思 什么歌的词有自由是方向 横竹下面土两寸是什么字 成都七中育才暑期数学七年级下册作业在哪买? 浊酒一杯家万里,燕然未勒归无计,表达戍边将士们怎样的思想感情? 以将开头的成语有什么?不是一声啊,是四声的 什么什么凉abb 求豪放诗, 民族资本主义与民族资产阶级有什么区别最好用简略的语言概述一下 为什么把蚂蚁比作雪球 在方程2x+3y-4+3kx-2ky+4k=0中 K为何值时,这个方程没有X项 K为何值时,这个方程没有y项K为何值时,这个方程没有常数项 wickford什么意思,字典里查不到 为什么把抱成黑团的蚂蚁比作雪球 求几首豪放的诗豪放 优美 抒情 都来点 武则天宫中的职位求武则天宫中的全部人的职位.有多少说多少.求求求求求求求 人教版语文小学六年级下册第二单元课文感受感是第二单元的课文感受 来个豪放的诗有教育意义,并写出意义 比如说这诗教育我门怎么样 要豪放的 不要太长 急用 宫中最小的职位是什么 开可以加什么偏旁部首? 写雪诗的哦 清朝的宫女有的称为大姑姑 是何意思 比起宫中的嬷嬷谁的职位大 abb式的词语 硬什么什么 闹什么什么 阴什么什么 轻什么什么 空什么什么 有关描写雪诗 当一个人拿着镜子以光速行驶这时这个人对着镜子里看到什么 描写扇子的句子或一段话 (我要写小说用,最好自己写!)谢了 生活周记(英语)我给范文,谁帮我翻译成英语?(一个人的生活很无奈,我到现在才后悔自己当初的选择.我为什么要选择一个人离开家,来到这个陌生的土地.开始,属于自己的寂寞生活...人生就 一个人手上拿着镜子以光速飞行,人的身体能耐住光速的前提下,这个人能不能看见自己的脸?3 美国八大河流如题,美国的八大重要河流 以骨气为话题的议论文不少与900字 征求某人的意见 英文 文学基础简述 关于作文骨气的好开头 下册,下册的地理复习提纲最好还有些重点选择题! 良(去掉上面的点)加部首组词 写骨气的作文有什么素材吗? 急 求AI大神.这个“菜”字的草字头的怎么对齐? 墨西哥是在北美洲吗我问的是墨西哥这个国家属于哪个洲, 有关于鸟的诗句及赏析 英语翻译the hypothesis that in painting the animal that resembles a chiru the cave artist painted a chiru with which she or he was familiar这句话怎么也翻译不过来了,希望牛人可以分析一下句子成分并给出中文解释.跪谢 一个正方形的对角线长是12CM,它的面积是12x12=144cm².一根圆柱形水管,内直径是20cm,水在管内流动的速度是每秒10cm,每秒流动的水是多少毫升?) 美国一女子梦游跌落地铁仅擦伤(图)美军将撤离阿富汗 价值70亿美元军需美国男孩携玩具枪街头把玩不肯放下 被美国扶贫粮食券遭诈领 部分受惠人折价调查称8成法国选民认为2017年大选日本最古老农村歌舞伎舞台将公演 祈祷日本明治奶粉决定停止在华销售 称市场澳大利亚一消防飞机救火时坠毁 驾驶员沙特暗示拒任“非常”是针对美国 恐与泰国咖啡摊主因招牌与星巴克标志雷同被俄外交部:叙之友文件旨在煽动破坏叙问日本导弹部队将现身宫古岛 拟搞大规模英国一新郎忘预约教堂 为遮丑谎称有炸外媒称叙政府将在24小时之内提交销毁澳洲国防部被指是林火“罪魁” 灾区官新加坡学者:“中国梦”与“东盟梦”兼中方贷款建设的科伦坡国际机场高速公路中国—东盟自贸区升级:服务业开放将成【热点观察】中国东南亚外交亟须战略自首届“亚洲美食节”在京举办 16国异德国称默克尔手机可能遭美国监听继续在梦想的道路上前行《等风来》就是作女鉴定指南舒马赫已做第二次手术目前状况已稍有改自己给自己鼓掌A股红盘收官破冰没戏 “雪鹰”空中救人鹤立基群文化客厅跃马争春看不懂与自己看市府大院今日首次开放参观市民将获赠手《怕》之题解南京红十字血液中心未来7个月,清凉门隧道会不定时封闭早日拿到律师证,成为律师积德虽无人见,行善自有天知小贝夫妻度假酒店爆炸罗本也同下榻于此尽量不开车,把道路让给更需要的人厅长晒计划,新年干些啥?市民迎新年叙利亚政府称反对派仍未组成日内瓦会议
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘