Отследить нажатие клавиши для отдельного окна

[Черничный]

вот вот! Это мне больше нравится! Сделать в dll и запихнуть это дело в фаил ресурсов. А можно пример заталкивания dll в ресурсы и извлечение ее от туда

[Черничный]

Сообщение от eoln

function HookProc(Code:integer; WParam:word; LParam:Longint):Longint; stdcall;
begin
//какие-то действия ловушки
result := CallNextHookEx(HookHandle,code,WPar am,LParam);
end;

что это значит "// какие то действия"Видимо здесь надо отлавливать нажатия, и приписывать их в строку(ну в строку наджо мне)

[Черничный]

Кароч, я нашел метод, сделаю через dll у нее больше плюсов. Буду dll эту запиивать в exe и оттуда ее по надобности доставать. Если кому надо то как это сделать:

1). открываем самый мощный текстовый редактор - Блокнот и начинаем ваять :
MYDLL RCDATA
mydll.dll

Записываем всё это как Lib.rc

2). Теперь для получения файла-ресурсов компилируем получившийся у нас Lib.rc :
brcc32.exe Lib.rc

3). Получили Lib.res, который необходимо прикрепить к нашему проекту, для этого используем директиву {$R Lib.res}

Нижеследующий код иллюстрирует как можно прикрепить *.res файл к проекту и извлечь его при необходимости:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}{$R Lib.RES}

procedure TForm1.Button1Click(Sender: TObject);
var
  MyDll1: TResourceStream;
begin
  MyDll1 := TResourceStream.Create(hInstance, 'MYDLL', RT_RCDATA);
  try
    MyDll1.SaveToFile('duck.dll');
  finally
    MyDll1.Free;
  end; {try}

end;

end.

В результате сборки получим EXE-файл. При нажатии на кнопку формы будет создан файл duck.dll в той же директории, из которой была запущена программа (помните, что если dll-файлы в вашей системе имеют атрибут скрытых,- созданный duck.dll тоже будет невидимым