Питание компьютера, запуск и завершение Windows

Power off

2017-10-08T05:42:43+07:00

Code:

{ **** UBPFD *********** ****

>> Power off (Убивает процессы)

Зависимости: Windows

Автор: DeMoN-777, DeMoN-777@yandex.ru, Санкт-Петербург

***************************************************** }

procedure Shutdown2;

var

hToken: THandle;

tkp: _TOKEN_PRIVILEGES;

DUMMY: PTokenPrivileges;

DummyRL: Cardinal;

begin

DUMMY := nil;

if not OpenProcessToken(

GetCurrentProcess(),

TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,

hToken

) then

raise TShutdownEx.Create('OpenProcessToken failed');

if (not LookupPrivilegeValue(nil, 'SeShutdownPrivilege',

tkp.Privileges[0].Luid)) then

raise TShutdownEx.Create('LookupPrivilegeValue failed');

tkp.PrivilegeCount := 1;

tkp.Privileges[0].Attributes := $0002; //SE_PRIVILEGE_ENABLED = $00002

AdjustTokenPrivileges(hToken, FALSE, tkp, 0, Dummy, DummyRL);

if (GetLastError() <> ERROR_SUCCESS) then

raise TShutdownEx.Create('AdjustTokenPrivileges failed');

if (not ExitWindowsEx(EWX_SHUTDOWN or EWX_FORCE, 0)) then

raise TShutdownEx.Create('ExitWindowsEx failed');

end;

Подробнее...

Включение и выключение устройств ввода/вывода

2017-10-08T05:37:08+07:00

Иногда может возникнуть необходимость в выключении на время устройств ввода - клавиатуры и мыши. Например, это неплохо сделать на время выполнения кода системы защиты от копирования, в играх, или в качестве "наказания" при запуске программы по истечению срока ее бесплатного использования ... . Однако наилучшее ее применение - отключение клавиатуры и мыши на время работы демонстрационки, основанной на воспроизведении записанных заранее перемещений мышки и клавиатурного ввода (см. об этом отдельный раздел этой книги). Это элементарно сделать при помощи API:

Подробнее...

Выключение питания ATX коpпуса из-под DOS

2017-10-08T05:36:15+07:00

Code:

mov ax,5301h

sub bx,bx

int 15h

jb stop

mov ax,530eh

sub bx,bx

int 15h

jb stop

mov ax,5307h

mov bx,0001h

mov cx,0003h

int 15h

stop: int 20h

Код прислал Колесников Сергей Александрович [mailto:rovd@inbox.ru]

Закрытие програм при Logoff/Shutdown

2017-10-08T05:25:54+07:00

Code:

unit Unit1;

{©Drkb v.3}

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,

Dialogs;

type

TForm1 = class(TForm)

