delphi create Http link on your form

There are at least 3 ways to create an http link on your form, i'll describe 2 of them here.
 
Terms of Agreement:   
By using this article, you agree to the following terms...   
1) You may use this article in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.   
2) You MAY NOT redistribute this article (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.   
3) You may link to this article from another website, but ONLY if it is not wrapped in a frame. 
4) You will abide by any additional copyright restrictions which the author may have placed in the article or article's description.
First, you need to create a button/label/whatever, then you'll have this procedure...

procedure Tform1.Button1Click(Sender: TObject);
const
csOLEObjName = 'InternetExplorer.Application';
var
IE : Variant;
begin
IE := CreateOleObject( csOLEObjName );
IE.Visible := true;
IE.Navigate('http://www.mzsoft.cn);
end;

the unit that u'll need for this application should be automatically added to the Uses if not, just add Uses ComOBJ there but this only works if you have internet explorer installed.
the SECOND method should work regardless of your browser:

ShellExecute(0,'open','http://www.mzsoft.cn,'','',SW_SHOWNORMAL);

for this one, you'll need to have Uses ShellAPI
the third method, consists of simply downloading a component that has http link, and adding it to your form, but that's up to you to look for one
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值