unit Unit1;

interface

uses
           Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
           Dialogs, StdCtrls;

type
           TForm1 = class(TForm)
             Label1: TLabel;
             procedure FormActivate(Sender: TObject);
           private
             { Private declarations }
            //описание процедуры обработчика сообщений
             procedure ProcessFormMessages(var Msg: tMsg;  var Handled: Boolean);
           public
             { Public declarations }
           end;

var
           Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ProcessFormMessages(var Msg: tMsg;
          var Handled: Boolean);
begin
          { проверка наличия системного сообщения KeyDown }
          case Msg.Message of
           WM_KEYDOWN: if Msg.wParam in [$41, $57, $53, $44] then
           begin
           {Проверяем нажатие клавиши ctrl (если не нажата)}
           if GetKeyState(VK_CONTROL) and $80 = 0 then  
           label1.Caption:='Привет'
           else
           label1.Caption:='Пока';
            { сообщаем о том, что сообщение обработано }
           Handled := True;
           end;
          end;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
             { Делаем ссылку на нового обработчика сообщений }
          Application.OnMessage := ProcessFormMessages;
end;

end.

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);
begin
if (GetKeyState(VK_CONTROL) < 0) and (GetKeyState(Ord('V')) < 0)  then    ShowMessage('Привет');
end;

var
   old_lv_kbd_proc : LongInt = 0; // старая процедура

// структура, хранящая коды кнопок
type
   KeyboardConfiguration = record
     SeekLeft : Integer;
     SeekRight : Integer;
     PlayPause : Integer;
     Fullscreen : Integer;
     ControlsPanelVisibility : Integer;
     MakeScreenshot : Integer;
     ConfigFile : string;
   end;

// оконная процедура ListView
function lvkbdProc(wnd:HWND; Msg : uint; Wpar:Wparam; Lpar:Lparam):Lresult;
  stdcall;
var
   n,key : Integer;
   t : string;
Begin
   Result := 0;
   case msg of

     WM_KEYDOWN:
     begin
       n := lv_GetIndex(wnd); // определяем индекс выделенной строки
{      key := (Lpar shr 24);
       settext(form4,IntToStr(key));}
       lv_setItemText(wnd,n,2,IntToStr(Wpar));
       lv_setItemText(wnd,n,1,GetKN(lpar));
       lv_getitemtext(wnd,N,0,t); // достаём текст из первой колонки ListView. N - индекс выделенной строки
//      t := LowerCase(t); // почему-то не работает.
       if t='Плэй / пауза' then
       cfg.KeysConfig.PlayPause := Wpar else
       if t='Перемотка назад' then
       cfg.KeysConfig.SeekLeft := Wpar else
       if t='Перемотка вперед' then
       cfg.KeysConfig.SeekRight := Wpar else
       if t='Полный экран' then
       cfg.KeysConfig.Fullscreen := Wpar else
       if t='Скриншот' then
       cfg.KeysConfig.MakeScreenshot := Wpar else
       if t='Панель управления' then
       cfg.KeysConfig.ControlsPanelVisibility := Wpar;
     end;

   else Result:= callWindowProc(Pointer(old_lv_kbd_proc),wnd,msg,wpar,lpar);
   end;
End;

// сохранение настроенных кнопок в любой текстовый файл
procedure saveKeys;
var
   t : string;
   f : TextFile;
   i,n : Integer;
begin
   n := lv_getcount(LV_KeyboardConfigurator);
   if n>0 then
   begin
     AssignFile(f,cfg.KeysConfig.ConfigFile);
     Rewrite(f);
     for i:=0 to n-1 do
       begin
         lv_getitemtext(LV_KeyboardConfigurator,i,2,t);
         Writeln(f,t);
       end;
     CloseFile(f);
   end;
end;

// загрузка кнопок из файла
procedure LoadKeys;
var
   t: string;
   f : TextFile;
   key,i : Integer;
begin
   if not FileExists(cfg.KeysConfig.ConfigFile) then
   Exit;
   AssignFile(f,cfg.KeysConfig.ConfigFile);
   Reset(f);
   i := 0;
   while not Eof(f) do
   begin
     Readln(f,t);
     if t<>'' then
     lv_setItemText(LV_KeyboardConfigurator,i,2,t);
     key := StrToInt(t);
     lv_getitemtext(LV_KeyboardConfigurator,i,0,t);
       if t='Плэй / пауза' then
       cfg.KeysConfig.PlayPause := key else
       if t='Перемотка назад' then
       cfg.KeysConfig.SeekLeft := key else
       if t='Перемотка вперед' then
       cfg.KeysConfig.SeekRight := key else
       if t='Полный экран' then
       cfg.KeysConfig.Fullscreen := key else
       if t='Скриншот' then
       cfg.KeysConfig.MakeScreenshot := key else
       if t='Панель управления' then
       cfg.KeysConfig.ControlsPanelVisibility := key;
     inc(i);
   end;
   CloseFile(f);
end;

// переназначение оконной процедуры ListView
  old_lv_kbd_proc := SetWindowLong(LV_KeyboardConfigurator,GWL_WNDPROC,
                    LongInt(@lvkbdProc));