박종성 wrote:

> 안녕하세요!

>

> 시스템의 날짜를 바꾸려면 어떻게 해야지요?

>

> 아시는 분 꼭 알려주세요.

>

> 그럼 즐거운 하루 되세요 *^_^*



// 파라미터: 설정할 날짜와 시간의 TDateTime 형 값

// 리턴값: Boolean값으로 True 이면 설정 성공 False 이면 실패

function SetPCSystemTime(tDati: TDateTime): Boolean;

var

tSetDati: TDateTime;

vDatiBias: Variant;

tTZI: TTimeZoneInformation;

tST: TSystemTime;

begin

GetTimeZoneInformation(tTZI);

vDatiBias := tTZI.Bias / 1440;

tSetDati := tDati + vDatiBias;

With tST do

begin

wYear := StrToInt(FormatDateTime('yyyy', tSetDati));

wMonth := StrToInt(FormatDateTime('mm', tSetDati));

wDay := StrToInt(FormatDateTime('dd', tSetDati));

wHour := StrToInt(FormatDateTime('hh', tSetDati));

wMinute := StrToInt(FormatDateTime('nn', tSetDati));

wSecond := StrToInt(FormatDateTime('ss', tSetDati));

wMilliseconds := 0;

end;

SetPCSystemTime := SetSystemTime(tST);

end;