Symbian 如何如何调用Wap浏览器

void CallWapBrower()const
 {
  TInt KBrowerUid=0x10008D39; 
  TApaTaskList stakList(iCoeEnv->WsSession()); //通信对话
  TApaTask task=stakList.FindApp(TUid::Uid(KBrowerUid));//查找当前任务列表
  TUid id(TUid::Uid(KBrowerUid));
  if(task.Exists())
  {
   HBufC* param=HBufC::NewLC(10);
   param->Des().Copy(_L("4 1"));
   HBufC8* msg=HBufC8::NewLC(param->Length());
   msg->Des().Append(*param);
   task.SendMessage(id,*msg);
   CleanupStack::PopAndDestroy(2);
  }
  else
  {
       _LIT(KDefURL,"4 http://wap.baidu.com/");
      RApaLsSession appWapSession;
      User::LeaveIfError(appWapSession.Connect());//连接通信会话
      TThreadId threadId;
      appWapSession.StartDocument(KDefURL,id,threadId);//启动Wap浏览器
      appWapSession.Close();
  }  
 }