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

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

跨平台进行到底:Facebook发布Unity SDK 云薪资管理初创公司ZenPayroll:年处理薪资超1亿美元,获多位知名CEO力挺 Twitter开源Summingbird:近原生编码下整合批处理与流处理 亚马逊推Matchbook 欲将顽固纸质书读者拉向电子书 Broadcom为可穿戴设备推新开发平台WICED 再战江湖 New Kodak还牛不牛? 郭理靖:公、私有云架构异同点与难点 美化代码的15个代码语法高亮工具 你所不知道的虚拟化和云计算 [开源推荐]Effeckt.css项目:CSS交互动画应用集锦 针对Google Glass应用的四大UX设计原则及典型应用 Google收了摩托罗拉,微软收了诺记,黑莓又将花落谁家? 十亿月PV网站秘诀:Reddit自失败中总结的25条经验 粉碎5个NoSQL流言:各司其职,NoSQL的出现比关系型更早 豌豆荚发力移动游戏平台,推出SDK 2.0 BlackBerry Jam Asia 2013即将在香港隆重召开,免费门票限量提供 小米发布会高潮迭起:米3、电视、Hugo大牛 谷歌放在Windows上的特洛伊木马:Chrome Apps应用平台 解析:Google基于数据驱动的招聘面试程序 决战“缓存”之巅:微软 vs. 亚马逊 雪中送炭:十大前沿移动应用开发工具 高通智能手表Toq都用到了哪些技术? 研发周报:修改一行SQL代码 性能提升了100倍 2013年NoSQL就业趋势分析 鲜为人知的静态、命令式编程语言——Nimrod 高性能Web应用打造攻略:扩展过程中20个最大的绊脚石 开源项目Marathon:让你的数据中心像谷歌一样运行 精益化运营:10款移动统计分析工具推荐 移动建站工具(一):分秒钟将Web网站移动化 移动周报:小米的“倚天屠龙记” 智能手表是个尴尬的产品 屏幕缺陷一枪毙命 100分紧急求救,SQL Server 2000日志问题 为什么三层结构下某些小数不能保存? 100分求助,关于图形处理 庆祝菜鸟程序员联盟成立,特来散分~~ 请问如何设置wingate的server端? 请帮忙给一个能在短时间内做成一个网站(功能很简单)的思路 如何创建一个DialogBar 有关目录问题。 .................寻找最佳方法::『关于关键字检索』(参与有分!) 有谁做过小波分析的分解及重构程序 口误(爆笑) 救命阿 急!在线等 如何补捉MSCOM控件的错误消息? 如何查看dll中的函数,不是引出函数 有没有初恋(第一次)的对象就成了自己的伴侣的? 在线等待,马上送分:怎样将Query查询的数据集全部删除,数据库SQL中的数据也删除 iostream.h 和 iostream的区别 我新建了一个dialog,我想让他在程序一开始出现 为什么在win xp 下安装vc7.0后不能导入图片资源? 请问用C++ 如何打开数据库 请教高手有关C#的DLL的使用???? 我想找一个比较好的菜单系统,哪有呢? iis5.0中的调试能不能做到象在pws中一样轻松? 在线等待,马上送分:怎样将Query查询的数据集全部删除,数据库SQL中的数据也删除 大家一定遇到过同样的问题!有好办法吗? 如何扩充linux的硬盘空间? 关于JBuilder7的注册码和key 一点小问题,请帮帮忙 请教:哪边有详细介绍使用VBSQL对DB库API编程的?? 急!!!我用push模式把dataset的值在运行时,动态赋给crystal report, 在有.net的开发环境中运行没有任何问题,可是在只有发布后,执行 在线等待,马上送分:怎样将Query查询的数据集全部删除,数据库SQL中的数据也删除 linux下的图形处理程序,哪里可找到? EJB菜鸟级问题,我有分可捐赠,那位要请在这里说 报错的原因(Invalid cursor state) infopower有没有for BCB5的呢??哪里可以下载?? 奇怪的现象! 关于接口 请大家提供方案 同志们我想问的是高程中考的是标准C还是C++ SQL查询结果问题 在Delphi中我如何得到,打印机任务个数? 刚上来散分了 安装softice后,机器不能启动了!!!!!! datawindow的edit有editchanged事件,即一改变内容就触发,我想将这个事件加在multilineedit控件里,自定义事件要选择哪个EventID? 在存储过程中如何使用表名变量? 一点小问题,请帮帮忙 菜鸟求助 用VC对WORD文档进行一些操作,高分求救 Suspicious pointer conversion 是什么警告啊? 有哪位高手知道微软提供的的简繁互转的组件是哪个,在线等待,高分送 紧急求助!!既可以选择还可以接受用户输入的下拉选框!!万分感谢!!
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