procedure FormCreate(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

private

FSystemShutdown: Boolean;

procedure WMQueryEndSession(var Message: TWMQueryEndSession); message WM_QUERYENDSESSION;

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

function SetPrivilege(PrivilegeName: String; AEnabled: Boolean): Boolean;

var

TPPrev, TP: TTokenPrivileges;

Token: THandle;

dwRetLen: DWORD;

begin

Result := False;

if OpenProcessToken(GetCurrentProcess,

TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, Token) then

try

if LookupPrivilegeValue(nil, PChar(PrivilegeName),TP.Privileges[0].LUID) then

begin

TP.PrivilegeCount := 1;

if AEnabled then

TP.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED

else

TP.Privileges[0].Attributes := 0;

dwRetLen := 0;

Result := AdjustTokenPrivileges(Token, False, TP,

SizeOf(TPPrev), TPPrev, dwRetLen);

end;

finally

CloseHandle(Token);

end

else

RaiseLastOSError;

end;

procedure TForm1.FormCreate(Sender: TObject);

const

SE_SHUTDOWN_NAME = 'SeShutdownPrivilege';

begin

FSystemShutdown := False;

if not SetPrivilege(SE_SHUTDOWN_NAME, True) then

RaiseLastOSError;

end;

procedure TForm1.WMQueryEndSession(var Message: TWMQueryEndSession);

begin

inherited;

Message.Result := 0;

AbortSystemShutdown(nil);

FSystemShutdown := True;

Close;

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

ShowMessage('Bla...bla...bla!');

if FSystemShutdown then

InitiateSystemShutdown(nil, nil, 0, True, False);

end;

end.

Автор: Александр (Rouse_) Багель

Как выключить компьютер с любой версией Windows?

2017-10-08T05:35:31+07:00

exitkernel очень радикальный способ потому что не сохраняются настройки рабочего стола, ini файлы и другие установки, зато быстро

Есть способ намного лучше: ф-ия SHExitWindowsEx из shell32.dll

С неё всё good. Это запуск из-под WinExec()

Подробнее...

Как выключить, перезагрузить или завершить Windows?

2017-10-08T05:16:59+07:00

Code:

function MyExitWindows(RebootParam: Longword): Boolean;

var

TTokenHd: THandle;

TTokenPvg: TTokenPrivileges;

cbtpPrevious: DWORD;

rTTokenPvg: TTokenPrivileges;

pcbtpPreviousRequired: DWORD;

tpResult: Boolean;

const

SE_SHUTDOWN_NAME = 'SeShutdownPrivilege';

begin

if Win32Platform = VER_PLATFORM_WIN32_NT then

begin

tpResult := OpenProcessToken(GetCurrentProcess(),

TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,

TTokenHd);

if tpResult then

begin

tpResult := LookupPrivilegeValue(nil,

SE_SHUTDOWN_NAME,

TTokenPvg.Privileges[0].Luid);

TTokenPvg.PrivilegeCount := 1;

TTokenPvg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;

cbtpPrevious := SizeOf(rTTokenPvg);

pcbtpPreviousRequired := 0;

if tpResult then

Windows.AdjustTokenPrivileges(TTokenHd,

False,

TTokenPvg,

cbtpPrevious,

rTTokenPvg,

pcbtpPreviousRequired);

end;

Result := ExitWindowsEx(RebootParam, 0);

end;

// Example to shutdown Windows:

procedure TForm1.Button1Click(Sender: TObject);

begin

MyExitWindows(EWX_POWEROFF or EWX_FORCE);

end;

// Example to reboot Windows:

procedure TForm1.Button1Click(Sender: TObject);

begin

MyExitWindows(EWX_REBOOT or EWX_FORCE);

end;

Подробнее...

Как заблокировать компьютер?

2017-10-08T05:46:59+07:00

Code:

procedure LockPC;

var OldValue: LongBool;

begin

SystemParametersInfo(97, Word(Bool), @OldValue, 0);

WinExec(PChar('rundll32 mouse,disable'), SW_SHOW);

WinExec(PChar('rundll32 keyboard,disable'), SW_SHOW);

end;

Подробнее...

Как завершить сеанс работы или перезагрузить Windows?

2017-10-08T05:14:09+07:00

Для этого нам потребуются определённые привелегии:

Code:

function SetPrivilege(aPrivilegeName : string;

aEnabled : boolean ): boolean;

var

TPPrev,

TP : TTokenPrivileges;

Token : THandle;

dwRetLen : DWord;

begin

Result := False;

OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES

or TOKEN_QUERY, @Token );

TP.PrivilegeCount := 1;

if( LookupPrivilegeValue(nil, PChar( aPrivilegeName ),

TP.Privileges[ 0 ].LUID ) ) then

begin

if( aEnabled )then

TP.Privileges[0].Attributes:= SE_PRIVILEGE_ENABLED;

else

TP.Privileges[0].Attributes:= 0;

dwRetLen := 0;

Result := AdjustTokenPrivileges(Token,False,TP,

SizeOf( TPPrev ),

TPPrev,dwRetLen );

end;

CloseHandle( Token );

end;

function WinExit( iFlags : integer ) : boolean;

// возможные флаги:

// EWX_LOGOFF

// EWX_REBOOT

// EWX_SHUTDOWN

begin

Result := True;

if( SetPrivilege( 'SeShutdownPrivilege', true ) ) then

begin

