Хук на клавиатуру, русские буквы

[NIKOLAYY2]

Есть простой хук, он пишет в лог нажатые клавиши, вернее их коды. Нельзя ли как оформить это дело так (не очень сложным способом) чтобы он писал нормально символы?
Ну типа как вот при таком раскладе, что нажали то и получили в Panel

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  Panel1.Caption := Panel1.Caption + Key;
end;

[phomm]

Когда-то использовал такую функцию, уже не помню деталей, но, вроде как, делать должна то, что описываете.

function GetCharFromVirtualKey(Key: Word): string;
var
  kbState: TKeyboardState;
  asciiResult: Integer;
begin
  GetKeyboardState(kbState);
  SetLength(Result, 2);
  asciiResult := ToAscii(key, MapVirtualKey(key, 0), kbState, @Result[1], 0);
  case asciiResult of
    0: Result := '';
    1: SetLength(Result, 1);
    2: ;
  else
    Result := '';
  end;
end;

вызов

procedure TfMain.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
  s: string;
begin
  s := GetCharFromVirtualKey(key);
  if (s <> '') then
    ShowMessage(s[1]);
end;

и кстати, все подробности нагугливаются по 3й после бегина строке из функции.

[NIKOLAYY2]

phomm
Работает, хорошо работает,но только когда форма активна (на переднем плане).
А если форму свернуть то перестает работать.

А с неактивной формой подобное собрать только хук через dll- файл можно?

[NetSpace]

да, только c dll. тогда даже если форма неактивна, то всё равно может принимать сообщения и обрабатывать. пример во вложенном архиве: даже если форма свёрнута, то код нажатой клавиши всё равно будет перехвачен и показан на форме

[NIKOLAYY2]

NetSpace ага работает, пишет код клавиши цифрой. А так чтобы символ клавиши буквой записывало (в компонент Memo или в файл) через пробел вы немогли бы переделать?

[NetSpace]

на вот, в этом архивчике программа KeyLogger - он записывает нажатые клавиши в файл. как русские, так и английские. вобщем, то, что можно переделать под себя (лишнее убрать). там и DLL и проект, который эту DLL использует. пользуйся сам и неси добро на компьютеры юзеров, ламеров и других чайников нечищенных.

[zvygin1964]

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

что нажали то и получили

А вы с какой целью интересуетесь? Keylogger.rar работает, но его видно на мониторе. Существуют готовые клавиатурные шпионы. У меня такой стоит. Очень доволен...

[NIKOLAYY2]

NetSpace
Ага хороший кейлогер, мне нравится, но из за <Т>,<а>,<к>,<и>,<х>, скобок и помещения между ними Shift и Atl и прочих клавиш, текстовый лог становится очень трудно читаемым.
Я бы желал получать в лог чистый текст, мне бы так удобнее было )

zvygin1964
А у вас кого вида кейлогер стоит? На dll основе я думаю? Как он у вас создает лог файл и что в него пишет?

[NetSpace]

ну дак исправь, поищи в коде где эти скобки в буфер записываются и удали. будет тебе чисто текст =)))

[zvygin1964]

Это готовое изделие из недр сети.