新開發一<<定時自動關机系統2002>>,可關閉任何一款Windows,詳情請進.... (0分)

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
新作相關說明:http://www.delphibbs.com/delphibbs/dispq.asp?lid=1479082
<<總個附件大約有將近7MB>>故請確認您的郵箱是正確的.且是可以收下這麼大郵件的.
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
******************************************************
* 下載請到 Http://sydan.51.net/Re-Win2k-help.htm *
******************************************************
本人最近開發有一<<定時自動關機系統2002>>,可對任何一款Windows進行操作,且包話繁体
英文兩種字體,,,,進多個Windows平臺測試,完全正常運做,有誰需要嗎?
完全正版且免費!
需要者請在此留下您的E-Mail,系統將馬上寄到!謝謝
**請新浪的用戶注意(@sina.com),大部份您的郵箱我無法傳送到,請檢查您的郵箱,以確保不浪費時間**
特別說明:首先謝謝大家的支持,幫助,建意!
如果您看了本人的陋作后感覺需要改進的地方或者哪里覺得有意義大家一起談
論,那麼還望煩請您盛上!讓大家一起分享,在此我代表大家向您致謝!
請大家不要隨意說我牛,或者了不起!本人發佈的意思主要是讓作品大家一起分享
她給我們帶來的方便!別無它意!
因工作繁忙,本帖將不再發行!如需下載請到 Http://sydan.51.net 中下載即可
請不要誤會.
謝謝!
******************************************************
* 下載請到 Http://sydan.51.net/Re-Win2k-help.htm *
******************************************************
% 謝謝大家在前一次的支持,因為您的支持而使本系統在 %
% 很多網站上得到正常發展,現已有很多網站有本系統提 %
% 下載,同時也收到不少使用本系統的網友的來信,在此 %
% 本人再次感謝各位好友的幫助,建議,批評.. %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
新作相關說明:http://www.delphibbs.com/delphibbs/dispq.asp?lid=1479082
<<總個附件大約有將近7MB>>故請確認您的郵箱是正確的.且是可以收下這麼大郵件的.
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

谢谢,麻烦寄到这里:quanta01234@sina.com

发一份给我看看，好吗？
bxrwm@sina.com

我也想看看行吗？
麻烦给我一份，在此谢过你了sydan!
我的Email是：wyy@uplife-it.com

好无聊
就那几行代码也用那长的名

给我看看吧？ zebingyang@163.com

jumberyin@21cn.com

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1061902

mlwu@nanhai.gd.cn

lyd_yl@163.net

ysg@uplife-it.com

ll710915@163.net

也给我吧 wings23@163.com
3x~

无非是 用个 timer 然后
ExitWindowsEx(EWX_FORCE,0);
ExitWindowsEx(EWX_SHUTDOWN,0);
吹什么吹啊！？？？

偶给一个可以关任何Windows系统的函数给大家，大家自己写去：
procedure tfrmmainie.ShutDown;
const
SE_SHUTDOWN_NAME = 'SeShutdownPrivilege';
// Borland forgot this declaration
var hToken : THandle;
tkp : TTokenPrivileges;
tkpo : TTokenPrivileges;
zero : DWORD;
yl:integer;
begin
yl:=1;
if yl= 1 then
// we've got todo
a whole buch of things
begin
zero := 0;
if not OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then
begin
MessageBox( 0, 'Exit Error', 'OpenProcessToken() Failed', MB_OK );
Exit;
end;
// if not OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken)
// SE_SHUTDOWN_NAME
if not LookupPrivilegeValue( nil, 'SeShutdownPrivilege' , tkp.Privileges[ 0 ].Luid ) then
begin
MessageBox( 0, 'Exit Error', 'LookupPrivilegeValue() Failed', MB_OK );
Exit;
end;
// if not LookupPrivilegeValue( nil, 'SeShutdownPrivilege' , tkp.Privileges[0].Luid )
// SE_SHUTDOWN_NAME
if not LookupPrivilegeValue( nil, 'SeShutdownPrivilege' , tkp.Privileges[ 0 ].Luid ) then
begin
MessageBox( 0, 'Exit Error', 'LookupPrivilegeValue() Failed', MB_OK );
Exit;
end;
// if not LookupPrivilegeValue( nil, 'SeShutdownPrivilege' , tkp.Privileges[0].Luid )
tkp.PrivilegeCount := 1;
tkp.Privileges[ 0 ].Attributes := SE_PRIVILEGE_ENABLED;
AdjustTokenPrivileges( hToken, False, tkp, SizeOf( TTokenPrivileges ), tkpo, zero );
if Boolean( GetLastError() ) then
begin
MessageBox( 0, 'Exit Error', 'AdjustTokenPrivileges() Failed', MB_OK );
Exit;
end // if Boolean( GetLastError() )
else
ExitWindowsEx( EWX_FORCE or EWX_SHUTDOWN, 0 );
end // if OSVersion = 'Windows NT'
else
begin
// just shut the machinedo
wn
ExitWindowsEx( EWX_FORCE or EWX_SHUTDOWN, 0 );
end;
// else
end;

谢谢，给我一个。dir1493@hotmail.com

wataki@163.com

To:dir1493
Sorry!
對不起,您的郵箱地址dir1493@hotmail.com我無法傳送到!
您能再次提供一個嗎?
非常非常對不起!
Sydan

lsbfrank@163.com

hnzqw@xinhuanet.com

谢谢：dodo121@fm365.com