调用“关闭Windows”窗口

调用“关闭Windows”窗口: "To programmatically shut down Windows, you can use the ShutdownWindows method.
[codes=delphi]uses ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var
shell: Variant;
begin
shell := CreateOleObject('Shell.Application');
shell.ShutdownWindows;
end;[/codes]
Tags - delphi , 源码 , 关机"