全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1782
推到 Plurk!
推到 Facebook!

如何用BCB寫(開/關)機?

答題得分者是:taishyang
lanfanra
一般會員


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

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-08-06 23:22:41 IP:203.70.xxx.xxx 未訂閱
1.請問如何用BCB撰寫一開機就執行我們的程式呢? 2.如何在程式結束時,順便關機呢?
taishyang
站務副站長


發表:377
回覆:5490
積分:4563
註冊:2002-10-08

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-08-06 23:41:22 IP:140.135.xxx.xxx 未訂閱
lanfanra您好:   您可以善用站上[搜尋]的功能    1.http://delphi.ktop.com.tw/topic.php?topic_id=31566 Service Application 範例程式 BY RaynorPao 相關討論 http://delphi.ktop.com.tw/topic.php?topic_id=26228 http://delphi.ktop.com.tw/topic.php?topic_id=26660 2.http://delphi.ktop.com.tw/topic.php?TOPIC_ID=18760 心得分享 : 以程式控制 Windows 2000 關機 BY bruce0211 順心 <>~我也是在學習的階段,回答的不好請您多多見諒與指教~ 發表人 -
lanfanra
一般會員


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

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-08-07 10:47:14 IP:61.66.xxx.xxx 未訂閱
還是不懂耶
taishyang
站務副站長


發表:377
回覆:5490
積分:4563
註冊:2002-10-08

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-08-07 20:45:05 IP:140.135.xxx.xxx 未訂閱
lanfanra您好:   哪裡不懂呢??程式您試過了嗎??    順心 <>~我也是在學習的階段,回答的不好請您多多見諒與指教~
lanfanra
一般會員


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

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-08-08 09:38:11 IP:61.66.xxx.xxx 未訂閱
真是不好意思,麻煩您這麼多次...先謝謝您啦! 我試了下面著個程式: void __fastcall TForm1::Button1Click(TObject *Sender) { HANDLE hToken; TOKEN_PRIVILEGES tkp; OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES|TOKEN_QUERY, &hToken);    LookupPrivilegeValue(Null, SE_SHUTDOWN_NAME, &tkp.Privileges[0].Luid); tkp.PrivilegeCount = 1; tkp.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED; AdjustTokenPrivileges(hToken, false, &tkp, 0, (PTOKEN_PRIVILEGES)Null, 0);    // 下面八個動作中任選一種執行 ....    // 一般關閉,關閉前會詢問其它執行中的程式是否存檔 //ExitWindowsEx(EWX_LOGOFF,0); // 登出, 重新登入使用者 //ExitWindowsEx(EWX_REBOOT,0); // 重新開機 //ExitWindowsEx(EWX_SHUTDOWN,0); // 結束作業系統,出現"您可以放心關機畫面" //ExitWindowsEx(EWX_POWEROFF,0); // 結束作業系統,並關閉電源(僅支援ATX 規格)    // 強制關閉,其它執行中的應用程式資料並不會被儲存 //ExitWindowsEx(EWX_LOGOFF | EWX_FORCE,0); // 登出, 重新登入使用者 //ExitWindowsEx(EWX_REBOOT | EWX_FORCE,0); // 重新開機 //ExitWindowsEx(EWX_SHUTDOWN | EWX_FORCE,0); // 結束作業系統 //ExitWindowsEx(EWX_POWEROFF | EWX_FORCE,0); // 結束作業系統,並關閉電源 (僅支援ATX 規格) }    但是組譯時  (PTOKEN_PRIVILEGES)Null,  這行都一直錯誤耶???而且只有登出, 重新登入使用者可使用而已耶也就是  ExitWindowsEx(EWX_LOGOFF,0);
taishyang
站務副站長


發表:377
回覆:5490
積分:4563
註冊:2002-10-08

發送簡訊給我
#6 引用回覆 回覆 發表時間:2003-08-08 14:51:18 IP:140.135.xxx.xxx 未訂閱
lanfanra您好:   請將Null改成NULL 順心 <>~我也是在學習的階段,回答的不好請您多多見諒與指教~
lanfanra
一般會員


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

發送簡訊給我
#7 引用回覆 回覆 發表時間:2003-08-08 20:51:57 IP:203.70.xxx.xxx 未訂閱
小弟實在太笨了,謝謝您啦!!大大...
系統時間:2024-05-05 22:32:46
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!