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

在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中调试通过

Swift最酷炫的七大功能 微信开发者大会讲师介绍:柳峰与你一起玩转公众平台应用开发 TIOBE 2014年7月编程语言排行榜:仅发布1月,Swift进Top 20! 艾格拉斯CEO王双义:手游自研引擎的荣耀之路 以招行为例,深圳云软黄榕振谈微信公众帐号企业应用高级开发 来自前苹果高管Heidi Roizen的经验之谈 【短讯】Dropbox、微软OneDrive打不开,国内用户该如何应对? 5分钟弄懂Docker! RakNet:被OculusVR收购的跨平台游戏网络引擎 Qualcomm业务拓展副总裁沈劲:智能终端的延伸 苹果发布Xcode 6 Beta 3,Swift迎来重大更新! Linkedln技术高管Jay Kreps:Lambda架构剖析 《近匠》极光推送:聚焦巨头无法快速转身的领域 Babylon.js:拥有微软背景的开源3D游戏引擎 EMC 2014存储布局及十大新技术要点 腾讯推出零流量地图 离线实现公交步行导航 Atmel 1.4亿美元收购Newport Media 巩固物联网产品线 微信大会首批议程出炉 深度解析招行服务号是如何炼成的? 指尖上的阅读:MIT开发盲人专用设备FingerReader 从桌面到移动:异构计算翻天覆地的技术变革 《近匠》Blueware何晓阳,不做中国的New Relic 全球最杰出的14位程序员 Microsoft、RedHat、IBM、Docker等公司加入Kubernetes社区 Intel携手三星、博通等 建立物联网联盟OIC 一周消息树:微软半年内将终止对Win 7、Office 2010 SP1等产品的支持 深度神经网络DNN的多GPU数据并行框架 及其在语音识别的应用 浪潮通软GSP将打造开放平台 吸引更多ISV加入生态系统 国外安全产品再遭信任危机 安全产品国产化步伐加快 最终幻想XIV的重生--SQUARE ENIX《最终幻想14》制作人吉田直树介绍 如何打造百万级自然增长的微信HTML5应用 听邵海杨聊聊1000+台服务器背后的故事 win2000英文版操作系统下如何编辑中文文档?打什么补丁? 多线程问题,头晕!请高手帮忙! winrout的端口映射问题? 女儿经转载 如何实现使IE的回退按钮disabled 使用C#开发asp.net时对OO的一点不明白 vbscript调用perlscript(第一次写作,跟贴有分,欢迎交流) 怎样获得polyline曲线上点的坐标? MDI窗口如何关闭所有的子窗口? 求server2000下创建一个虚拟目录分配权限限制用户使用大小的API 想用VB制作一个标签打印系统。急! 为什么可用分不增加了? 请问怎样得到表的列数?如何得到某个列的名称? 有做过门禁系统的近来谈谈 谈的热烈的话我还要加分的:) 想做一个负责连数据库的代码模块,但不知道C#中模块的格式、与怎么调用?请赐教! 关于ODBC API中USHORT方式绑定的问题 有办法保证我的asp程序只能在一台指定的服务器上运行吗? 怎样将该段VB的代码传为C#(有关调用winAPI)? 关于Remoting的配置问题,高手帮忙! 关于安装系统的问题? 各位见笑了,对office不熟,在powerpoint里更改了母版并保存过了以后,怎么再改为不用母版? 高分讨教:如何控制用户的行为 高难度问题!!!~~~~~ 打开首页时,弹出另一窗口! 请问这个问题该怎么处理!十万火急!谢谢! 急:一个.Net 写DLL及调DLL的问题,请大家帮忙!(在线等候......可以再加分msn:w.hua@ynmail.com,qq:25857100) 救命啊 查找某个目录下是否有某个文件 邮箱命名的问题??? 怎样在一个窗口控件中显示两条自由报表的记录? 紧急求助USB带宽 请问哪里能下到《inside the c++ object model》英文版啊,谢谢 新手提问,大侠莫抛弃我,谢谢,请往里看。 求教:我想拦截CreateProcess()的调用,并取出参数是否可行???? 这是什么病毒 如何指定发送端口 如何设置treeview的scrollbar? 请问各位,谁写过一个程序的整个文档,小弟很急,想参考一下。不知是否可以。谢谢了! 打算过年后跳槽,大家帮帮忙看看我这水平能拿多少?来者有分 天灾 +人祸100分求救 各位再请看看: ccur(922337203685477.30)=922337203685477.25 ??? 用JAVA做APPLET程序的朋友请进!!! 如何使应用程序(基于对话框)在状态栏里不可见 急,求救!在线等!请帮忙,谢谢 SQL Server 的客户端问题? 在线等; 好好的程序不能运行了 ,提示:不能创建宏 怎样打开一个数据库在单文档的视中显示数据??(我没有没结过的贴) 调用外部程序的问题 偶去吃饭了!大家去吗?我请客好了:) 大家能不能介绍一下四川的迈普 The boy is two years 空than his brother.A 、 2 years older B 、2 years elder请问这里为什么选A不选B?还有表语和定语的概念是什么?区别又是什么》》? 我喜欢站在高处欣赏风景 怎么翻译 英语我不会咋办?请大师指导! His brother is younger than the other boys in his class.(改为同义句)His brother is _______ _______ _______ in his class. 写作方法 英文怎么说 我不会英语咋办 单词能背下来 就是 其他的全不会 选择题1 The boy is than his brother. A one year elder B one year older 英语不会怎么办? 如果读英语没效果怎么办 关于堕落天使的玄幻小说谁知道关于堕落天使的小说?要文笔很好的...狂神和堕落血天使已经看过了...还有其他的吗? 怎么办那,英语不会做, 英语翻译What should I do next june if i not work hard now 堕落天使是谁 英语高手进.帮我起个英文名.我叫曾雅雯.谁帮我起个比较接近的英文名.谢拉. Live as if you are going to die tomorrow Study as if you will never die! B车堕落天使怎么样连续开了两个金丝缕中两个15天堕落天使,第一次中绝版B啊!电信一Q369360666 会起英文名字的进我是女生、想请高手帮我起个英文名字.要可爱一点的.因为是走可爱路线的哈、别人都说我是菟宝宝、汗汗、水瓶座的、不要那种很常见的、想要独特一点的、我姓李、最 英语定语从句和宾语从句的关系词我不会用怎么办 堕落天使什么意思 英语高手进,帮忙起个英文名欧洛,奥洛.类似中文读音. I have thought it would be an excellent rule to live each day as if we should die tomorrow.的语法 威海学英语哪里好 英语翻译智力题也行! “外籍教师应聘登记表”用英语怎么说 There are some easy English questions.(改为单数句) 你认为威海的天气怎么样?用英语怎么说? 给我一些小学英语的重点的知识,特急! 是a pair of glass 还是a pair of glasses “中国工商银行山东省临沂市兰山区支行”用英语怎么说谁能告诉我“中国工商银行山东省临沂市兰山区支行”如何翻译成英语急切知道 致命访客英语怎么说 I used to wear a pair of 是glass还是glasses bad 的反义词是啥? 顺便来访用英语怎么说 He wants to buy A.two pair gloves B.two pair of glove C.two pairs of gloves 应该选哪个? 英语, 我很盼望下周日你的来访用英语怎么说 文字翻译英语 阳台 英语不会做,帮下忙, 晚上来访请走正门 用英语怎么说?在线等 请各位达人帮帮忙,谢过了. his and warm green nice sweater is 连词成句 2010年12月英语六级模拟跪求2010年12月英语六级的模拟题,最好带听力. 不会英语咋办 是一道题:the reporter went to the sea with severval ____to look for the fishing boat (fish) money not happy,more money happy.No money not happy,more money happy. 不会英语怎么办 went fishing 中的fish为什么要ing? Money _____ can't make you happyA.ever B.lonely C.alone D.just 帮我起个英文名字,我的名字叫(常浩然),英语达人们说说看我的英文名字应该叫什么.财富值全都给你了,有劳大神费费心.请大家说说你们给我起的名字的意思,或者说你们为什么给我起这个名 last weenkend i went ()and() with my parents.ashopping,fishing b.shopped.fished c toshop,to fish it was his grandma's birthday变一般疑问句怎么变 哪里有小学英语的基础知识? 写一篇关于“我的学习榜样”的英语作文 It's my backpack.改成一般疑问句 walk的现在分词 如何提高做事效率的英语作文 It is his backpack改否定句 nice的反义词是什么? The boy is _______ than his brother.A.two yearThe boy is _______ than his brother.A.two years older.B.two years elder.C.two-year older.D.two-year elder. 我的爸爸用英语怎么说? nice的反义词
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