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

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

备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