函数，能自动向IE网址输入栏中填写下网址，能用的

求一个函数，能自动向IE网址输入栏中填写上网址，能用的。
求一个函数，能自动向IE网址输入栏中填写上网址，能用的。


比如，一运行，自动打开ie，并自动的在ie浏览器网址输入框中输入http://www.sina.com.cn 

就这样，求一个函数，



[解决办法]
uses ShellAPI,ComObj;
procedure OpenInIE(aURL: string);
var IE: Variant;
begin
IE := CreateOleObject('InternetExplorer.Application');
IE.Visible := true;
IE.Navigate(aURL);
end;
aURL 是网址，记得uses里一定加上ShellAPI,ComObj