[Arturius]

есть код DLL:

Код:

library hook;
Uses Windows, Messages, Sysutils;

var
  myHook: HHook = 0;

function MsgProc(Code: integer; wParam: Word; lParam: Longint): Longint; export; stdcall;
var c: char;
    f: text;
    key: array [0..16] of Char;
begin
  if (Code=HC_ACTION) and (((lParam shr 16) and KF_UP)=0) then
  begin
  Assign(f,'C:\log.txt');  //тут уш понятно файл куда сохраняеться
  if FileExists('C:\log.txt') then
  Append(f) else Rewrite(f);

  GetKeyNameText(lParam,key,SizeOf(key));

  Writeln(f,key);
  CloseFile(f);
  end;
  result:= CallNextHookEx(myHook,code,wParam,lparam);
end;

procedure setHook(Hook: boolean) export; stdcall;
begin
  if Hook then
  begin
    if myHook=0 then
    myHook:=SetWindowsHookEx(WH_KEYBOARD,@MsgProc,HInstance,0);
  end
  else
  begin
    if myHook<>0 then
    UnHookWindowsHookEx(myHook);
    myHook:=0;
  end;
end;

exports setHook name 'SetHook';

begin
end.

и есть программа которая запускает эту длл при нажатии кнупки1 и выгружает по нажатию кнопки2:

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
procedure setHook(Hook: boolean) stdcall; external 'Project1.dll' name 'SetHook';

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
setHook(true);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
setHook(false);
end;

end.

Помогите пожалуйтса сделать так чтобы в четыре TLable загружались надписи Ctrl Alt Shift (другая нажатая клавиша) когда они нажаты.
есть подобная реализация для linux тут

хочу сделать нечто подобное для Win