Someone

			RWsSession iWsSession;
			User::LeaveIfError( iWsSession.Connect() );
			//iLog.Write(_L(""));
			TApaTaskList taskList( iWsSession );
			//TApaTask task = taskList.FindByPos(0);


			TApaTask* task= new (ELeave) TApaTask(taskList.FindByPos(0));
			CleanupStack::PushL(task);
			CApaWindowGroupName* wgName=
				CApaWindowGroupName::NewLC(iWsSession,task->WgId());
			TUid uid = wgName->AppUid();
			TPtrC taskCaption = wgName->Caption();
			{
				iLog.Write(_L("program on top:  "));
				iLog.Write(taskCaption);
				iLog.Write(_L("program on top uid:  "));
				iLog.Write(uid.Name());