if( not ExitWindowsEx( iFlags, 0 ) )then

begin

Result := False;

end;

SetPrivilege( 'SeShutdownPrivilege', False )

end

else

begin

Result := False;

end;

Как перевести компьютер в Stend-by или Hibernate?

2017-10-08T05:51:56+07:00

Функция SetSuspendState приостанавливает работу системы за счет отключения питания.

В зависимости от параметра Hibernate,

система либо переходит в состояние приостановки (сна), либо в спящий режим.

Подробнее...

Как перевести монитор в режим stand-by?

2017-10-08T05:49:31+07:00

Автор: Kecvin S. Gallagher

Если монитор поддерживает режим Stand by, то его можно программно перевести в этот режим. Данная возможность доступна на Windows95 и выше.

Чтобы перевести монитор в режим Stand by:

Подробнее...

Как предотвратить Shut Down?

2017-10-08T05:23:49+07:00

Сообщение wm_queryendsession посылается всем приложениям когда пользователь выбирает завершение сеанса или когда приложение вызывает

Функция ExitWindows. Если какое-либо приложение возвращает ноль, сеанс не завершается.

Система перестает отправлять сообщения WM_QUERYENDSESSION, как только одно приложение

возвращать нуль. После обработки этого сообщения система отправляет сообщение WM_ENDSESSION с

Параметр wParam задает результаты сообщения WM_QUERYENDSESSION.

Подробнее...

Как проверить, заблокирована ли рабочая станция?

2017-10-08T05:47:50+07:00

Code:

function IsWorkstationLocked: Boolean;

var

hDesktop: HDESK;

begin

Result := False;

hDesktop := OpenDesktop('default',

0, False,

DESKTOP_SWITCHDESKTOP);

if hDesktop <> 0 then

begin

Result := not SwitchDesktop(hDesktop);

CloseDesktop(hDesktop);

end;

Как программно вазвать окно Завершение работы Windows?

2017-10-08T05:08:38+07:00

Code:

SendMessage (FindWindow ('Progman', 'Program Manager'), WM_CLOSE, 0, 0);

Как узнать заряженность батарей?

2017-10-08T05:25:04+07:00

Code:

procedure TForm1.Button1Click(Sender: TObject);

var

SysPowerStatus: TSystemPowerStatus;

begin

GetSystemPowerStatus(SysPowerStatus);

if Boolean(SysPowerStatus.ACLineStatus) then

begin

ShowMessage('System running on AC.');

end

else

begin

ShowMessage('System running on battery.');

ShowMessage(Format('Battery power left: %d percent.', [SysPowerStatus.BatteryLifePercent]));

end;

Как узнать о завершении работы Windows

2017-10-08T05:20:44+07:00

Если текст в Memo1 был изменен, то программа не разрешает завершения сеанса Windows.

Подробнее...

Как узнать о переключении сессии

2017-10-08T05:59:53+07:00

Как правило, приложение не требуется получать уведомления при переключении сеанса происходить. Тем не менее, если приложение должно быть в курсе, когда его рабочий стол

течение, оно может зарегистрировать для уведомлений переключателя сеанса. Приложения, которые доступ к последовательному порту или другому общему ресурсу на компьютере должен

Проверьте на это. Для регистрации уведомления используйте следующую функцию:

Подробнее...

Компонент PowerControl

2017-10-08T05:17:51+07:00

Вопрос: А как реализовать в одном компоненте такие функции как выключение компьютера, перезагрузка, завершение сеанса работы пользователя, Eject CD, выключение питания монитора и т.д.? Ответ: предлагаем посмотреть следующий пример ...

Подробнее...

Отключить команду Завершение работы

2017-10-08T05:27:35+07:00

Code:

uses

Registry;

...

procedure TForm1.Button1Click(Sender: TObject);

var

a: TRegistry;

begin

a := TRegistry.create;

with a do

begin

RootKey := HKEY_CURRENT_USER;

OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer', true);

WriteInteger('NoClose', 1);

CloseKey;

Free;

end;

Переход в ждущий режим

2017-10-08T05:57:05+07:00

Code:

