delphi 如何修改桌面快捷方式

Question

 我想修改遨游的目标参数 "D:\Program Files\Maxthon2\Maxthon.exe" "http://www.baidu.com/" 对COM不太熟悉，望高手发个例子给我参考，谢谢了。。 

Answer 1

http://www.informit.com/articles/article.aspx?p=26940&seqNum=4

Answer 2

http://www.baidu.com/  ？
改首页？

Answer 3

是的话给你代码：function TFrmStarPage.ShowStartPage:string;
var
  reg:TRegistry;
begin
  reg:=TRegistry.Create;
  reg.RootKey:=HKEY_CURRENT_USER;
  reg.OpenKey('SoftWare\Microsoft\Internet Explorer\Main',true);
  result:=reg.ReadString('Start Page');
  Reg.CloseKey;
  reg.Free;
end;procedure TFrmStarPage.SetStartPage(Const Page:string);
var
  reg:TRegistry;
begin
  reg:=TRegistry.Create;
  reg.RootKey:=HKEY_CURRENT_USER;
  reg.OpenKey('SoftWare\Microsoft\Internet Explorer\Main',true);
  reg.WriteString('Start Page',page);
  Reg.CloseKey;
  reg.Free;
end;procedure TFrmStarPage.FormShow(Sender: TObject);
begin
 EdOldPage.Text:=ShowStartPage;
end;procedure TFrmStarPage.BtnSetClick(Sender: TObject);
begin
  if trim(EDStarPage.Text) = '' then
  begin
    SetStartPage('about:blank');
  end
  else
    SetStartPage(EDStarPage.Text);
end;

Answer 4

楼主的意思是改起始页，可以通过修改参数达成
http://hi.baidu.com/shilyx/blog/item/5b4a19ce0d565f38b700c843.html