>lcTemp = forcepath(sys(2015)+'.tmp', 'd:\aaa') >Strtofile('x',m.lcTemp) >Adir(arrFile,m.lcTemp) >Erase (m.lcTemp) >ltNow = (Ctot(Transform(Dtoc(arrFile[3],1),'@R ^9999/99/99')+' '+arrFile[4])) > >SetSystemDate(m.ltNow) > >Function SetSystemDate > Lparameters tdDate > Declare Integer SetLocalTime In win32api String @ lpTime > Declare Integer GetLocalTime In win32api String @ lpTime > Local lpCurrent, lcNewTime > lpCurrent = Space(40) > GetLocalTime(@lpCurrent) && save current > > lcNewTime = Num2Word(Year(m.tdDate))+; > Num2Word(Month(m.tdDate))+; > Num2Word(Dow(m.tdDate))+; > Num2Word(Day(m.tdDate))+; > Substr(m.lpCurrent,9) > > SetLocalTime(@lcNewTime) > SetLocalTime(@lcNewTime) >EndFunc > >Function Num2Word > Lparameters tnDecimal > Return Chr(m.tnDecimal%256)+Chr(Int(m.tnDecimal/256)) >EndFunc > >>
> lcNewTime = Num2Word(Year(m.tdDate))+; > Num2Word(Month(m.tdDate))+; > Num2Word(Dow(m.tdDate))+; > Num2Word(Day(m.tdDate))+; > Substr(m.lpCurrent,9) >>set the date of the remote PC and the time of this one (lpcurrent) so ,how can I set also the time of the remote pc ?