Q&A

  • 입력받은날짜로 윈도우시스템 날짜 변경 가능한가요?

질문에 대답해 주신 고수님께 감사드리며...
이번물음은 ....
화면에서 날짜...년, 월 , 일 을 입력받아서...
그것으로 윈도우즈에 설정된 시스템 날짜를 변경할수 있나요?

있다면 좀 알려주세요.
2  COMMENTS
  • Profile
    kim 2002.02.15 03:18
    아래함수를 사용하시면 가능할 겁니다.

    함수는 어디선가??에서 퍼왔구요..

    function TForm1.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;
  • Profile
    박영아 2002.02.15 03:29

    많은 도움이 되었습니다.
    올리자 마자 바로 답변이 오니 넘 기분이 좋네요.
    감사 감사. ^^