Wait

//   
//                              //   
//              Wait            //   
//             2010.7.2         //   
//             Haiou327         //   
//                              //   
//   
program Wait;   
  
{$APPTYPE CONSOLE}   
{$R *.res}   
uses   
  SysUtils, windows, shellapi;   
var   
  i, d: integer;   
  //hOutput: THandle;   
  hToken: THandle;   
  tkp: TOKEN_PRIVILEGES;   
  ReturnLength: DWord;   
//------------------------------------------------------------------------------   
  
function ClearSreen: boolean;   
const  
  BUFSIZE = 80 * 25;   
var   
  Han, Dummy: LongWord;   
  buf: string;   
  coord: TCoord;   
begin   
  Result := false;   
  Han := GetStdHandle(STD_OUTPUT_HANDLE);   
  if Han <> INVALID_HANDLE_VALUE then   
  begin   
    if SetConsoleTextAttribute(han, FOREGROUND_RED or FOREGROUND_GREEN   
      or   
      FOREGROUND_BLUE) then   
    begin   
      SetLength(buf, BUFSIZE);   
      FillChar(buf[1], Length(buf), ' ');   
      if WriteConsole(han, PChar(buf), BUFSIZE, Dummy, nil) then   
      begin   
        coord.X := 0;   
        coord.Y := 0;   
        if SetConsoleCursorPosition(han, coord) then   
          Result := true;   
      end;   
    end;   
  end;   
end;   
//-----------------------------------------------------------   
  
function IsNumberic(Vaule: string): Boolean; //判断Vaule是不是数字   
var   
  i: integer;   
begin   
  result := true; //设置返回值为 是（真）   
  Vaule := trim(Vaule); //去空格   
  for i := 1 to length(Vaule) do //准备循环   
  begin   
    if not (Vaule[i] in ['0'..'9']) then //如果Vaule的第i个字不是0-9中的任一个   
    begin   
      result := false; //返回值 不是（假）   
      exit; //退出函数   
    end;   
  end;   
end;   
//------------------------------------------------------------------------------   
  
begin   
  { TODO -oUser -cConsole Main : Insert code here }   
  if ParamCount = 1 then   
  begin   
    if not IsNumberic(Paramstr(1)) = true then   
    begin   
      Writeln('参数必须为数字类型!');   
      exit;   
    end;   
    Writeln('倒计时 ' + Paramstr(1) + ' 秒 开始');   
    sleep(1000);   
    ClearSreen;   
      //writeln(Paramstr(1));   
    d := strtoint(Paramstr(1));   
    for i := d downto 1 do  
    begin   
      ClearSreen;   
      ClearSreen;   
      writeln(inttostr(i));   
      sleep(1000);   
          //exit;   
    end   
  end   
  else if ParamCount = 2 then   
  begin   
    if (IsNumberic(Paramstr(1)) = true)   
      then   
    begin   
      if (UpperCase(Paramstr(2)) = '-S') then   
      begin   
          //---------------   
        Writeln('倒计时 ' + Paramstr(1) + ' 秒关闭计算机!');   
        sleep(1000);   
        ClearSreen;   
      //writeln(Paramstr(1));   
        d := strtoint(Paramstr(1));   
        for i := d downto 1 do  
        begin   
          ClearSreen;   
          ClearSreen;   
          writeln(inttostr(i));   
          sleep(1000);   
          //exit;   
        end;   
        if (not OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_ALL_ACCESS or TOKEN_QUERY, hToken)) then   
        begin   
          exit;   
        end;   
        LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid);   
        tkp.PrivilegeCount := 1;   
        tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;   
        ReturnLength := 0;   
        AdjustTokenPrivileges(hToken, FALSE, tkp, 0, nil, ReturnLength);   
        if (GetLastError() <> ERROR_SUCCESS) then   
        begin   
          exit;   
        end;   
        shellexecute(0, 'open', 'cmd', ' /c pecmd shut', nil, 0);   
        if (not ExitWindowsEx(EWX_SHUTDOWN, 0)) then //关机   
        begin   
          exit;   
        end;   
          //--------------   
          //writeln('SHUTDOWN');   
          //readln;   
      end   
      else if (UpperCase(Paramstr(2)) = '-R') then   
      begin   
          //---------------   
        Writeln('倒计时 ' + Paramstr(1) + ' 秒重启计算机!');   
        sleep(1000);   
        ClearSreen;   
      //writeln(Paramstr(1));   
        d := strtoint(Paramstr(1));   
        for i := d downto 1 do  
        begin   
          ClearSreen;   
          ClearSreen;   
          writeln(inttostr(i));   
          sleep(1000);   
          //exit;   
        end;   
        if (not OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_ALL_ACCESS or TOKEN_QUERY, hToken)) then   
        begin   
          exit;   
        end;   
        LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid);   
        tkp.PrivilegeCount := 1;   
        tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;   
        ReturnLength := 0;   
        AdjustTokenPrivileges(hToken, FALSE, tkp, 0, nil, ReturnLength);   
        if (GetLastError() <> ERROR_SUCCESS) then   
        begin   
          exit;   
        end;   
        shellexecute(0, 'open', 'cmd', ' /c pecmd shut r', nil, 0);   
        if (not ExitWindowsEx(EWX_REBOOT, 0)) then //重启   
        begin   
          exit;   
        end;   
           //writeln('REBOOT');   
           //readln;   
      end   
      else  
      begin   
        writeln('                                     ');   
        writeln('" ' + Paramstr(2) + ' " 为无效参数命令!');   
        //readln;   
      end   
    end   
    else  
    begin   
    writeln('                                        ');   
      writeln('" ' + Paramstr(1) + ' " 为无效参数命令!');   
      //readln;   
    end   
  end   
  else  
  begin   
    SetConsoleTitle('Wait     无忧论坛_2010.7.2');   
      //hOutput := GetStdHandle(STD_OUTPUT_HANDLE);   
      //SetConsoleTextAttribute(hOutput, 13);   
    Writeln('使用方法');   
    Writeln('例：  Wait 10     <延时10秒> ');   
    Writeln('      Wait 10 -r  <延时10秒重启> ');   
    Writeln('      Wait 10 -s  <延时10秒关机> ');   
    Writeln('                                 ');   
    Writeln('                            bbs.wuyou.com 2010.7.2');   
    readln;   
  end;   
end.