如何使用DELPHI来实现WINDOWS自动关机?(100分)

kangxy · 1999-12-22

ExitWindowsEx(EWX_POWEROFF,0);

wul · 1999-12-22

ExitWindowsEx(EWX_POWEROFF,0); OK!

wjiachun · 1999-12-22

100分给kangxy!  

www · 1999-12-22

还有me!

kangxy · 1999-12-22

thanks

mikecool · 1999-12-22

大家见者有分吧(怎么象是在分东西一样),不过这个就是用ExitWindowsEx,你可以用 Win32 Help来看

wjiachun · 1999-12-22

确实，好像这不值100分！

Goinwind · 1999-12-22

晚了,完了   _*

tomzhou · 1999-12-23

强制关机 ExitWindowsEx(EWX_SHUTDOWN or EWX_FORCE,0); 强制重启 ExitWindowsEx(EWX_REBOOT OR EWX_FORCE,0); 重新登录 ExitWindowsEx(EWX_LOGOFF,0);

Keyes · 1999-12-24

我做了一个例子: program AutoShutDown; uses   Windows,   ShellAPI,   Sysutils,   Messages; {$R *.RES} var   WinClass:TWndClassA;   Handle:hwnd;   Inst,Button1, Label1, Edit1: Integer;   Msg: TMsg;   tid: TNotifyIconDataA;   sdt:tdatetime;   timerid:integer;   hFont: Integer; const   AppName='AutoShutDown';   st='定时关机';   About=st+' 1.0, Keyes.chen@263.net, Keyes 1999.10.23';   gjs='设定关机时间'; procedure SetShutdownTime; var   Textlength: Integer;   Text: PChar;i:tdatetime; begin   TextLength := GetWindowTextLength(Edit1);     GetMem(Text, TextLength + 1);     GetWindowText(Edit1, Text, TextLength + 1);     try      i:=Strtodatetime(Text);      if i<=now then      begin      MessageBox(handle,'不对吧!太早了.','错误',mb_ok or MB_ICONERROR);      exit;      end;      sdt:=i;      timerid:=Settimer(handle,1000,1000,nil);      Showwindow(handle,sw_hide);      lstrcpy (tid.szTip,pchar(st+'  关机时间:'+Datetimetostr(sdt)));      Shell_NotifyIcon (nim_modify, @tid);     except      Killtimer(handle,timerid);      Messagebox(handle,pchar('关机时间设定错误'#13#10#13#10+'格式因该是:'+Datetimetostr(now)),AppName,Mb_ok or MB_ICONINFORMATION);     end;     FreeMem(Text, TextLength + 1); end; function WindowProc(hWnd, uMsg, wParam, lParam: Integer): Integer; stdcall; var pt:tpoint;pm:Hmenu; begin   result:=0;   Case uMsg of   wm_timer:   begin     if now>=sdt then     begin     Killtimer(handle,timerid);     ExitWindowsEx(EWX_SHUTDOWN or EWX_Force, 0); //    PostMessage(handle,wm_Destroy,0,0);     end;   end;   wm_User:   begin     Case lparam of     WM_LBUTTONDBLCLK:     begin     showwindow(handle,sw_restore);     setforegroundwindow(handle);     end;     wm_LButtonDown,wm_RButtonDown:     begin     GetCursorPos (pt);     pm := CreatePopupMenu;     AppendMenu (pm,0,Ord ('S'),gjs);     AppendMenu (pm, 0, Ord ('A'), '关于...');     AppendMenu (pm, mf_Separator, 0, Nil);     AppendMenu (pm, 0, Ord ('E'), '退出');     SetForegroundWindow (handle);     if TrackPopupMenu (pm, tpm_BottomAlign or tpm_RightAlign, pt.x,{GetDeviceCaps(dc,Vertres)}pt.y, 0, handle, Nil) then                  SetForegroundWindow (handle);     DestroyMenu (pm)     end;   end;   end;   wm_Destroy:   begin      Shell_NotifyIcon (nim_Delete, @tid);      Killtimer(handle,timerid);      halt;   end;   wm_Command:   begin      if (lParam = Button1) then begin SetshutdownTime;exit end;      Case Loword(wParam) of          Ord ('A'): MessageBox (0, About, AppName, mb_ok or MB_ICONINFORMATION);          Ord ('E'): PostMessage (handle, wm_Close, 0, 0);          Ord ('S'):          begin          Showwindow(handle,sw_restore);          end;      end;   end;   end;   Result := DefWindowProc(hWnd, uMsg, wParam, lParam); end; begin   { ** Register Custom WndClass ** }   if FindWindow (AppName, Nil) <> 0 then begin   Messagebox(handle,'已经有一个AutoShutDown运行了',AppName,mb_ok or MB_ICONWARNING);   halt(0);   end;   Inst := hInstance;   with WinClass do   begin     style              := CS_CLASSDC or CS_PARENTDC;     lpfnWndProc        := @WindowProc;     hInstance          := Inst;     hbrBackground      := color_btnface + 1;     lpszClassname      := AppName;     hCursor            := LoadCursor(0, IDC_ARROW);   end;   RegisterClass(WinClass);   Handle := CreateWindowEx(WS_EX_WINDOWEDGE, AppName, 'AutoShutDown 1.00',                            WS_VISIBLE {or WS_SIZEBOX} or WS_CAPTION or WS_SYSMENU,                            283, 238, 325, 65, 0, 0, Inst, nil);   Button1 := CreateWindow('Button', 'OK', WS_VISIBLE or WS_CHILD or BS_PUSHLIKE or BS_TEXT,                            236, 8, 75, 20, handle, 0, Inst, nil);   Label1 := Createwindow('Static', '', WS_VISIBLE or WS_CHILD or SS_LEFT,                8, 12, 80, 13, Handle, 0, Inst, nil);   Edit1 := CreateWindowEx(WS_EX_CLIENTEDGE, 'Edit', Pchar(Datetimetostr(now)), WS_CHILD or WS_VISIBLE or                           WS_BORDER {or ES_PASSWORD}, 88, 8, 141, 21, Handle, 0, Inst, nil);   hFont := CreateFont(-12, 0, 0, 0, 500, 0, 0, 0, GB2312_CHARSET,                       OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY,                       DEFAULT_PITCH or FF_DONTCARE, '宋体');   if hFont <> 0 then   begin     SendMessage(Button1, WM_SETFONT, hFont, 0);     SendMessage(Label1, WM_SETFONT, hFont, 0);     SendMessage(Edit1, WM_SETFONT, hFont, 0);   end;   SetWindowText(Label1, pchar(gjs+':'));   SetFocus(Edit1);   UpdateWindow(Handle);      tid.cbSize           := sizeof (tid);      tid.Wnd              := handle;      tid.uID              := 1;      tid.uFlags           := nif_Message or nif_Icon or nif_Tip;      tid.uCallBackMessage := wm_User;      tid.hIcon            := LoadIcon (hInstance, 'MAINICON');      lstrcpy (tid.szTip,st);      Shell_NotifyIcon (nim_Add, @tid);   while(GetMessage(Msg, Handle, 0, 0)) do   begin     TranslateMessage(msg);     DispatchMessage(msg);   end; end.

Jams · 1999-12-24

>>

rss · 1999-12-24

备注: win95,win98适用，Win NT ,Win2000不行，要先取得权限.

www · 1999-12-24

hehe,Keyes干脆来了一个程序，不错! windows2000的一个问题，c++ build 4,d4装不进去了，

sonie · 2000-01-07

BOOL ExitWindowsEx(   UINT uFlags,       // shutdown operation   DWORD dwReserved   // reserved );   Parameters uFlags:参数   值：        EWX_LOGOFF:关闭所有程序以其它用户身份登录。        EWX_POWEROFF：关闭电源，但机器必须支持关闭。NT中必须有  SE_SHUTDOWN_NAME 权限。        EWX_REBOOT：重启 NT中必须有SE_SHUTDOWN_NAME 权限。        EWX_SHUTDOWN：关闭系统到“你可以安全的关闭计算机”NT中必须有    SE_SHUTDOWN_NAME 权限。 下列值也可选       EWX_FORCE ：系统不改送 WM_QUERYENDSESSION 和 WM_ENDSESSION 消息.所有未保存的数据将丢失。        EWX_FORCEIFHUNG： Windows NT 5.0关闭程序如果它们不响应WM_QUERYENDSESSION 或 WM_ENDSESSION 消息. 如果设置了EWX_FORCE它将被忽略。 dwReserved：保留。

searching · 2000-01-07

我从MSDN中找到了一段关机的程序，是用VB写的。改成了Delphi的。 unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     procedure Button1Click(Sender: TObject);   private     { Private declarations }     procedure AdjustToken;   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.DFM} procedure TForm1.AdjustToken(); var   hdlProcessHandle : Cardinal;   hdlTokenHandle : Cardinal;   tmpLuid : Int64;   tkpPrivilegeCount : Int64;   tkp : TOKEN_PRIVILEGES;   tkpNewButIgnored : TOKEN_PRIVILEGES;   lBufferNeeded : Cardinal;   Privilege : array[0..0] of _LUID_AND_ATTRIBUTES; begin          hdlProcessHandle := GetCurrentProcess;          OpenProcessToken(hdlProcessHandle,                          (TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY),                           hdlTokenHandle);          // Get the LUID for shutdown privilege.          LookupPrivilegeValue('', 'SeShutdownPrivilege', tmpLuid);          Privilege[0].Luid := tmpLuid;          Privilege[0].Attributes := SE_PRIVILEGE_ENABLED;          tkp.PrivilegeCount := 1;   // One privilege to set          tkp.Privileges[0] := Privilege[0];          // Enable the shutdown privilege in the access token of this          // process.          AdjustTokenPrivileges(hdlTokenHandle,                                False,                                tkp,                                Sizeof(tkpNewButIgnored),                                tkpNewButIgnored,                                lBufferNeeded);  end; procedure TForm1.Button1Click(Sender: TObject); begin      AdjustToken;      ExitWindowsEx((EWX_SHUTDOWN Or EWX_FORCE Or EWX_REBOOT), $FFFF); end; end.

searching · 2000-01-07

我的这个对于Nt也好用，给我多一点分好不好？

amo · 2000-01-07

呵呵,真是人才济济;-)

walala · 2000-01-10

老问题

Keyes · 2000-01-10

结束.

如何使用DELPHI来实现WINDOWS自动关机?(100分)

hdl18

Unregistered / Unconfirmed

kangxy

Unregistered / Unconfirmed

wul

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

www

Unregistered / Unconfirmed

kangxy

Unregistered / Unconfirmed

mikecool

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

Goinwind

Unregistered / Unconfirmed

tomzhou

Unregistered / Unconfirmed

Keyes

Unregistered / Unconfirmed

Jams

Unregistered / Unconfirmed

rss

Unregistered / Unconfirmed

www

Unregistered / Unconfirmed

sonie

Unregistered / Unconfirmed

searching

Unregistered / Unconfirmed

searching

Unregistered / Unconfirmed

amo

Unregistered / Unconfirmed

walala

Unregistered / Unconfirmed

Keyes

Unregistered / Unconfirmed

Similar threads