谈Delphi下
谈Delphi下Internet的编程技巧(一)
作者:lyboy99
E-mail:lyboy99@sina.com
Delphi带了很多的Internet应用编程控件,这使得我们开发Internet的应用程序可以轻松些,下面我将逐步介绍一些关于Internet下应用程序编程技巧，这些技巧都是一些细微的方面,但是它却可以给你的应用程序添加重要的功能,将使你开发Internet下的应用程序事半功倍。
说过开场旁白后，首先介绍：设置系统默认浏览器和系统默认电子邮件收发软件。
1.获得默认的internet浏览器地址函数:
下面的函数是通过读取注册表的设置后,得到默认Internet的浏览器所在地址
function GetDefaultShellHTTP : string;
var
reg : TRegistry;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_CLASSES_ROOT;
if Reg.KeyExists('httpshellopencommand') then
begin
Reg.OpenKey('httpshellopencommand',false);
Result:=Reg.ReadString('');
end
else
Result:='';
Reg.Free;
end;
2.设置internet浏览器
procedure SetDefaultShellHttp(CmdLine : string);
var
reg : TRegistry;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_CLASSES_ROOT; //注册表的地址：
 网友评论：（评论内容只代表网友观点，与本站立场无关！） |
- GOOGLE广告
阅读排行
|
