Как переделать функцию

[shamsiev]

Есть функция как с помощью нее вывести в Memo1 текст который набирается в блокноте? Подскажите пожалуйста.

function MouseHook(code: integer; WParam: word; lParam: Longint): Longint;StdCall;
var
  Wnd: hWnd;
begin
  if (code = HC_ACTION) then
    begin
      SendMessage(Wnd, MouseEvent, wParam, lParam);
    end;
  Result:=CallNextHookEx(MouseHandle, code, WParam, lParam);
end;

[Krasiosoft]

Похоже Вы что-то перепутали. Можете показать код, как устанавливали хук?

Но если речь идет о том, как с такой функции обратиться к Memo1, то это можно сделать через глобальную переменную Form1:

Form1.Memo1.Lines.Add('Text');

[shamsiev]

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

Похоже Вы что-то перепутали. Можете показать код, как устанавливали хук?

Но если речь идет о том, как с такой функции обратиться к Memo1, то это можно сделать через глобальную переменную Form1:

Form1.Memo1.Lines.Add('Text');

да как установить хук чтобы при наборе текста вне формы все отображалось в Memo

[Stilet]

Как выше сказано: Пиши полный путь - Form1.Memo1.Lines...

[min@y™]

а причём тут MouseHook?

[Krasiosoft]

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

как установить хук чтобы при наборе текста вне формы все отображалось в Memo

Проще всего будет использовать SetWindowsHookEx с параметром WH_KEYBOARD_LL, и обрабатывать уже нажатия клавиш как Вам нужно.

[Aliens_wolfs]

Вам нужно в этом направлении копать, вот небольшой примерчик только с латиницей, поищите на просторах интернета дальнейшую обработку и модернизируйте код:

var
  Form1: TForm1;
    HookHandle: hHook;

function HookProc(Code: integer; WParam: word; LParam: Longint): Longint; stdcall;
type
  PKbdDllHookStrukt = ^TKbdDllHookStrukt;
  TKbdDllHookStrukt = record
    vkCode: DWORD;
    scanCode: DWORD;
    flags: DWORD;
    time: DWORD;
    dwExtraInfo: PDWORD;
  end;

  var
  KbdDllHookStrukt: PKbdDllHookStrukt;

begin
  if Code = HC_ACTION  then
  begin
     case WParam of
        WM_KEYDOWN:
        begin
        KbdDllHookStrukt:= PKbdDllHookStrukt(LParam);
        //Показ символа в строку если Form1.Memo1.Lines.add то будет перенос
        Form1.Memo1.Lines.Text:= Form1.Memo1.Lines.Text + char(KbdDllHookStrukt.vkCode);
        end;
      end;
      end;
    result := CallNextHookEx(HookHandle, code, WParam, LParam);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
HookHandle := SetWindowsHookEx(WH_KEYBOARD_LL, @HookProc, HInstance, 0);
end;

[Krasiosoft]

Получить текущее активное окно можно с помощью GetForegroundWindow. А дальше уже с помощью GetWindowText и GetClassName можно получить текст заголовка окна и класс окна соответственно.

Но так же можно использовать и GetWindowThreadProcessId для определения ИД процесса с помощью дескриптора окна, а далее взять путь через GetPathByProcessId и сверять его с нужным.