談Delphi下Internet的編程技巧(一)

談Delphi下

談Delphi下Internet的編程技巧(一)
作者:lyboy99

E-mail:[email protected]

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浏覽器