Cześć Robię klawiaturę ekranową i mam problem z wysłaniem do aktywnego okna innej aplikacji wpisywanych znaków na klawiaturze ekranowej np: tak jak jest w klawiaturze ekranowej Windows. Do samego programu potrafie wysłać znak z klawiatury np. poprzez ustawienie focusa: Rozumiem że muszę znać...

Proponuję zapoznać się z tym tematem : [Delphi] Wysyłanie znaków do innej aplikacji.

czytałem ten temat. Tylko tam (o ile sie nie myle) rozwiązano problem wysyłania znaków do określonej aplikacji poprzez z góry ustalony uchwyt okna, a ja chciałbym wysłać do ostatniego aktywnego okna. Jeśli taka jest możliwość to prosiłbym o jakieś wskazówki.

REKLAMA

Adblock/uBlockOrigin/AdGuard mogą powodować znikanie niektórych postów z powodu nowej reguły.

[DELPHI] Uchwyt okna innej aplikacji - klawiatura ekranowa

wojtektonder777 14 Gru 2010 14:10 5484 4

REKLAMA

Zgłoś naruszenie prawa

Odpowiedz | Nowy temat

#1 8867241 14 Gru 2010 14:10

wojtektonder777 wojtektonder777

Poziom 9

Posty: 20
Autor tematu

Post #1
8867241 14 Gru 2010 14:10

Cześć

Robię klawiaturę ekranową i mam problem z wysłaniem do aktywnego okna innej aplikacji wpisywanych znaków na klawiaturze ekranowej np:

Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka
keybd_event(ord('B'), 1, 0, 0); keybd_event(ord('B'), 1, KEYEVENTF_KEYUP, 0);

tak jak jest w klawiaturze ekranowej Windows.

Do samego programu potrafie wysłać znak z klawiatury np. poprzez ustawienie focusa:

Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka
memo1.setfocus;

Rozumiem że muszę znać uchwyt okna - nie mogę tego na stałe zadeklarować:

Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka
FindWindow(NULL, "np_notatnik");

bo klawiatura musi wpisywać do dowolnego okna najlepiej ostatnio aktywnego. Bo przecież jak kliknę na klawisz to okno stanie się aktywne.

Jak to zrobić - macie jakiś pomysł?
W pełni konfigurowalna automatyzacja domu - prezentacja Fox Wi-Fi Quad Input [sponsorowany]
REKLAMA
Pomocny post

#2 8867270 14 Gru 2010 14:19

arnoldziq arnoldziq

VIP Zasłużony dla elektroda

Posty: 5376

Pomógł: 789

Ocena: 300
Pomocny post? (+1)

Pomocny post
Post #2
8867270 14 Gru 2010 14:19

Proponuję zapoznać się z tym tematem : [Delphi] Wysyłanie znaków do innej aplikacji.
REKLAMA
#3 8867310 14 Gru 2010 14:32

wojtektonder777 wojtektonder777

Poziom 9

Posty: 20
Autor tematu Pomocny post? (0)

Post #3
8867310 14 Gru 2010 14:32

czytałem ten temat. Tylko tam (o ile sie nie myle) rozwiązano problem wysyłania znaków do określonej aplikacji poprzez z góry ustalony uchwyt okna, a ja chciałbym wysłać do ostatniego aktywnego okna. Jeśli taka jest możliwość to prosiłbym o jakieś wskazówki.
REKLAMA

Pomocny post

#4 8867376 14 Gru 2010 14:50

arnoldziq arnoldziq

VIP Zasłużony dla elektroda

Posty: 5376

Pomógł: 789

Ocena: 300

Pomocny post

Post #4

8867376 14 Gru 2010 14:50

Nazwę aktywnego okna, możesz pobrać w ten sposób :

function ActiveCaption: string;
var
  Handle: THandle;
  Len: LongInt;
  Title: string;
begin
  Result := '';
  Handle := GetForegroundWindow;
  if Handle <> 0 then
  begin
    Len := GetWindowTextLength(Handle) + 1;
    SetLength(Title, Len);
    GetWindowText(Handle, PChar(Title), Len);
    ActiveCaption := TrimRight(Title);
  end;
end;

Potem to już "z górki"

#5 8868650 14 Gru 2010 19:43

wojtektonder777 wojtektonder777

Poziom 9

Posty: 20
Autor tematu Pomocny post? (0)

Post #5
8868650 14 Gru 2010 19:43

faktycznie z górki - działa.
Zarejestruj konto, Zaloguj się i bądź aktywny na forum, a wtedy reklamy nie będą się pojawiać. Dołącz do dyskusji i otrzymaj punkty za rejestrację oraz odpowiedzi.

Zainstaluj aplikację Elektroda

Odpowiedz | Nowy temat

Zgłoś naruszenie prawa

REKLAMA