VPF::обьясните код - Форум программистов

Darkmaster

Дата 13.6.2006, 21:19 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 148
Регистрация: 22.11.2005

Репутация: нет
Всего: нет

помогите разобратся что тут к чему:

Код


program shut;
{$APPTYPE CONSOLE}

uses
  SysUtils,
  Windows;

var
  logoff: Boolean = False;
  reboot: Boolean = False;
  warn: Boolean = False;
  downQuick: Boolean = False;  
  cancelShutdown: Boolean = False;
  powerOff: Boolean = False;
  timeDelay: Integer = 0;

function HasParam(Opt: Char): Boolean;
var
  x: Integer;
begin
  Result := False;
  for x := 1 to ParamCount do
    if (ParamStr(x) = '-' + opt) or (ParamStr(x) = '/' + opt) then Result := True;  
end;  

function GetErrorstring: string;
var  
  lz: Cardinal;  
  err: array[0..512] of Char;  
begin
  lz := GetLastError;  
  FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, nil, lz, 0, @err, 512, nil);  
  Result := string(err);
end;  

procedure DoShutdown;
var  
  rl, flgs: Cardinal;
  hToken: Cardinal;  
  tkp: TOKEN_PRIVILEGES;  
begin  
  flgs := 0;
  if downQuick then flgs := flgs or EWX_FORCE;
  if not reboot then flgs := flgs or EWX_SHUTDOWN;
  if reboot then flgs := flgs or EWX_REBOOT;
  if poweroff and (not reboot) then flgs := flgs or EWX_POWEROFF;  
  if logoff then flgs := (flgs and (not (EWX_REBOOT or EWX_SHUTDOWN or EWX_POWEROFF))) or  
      EWX_LOGOFF;  
  if Win32Platform = VER_PLATFORM_WIN32_NT then  
  begin  
    if not OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,  
      hToken) then  
      Writeln('Cannot open process token. [' + GetErrorstring + ']')  
    else  
    begin
      if LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid) then  
      begin  
        tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;  
        tkp.PrivilegeCount           := 1;  
        AdjustTokenPrivileges(hToken, False, tkp, 0, nil, rl);  
        if GetLastError <> ERROR_SUCCESS then  
          Writeln('Error adjusting process privileges.');  
      end  
      else  
        Writeln('Cannot find privilege value. [' + GetErrorstring + ']');
    end;  
   
  end;  
  //     else begin  
  ExitWindowsEx(flgs, 0);  
  //     end;  
end;  

begin
powerOff := True;
DoShutdown;
end.

--------------------

GeekTV - интернет-телевидение для гиков

Yanis

Дата 13.6.2006, 21:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Таааккк.... Может быть вопросы задавать начнёшь? Или тебе полностью рассказать от того, что такое apptype console до того как в Windows проиходит загрузка исполнительных файлов...

--------------------

*щёлк*

Sunvas

Дата 13.6.2006, 22:00 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

Код запустить не пробовал?? Запусти, посмотри что к чему.

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Albinos_x

Дата 13.6.2006, 23:34 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108

Sunvas,
вот видимо по этому и спрашивает smile

не охота мне сейчас поисками заниматься....воть... да простят меня модераторы smile

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Mechanic

Дата 14.6.2006, 08:37 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 228
Регистрация: 5.5.2006
Где: Kharkov, Ukraine

Репутация: 6
Всего: 7

А я объясню.. smile

Этот код просто выключит комп.

Добавлено @ 08:39

Цитата(Jey_k @ 13.6.2006, 23:34

)

Выключение и перезагрузка в ХР, Напомните с привелегиями(покороче)

Это сообщение отредактировал(а) Mechanic - 14.6.2006, 08:41

--------------------

Darkmaster

Дата 14.6.2006, 11:45 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 148
Регистрация: 22.11.2005

Репутация: нет
Всего: нет

Конкретно не понятно вото что:

Код


function HasParam(Opt: Char): Boolean;    
var    
  x: Integer;    
begin    
  Result := False;    
  for x := 1 to ParamCount do    
    if (ParamStr(x) = '-' + opt) or (ParamStr(x) = '/' + opt) then Result := True;    
end;

и вот это:

Код


begin    
    if not OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,    
      hToken) then    
      Writeln('Cannot open process token. [' + GetErrorstring + ']')    
    else    
    begin    
      if LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid) then    
      begin    
        tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;    
        tkp.PrivilegeCount           := 1;    
        AdjustTokenPrivileges(hToken, False, tkp, 0, nil, rl);    
        if GetLastError <> ERROR_SUCCESS then    
          Writeln('Error adjusting process privileges.');    
      end    
      else    
        Writeln('Cannot find privilege value. [' + GetErrorstring + ']');

Вот

--------------------

GeekTV - интернет-телевидение для гиков

Alexeis

Дата 14.6.2006, 14:51 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Первая Функция проверяет присутствует ли символ opt в параметрах командной строки.
Вторая получает специальные привелегии необходимые для завершения работы Windows XP или NT

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »