// PC의 날자와 시간을 변경한다.

// sDate : 년월일 8자리

// sTime : 시분초 6자리 입력

procedure TForm1.prcReplaceDateTime( sDate:string; sTime:string );

var

iYYYY, iMM, iDD, iHH, iNN, iSS : integer;

Present : TDateTime;

SystemTime : TSystemTime;

begin

iYYYY := strtoint(copy(sDate,1,4));

iMM := strtoint(copy(sDate,5,2));

iDD := strtoint(copy(sDate,7,2));

iHH := strtoint(copy(sTime,1,2));

iNN := strtoint(copy(sTime,3,2));

iSS := strtoint(copy(sTime,5,2));

Present := EncodeDate( iYYYY, iMM, iDD ) + EncodeTime( iHH, iNN, iSS, 0 );

DateTimeToSystemTime( Present, SystemTime );

SetLocalTime( SystemTime );

end;



이렇게 하시면 바뀝니다....



저 같은 경우는 프로그램 시작시마다

서버에서 시간을 받아 바꾸도록 해 놨습니다.



==============================================================================



구자균 wrote:

> 안녕하세요.

> 시스템의 날자와 시간을 바꾸고 싶습니다.

> 도스에서는 date하고 바꿔주면은 되는데..

> 델파이에슨 어떻게..

> 함수들 보니까. 가저오는 것만 있고 수정해주는 것은 없던데..

> 읽어주셔서 대단히 감사합니다.

>