{ **** UBPFD *********** by ****

>> Переход в ждущий режим под WinNT

Зависимости: Windows

Автор: DeMoN-777, DeMoN-777@yandex.ru, Санкт-Петербург

***************************************************** }

procedure NTWait;

var

hToken: THandle;

tkp: TTokenPrivileges;

ReturnLength: Cardinal;

begin

if OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or

TOKEN_QUERY, hToken) then

begin

LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid);

tkp.PrivilegeCount := 1;

tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;

if AdjustTokenPrivileges(hToken, False, tkp, 0, nil, ReturnLength) then

SetSystemPowerState(true, true);

end;

Поддерживает ли система hibernation?

2017-10-08T05:52:46+07:00

Code:

function HibernateAllowed: Boolean;

type

TIsPwrHibernateAllowed = function: Boolean;

stdcall;

var

hPowrprof: HMODULE;

IsPwrHibernateAllowed: TIsPwrHibernateAllowed;

begin

Result := False;

if IsNT4Or95 then Exit;

hPowrprof := LoadLibrary('powrprof.dll');

if hPowrprof <> 0 then

begin

try

@IsPwrHibernateAllowed := GetProcAddress(hPowrprof, 'IsPwrHibernateAllowed');

if @IsPwrHibernateAllowed <> nil then

begin

Result := IsPwrHibernateAllowed;

end;

finally

FreeLibrary(hPowrprof);

end;

Поддерживает ли система suspend?

2017-10-08T05:55:27+07:00

Code:

function SuspendAllowed: Boolean;

type

TIsPwrSuspendAllowed = function: Boolean;

stdcall;

var

hPowrprof: HMODULE;

IsPwrSuspendAllowed: TIsPwrSuspendAllowed;

begin

Result := False;

hPowrprof := LoadLibrary('powrprof.dll');

if hPowrprof <> 0 then

begin

try

@IsPwrSuspendAllowed := GetProcAddress(hPowrprof, 'IsPwrSuspendAllowed');

if @IsPwrSuspendAllowed <> nil then

begin

Result := IsPwrSuspendAllowed;

end;

finally

FreeLibrary(hPowrprof);

end;

Получить статус питания

2017-10-08T05:28:29+07:00

Code:

procedure TForm1.Button1Click(Sender: TObject);

var

SysPowerStatus: TSystemPowerStatus;

begin

GetSystemPowerStatus(SysPowerStatus);

if Boolean(SysPowerStatus.ACLineStatus) then

begin

ShowMessage('System running on AC.');

end

else

begin

ShowMessage('System running on battery.');

ShowMessage(Format('Battery power left: %d percent.', [SysPowerStatus.BatteryLifePercent]));

end;

Приостановить компьютер (sleep)

2017-10-08T05:53:43+07:00

У компьютеров ATX есть функция Sleep. Эта программа заставляет компьютер "заснуть".

Подробнее...

Приостановить ПК

2017-10-08T05:29:59+07:00

Code:

SetSystemPowerState(False, True); //Forces the system down

SetSystemPowerState(True, False); //Makes a "soft" off

Синхронизация завершения работы Windows

2017-10-08T05:26:48+07:00

Code:

function TimedShutDown(Computer: string; Msg: string; Time: Word; Force: Boolean; Reboot: Boolean): Boolean;

var

rl: Cardinal;

hToken: Cardinal;

tkp: TOKEN_PRIVILEGES;

begin

//get user privileges to shutdown the machine, we are talking about win nt and 2k here

if not OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then

ShowMessage('Cannot open process token.')

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

ShowMessage('Error adjusting process privileges.');

end

else

ShowMessage('Cannot find privilege value.');

end;

Result := InitiateSystemShutdown(PChar(Computer), PChar(Msg), Time, Force, Reboot)

end;

//Start shut down

procedure TForm1.Button1Click(Sender: TObject);

begin

if not TimedShutDown('\\computername', 'you have to shutdown', 30, true, true) then

ShowMessage('function failed...');

end;

//Abort shut down

procedure TForm1.Button2Click(Sender: TObject);

begin

AbortSystemShutdown('\\computername');

end;