線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1812
推到 Plurk!
推到 Facebook!

請問如何用BCB寫一個更改windows的時間日期啊?

尚未結案
lanfanra
一般會員


發表:48
回覆:51
積分:19
註冊:2003-08-06

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-01-03 11:01:26 IP:61.66.xxx.xxx 未訂閱
我想要用BCB寫一個將Windows日期與時間更設定,請問可行嗎?
g6101
高階會員


發表:22
回覆:129
積分:110
註冊:2002-06-15

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-01-03 23:25:19 IP:163.29.xxx.xxx 未訂閱
lanfanra 您好:
請查詢 M$DN or Platform SDK
關鍵字「SetSystemTime」有完整的範例(Win32 API)
自己動手做看看,有問題再討論     
        
RaynorPao
版主


發表:139
回覆:3622
積分:7025
註冊:2002-08-12

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-01-04 01:10:25 IP:61.221.xxx.xxx 未訂閱
引言: 我想要用BCB寫一個將Windows日期與時間更設定,請問可行嗎?
lanfanra 你好: 請參考以下的範例程式碼 < class="code"> SYSTEMTIME st; st.wYear=2005; st.wMonth=1; st.wDay=2; st.wHour=3; st.wMinute=4; st.wSecond=5; SetLocalTime(&st); -- Enjoy Researching & Developing --
------
-- 若您已經得到滿意的答覆,請適時結案!! --
-- 欲知前世因,今生受者是;欲知來世果,今生做者是 --
-- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 --
lanfanra
一般會員


發表:48
回覆:51
積分:19
註冊:2003-08-06

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-01-05 08:50:13 IP:61.66.xxx.xxx 未訂閱
RaynorPao大哥您好: 您寫的程式我執行起來win2000的日期與時間都不會更改耶?
cwh
一般會員


發表:4
回覆:9
積分:2
註冊:2002-10-02

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-01-06 00:14:18 IP:218.168.xxx.xxx 未訂閱
HANDLE hToken; /* process token */ TOKEN_PRIVILEGES tp; /* token provileges */ TOKEN_PRIVILEGES oldtp; /* old token privileges */ DWORD dwSize = sizeof (TOKEN_PRIVILEGES); LUID luid; /* now, set the SE_SYSTEMTIME_NAME privilege to our current * process, so we can call SetSystemTime() */ if (!OpenProcessToken (GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES | TOKEN_QUERY,&hToken)) ShowMessage("OpenProcessToken failed"); if (!LookupPrivilegeValue (NULL, SE_SYSTEMTIME_NAME, &luid)) CloseHandle (hToken); ZeroMemory (&tp, sizeof (tp)); tp.PrivilegeCount = 1; tp.Privileges[0].Luid = luid; tp.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED; /* Adjust Token privileges */ if (!AdjustTokenPrivileges (hToken, FALSE, &tp, sizeof(TOKEN_PRIVILEGES),&oldtp, &dwSize)) CloseHandle (hToken); /* Set time */ SYSTEMTIME stCurrentTime; stCurrentTime.wYear = 2005; stCurrentTime.wMonth=1; stCurrentTime.wDay=5; stCurrentTime.wHour=23; stCurrentTime.wMinute=45; stCurrentTime.wSecond=5; SetLocalTime(&stCurrentTime); /* disable SE_SYSTEMTIME_NAME again */ AdjustTokenPrivileges (hToken, FALSE, &oldtp, dwSize, NULL, NULL); if (GetLastError() != ERROR_SUCCESS) CloseHandle (hToken); CloseHandle (hToken);
系統時間:2024-04-24 16:47:18
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!