我想用API修改系统时间，有个问题请教？？？(100分)

liyonggang · 2004-02-04

如何取出datetimepicker中的值（年、月、日），分别赋给字符变量S1、S2、S3 最好给出代码，我是初学者，谢谢！

miaofeng · 2004-02-04

可以用procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);来取出Date中的年、月、日，Delphi中的例子： procedure TForm1.Button1Click(Sender: TObject); var   Present: TDateTime;   Year, Month, Day: Word;  begin   Present:= Now;   DecodeDate(Present, Year, Month, Day);   Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month '     + IntToStr(Month) + ' of Year ' + IntToStr(Year); end;

andy263 · 2004-02-04

var  s1, s2, s3: Word; begin  DecodeDate(DataTimerPicker.Date, s1, s2, s3);

app2001 · 2004-02-04

var   hh,mm,ss,ms:word; begin   DecodeTime(DateTime,hh,mm,ss,ms);   hx:=hh;   mx:=mm;   sx:=ss; end; 设置系统时间 change the system time? {1.} {   For Windows 9X/ME/NT/2000/XP:   The SetLocalTime function fails if the calling process does not have   the SE_SYSTEMTIME_NAME privilege. This privilege is disabled by default.   Use the AdjustTokenPrivileges function to enable this privilege. } function SetPCSystemTime(dDateTime: TDateTime): Boolean; const   SE_SYSTEMTIME_NAME = 'SeSystemtimePrivilege'; var   hToken: THandle;   ReturnLength: DWORD;   tkp, PrevTokenPriv: TTokenPrivileges;   luid: TLargeInteger;   dSysTime: TSystemTime; begin   Result := False;   if (Win32Platform = VER_PLATFORM_WIN32_NT) then   begin     if OpenProcessToken(GetCurrentProcess,       TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then     begin       try         if not LookupPrivilegeValue(nil, SE_SYSTEMTIME_NAME, luid) then Exit;         tkp.PrivilegeCount := 1;         tkp.Privileges[0].luid := luid;         tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;         if not AdjustTokenPrivileges(hToken, False, tkp, SizeOf(TTOKENPRIVILEGES),           PrevTokenPriv, ReturnLength) then           Exit;         if (GetLastError <> ERROR_SUCCESS) then         begin           raise Exception.Create(SysErrorMessage(GetLastError));           Exit;         end;       finally         CloseHandle(hToken);       end;     end;   end;   DateTimeToSystemTime(dDateTime, dSysTime);   Result := Windows.SetLocalTime(dSysTime); end; {************************************************************} {2.} procedure TForm1.Button1Click(Sender: TObject); var   SystemTime: TSystemTime;   NewTime, NewDate: string; begin   NewTime := '13:58:00';   NewDate := '02.02.2001'; // or '02/02/01'   DateTimeToSystemTime(StrToDate(NewDate) + StrToTime(NewTime), SystemTime);   SetLocalTime(SystemTime);   // Tell windows, that the Time changed!   PostMessage(HWND_BROADCAST, WM_TIMECHANGE, 0, 0); // * end; {  Windows 2000 and later: An application should not broadcast  the WM_TIMECHANGE message because the system will broadcast  this message when the application changes the system time. } {************************************************************} {3.} function SetSystemTime(DateTime: TDateTime): Boolean; { (c) by UNDO } var   tSetDati: TDateTime;   vDatiBias: Variant;   tTZI: TTimeZoneInformation;   tST: TSystemTime; begin   GetTimeZoneInformation(tTZI);   vDatiBias := tTZI.Bias / 1440;   tSetDati := DateTime + 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;   Result := Windows.SetSystemTime(tST); end; 这些资料，你看看吧

liyonggang · 2004-03-25

多人接受答案了。

我想用API修改系统时间，有个问题请教？？？(100分)

liyonggang

Unregistered / Unconfirmed

miaofeng

Unregistered / Unconfirmed

andy263

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

liyonggang

Unregistered / Unconfirmed

Similar threads