Dlaczego ten kod nie działa pod Windows 7 i 8.

EDIT: napisz dokładniej co jest nie tak.

Hook jest zakładany pomyślnie? Uruchamiasz jako administator? Dodaj jakiegoś Messagebox do procedury callbacka by sprawdzić czy w ogole jest wywoływana...

A z WH_KEYBOARD_LL tez nie działa?

Przechwytywanie klawiszy z klawiatury nie musi być to wirus. Wysłałem pełen kod to wirus nie jest. Wirus jest wtedy gdy używa się to przeciwko innym. Ja potrzebuje jako modół rozbudowy mojego systemu.

{ załóż hooka } MainHook := SetWindowsHookEx(WH_JOURNALRECORD, KeyboardHook, hInstance, 0); if (MainHook = NULL) then raise Exception.Create('Błąd! Hook nie został założony!') else MainForm.Caption:='OK'; Dodałem zmiane Cation na OK i wyskakuje OK. Jak uruchomie jako Admin to też nie śmiga.

Nie chcę się nawet skompilować z nowym WH_KEYBOARD_LL Może wina Delphi 7?

To podaj bezpośrednio wartość tego enuma. Sprawdź czy skompilowany program działa pod innymi systemami, ale z tego co widzę, to nie pierwszy masz ten problem. EDIT: Tak nie przejdzie? Kod: textZaloguj się, aby zobaczyć kod

Ja bym jeszcze spróbował dołączyć manifesta. Aplikacje bez niego dostają dziwne ograniczenia.

Do programu w Delphi7 na Win7 i 8, to na 100%. Zajrzyj tutaj : [Delphi] Windows Vista i Windows 7

REKLAMA

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

[DELPHI] - Przechwytywanie klawiatury pod Windows 7 i 8

TomekMus 13 Maj 2015 18:45 1569 9

REKLAMA

Zgłoś naruszenie prawa

Odpowiedz | Nowy temat

#1 14691036 13 Maj 2015 18:45

TomekMus TomekMus

Poziom 17

Posty: 329

Ocena: 7
Autor tematu

Post #1
14691036 13 Maj 2015 18:45

Dlaczego ten kod nie działa pod Windows 7 i 8.

Kod: Delphi
Zaloguj się, aby zobaczyć kod
W pełni konfigurowalna automatyzacja domu - prezentacja Fox Wi-Fi Quad Input [sponsorowany]
REKLAMA
Pomocny post

#2 14691337 13 Maj 2015 20:30

p.kaczmarek2 p.kaczmarek2

Moderator Smart Home

Posty: 14781

Pomógł: 659

Ocena: 12920
Pomocny post? (+1)

Pomocny post
Post #2
14691337 13 Maj 2015 20:30

EDIT: napisz dokładniej co jest nie tak.

Tworzę pierwsze na świecie oprogramowanie open source przeznaczone dla platform BK7231, XR809, BL602, W600, W800, LN882H, ECR, TRS, RTL, jak również ESP8266 i ESP32 używanych w różnych urządzeniach IoT, pozwalające uwolnić je od serwerów producenta, od śledzenia, dowolnie modyfikować i sparować z Home Assistant.
Dodatkowo publikuję różnorodne materiały, często tutoriale i praktyczne demonstracje.
Jeśli podoba Ci się moja twórczość i w czymś Ci pomogłem, to rozważ wsparcie mnie tutaj: https://www.paypal.com/paypalme/openshwprojects
Mój Github: https://github.com/openshwprojects
Mój tutorial PIC18F SDCC: https://www.elektroda.pl/rtvforum/topic3635522.html
Pracuję na stacji hot air SUGON 8630 Pro od Katemedia

Pomogłem? Kup mi kawę.

Promuję tematy:
08.08.2026 Kartony czy pudełka na elektronikę? Przeźroczyste pojemniki na nieco większe elementy
06.08.2026 Mechaniczny włącznik światła DS-1021 z komunikacją Zigbee bez przewodu neutralnego
05.08.2026 Wnętrze i naprawa radia DeWalt DCR019, czyli sprzęt, gdzie można dokupić części zamienne
04.08.2026 Model językowy AI uruchomiony na ESP32-S3 - 28.9 milionów parametrów
04.08.2026 Wnętrze ogranicznika przepięć Sicher OCH-B+C 275/60, czyli co kryje zabezpieczenie trójfazowe
REKLAMA
#3 14691378 13 Maj 2015 20:41

TomekMus TomekMus

Poziom 17

Posty: 329

Ocena: 7
Autor tematu Pomocny post? (+1)

Post #3
14691378 13 Maj 2015 20:41

Przechwytywanie klawiszy z klawiatury nie musi być to wirus.
Wysłałem pełen kod to wirus nie jest.
Wirus jest wtedy gdy używa się to przeciwko innym.
Ja potrzebuje jako modół rozbudowy mojego systemu.
REKLAMA
Pomocny post

#4 14691405 13 Maj 2015 20:46

p.kaczmarek2 p.kaczmarek2

Moderator Smart Home

Posty: 14781

Pomógł: 659

Ocena: 12920
Pomocny post? (+1)

Pomocny post
Post #4
14691405 13 Maj 2015 20:46

Hook jest zakładany pomyślnie? Uruchamiasz jako administator?

Dodaj jakiegoś Messagebox do procedury callbacka by sprawdzić czy w ogole jest wywoływana...

Tworzę pierwsze na świecie oprogramowanie open source przeznaczone dla platform BK7231, XR809, BL602, W600, W800, LN882H, ECR, TRS, RTL, jak również ESP8266 i ESP32 używanych w różnych urządzeniach IoT, pozwalające uwolnić je od serwerów producenta, od śledzenia, dowolnie modyfikować i sparować z Home Assistant.
Dodatkowo publikuję różnorodne materiały, często tutoriale i praktyczne demonstracje.
Jeśli podoba Ci się moja twórczość i w czymś Ci pomogłem, to rozważ wsparcie mnie tutaj: https://www.paypal.com/paypalme/openshwprojects
Mój Github: https://github.com/openshwprojects
Mój tutorial PIC18F SDCC: https://www.elektroda.pl/rtvforum/topic3635522.html
Pracuję na stacji hot air SUGON 8630 Pro od Katemedia

Pomogłem? Kup mi kawę.

Promuję tematy:
08.08.2026 Kartony czy pudełka na elektronikę? Przeźroczyste pojemniki na nieco większe elementy
06.08.2026 Mechaniczny włącznik światła DS-1021 z komunikacją Zigbee bez przewodu neutralnego
05.08.2026 Wnętrze i naprawa radia DeWalt DCR019, czyli sprzęt, gdzie można dokupić części zamienne
04.08.2026 Model językowy AI uruchomiony na ESP32-S3 - 28.9 milionów parametrów
04.08.2026 Wnętrze ogranicznika przepięć Sicher OCH-B+C 275/60, czyli co kryje zabezpieczenie trójfazowe
#5 14691440 13 Maj 2015 20:55

TomekMus TomekMus

Poziom 17

Posty: 329

Ocena: 7
Autor tematu Pomocny post? (0)

Post #5
14691440 13 Maj 2015 20:55

{ załóż hooka }
MainHook := SetWindowsHookEx(WH_JOURNALRECORD, KeyboardHook, hInstance, 0);
if (MainHook = NULL) then
raise Exception.Create('Błąd! Hook nie został założony!')
else MainForm.Caption:='OK';

Dodałem zmiane Cation na OK i wyskakuje OK. Jak uruchomie jako Admin to też nie śmiga.
Pomocny post

#6 14691459 13 Maj 2015 21:02

p.kaczmarek2 p.kaczmarek2

Moderator Smart Home

Posty: 14781

Pomógł: 659

Ocena: 12920
Pomocny post? (+1)

Pomocny post
Post #6
14691459 13 Maj 2015 21:02

A z WH_KEYBOARD_LL tez nie działa?

Tworzę pierwsze na świecie oprogramowanie open source przeznaczone dla platform BK7231, XR809, BL602, W600, W800, LN882H, ECR, TRS, RTL, jak również ESP8266 i ESP32 używanych w różnych urządzeniach IoT, pozwalające uwolnić je od serwerów producenta, od śledzenia, dowolnie modyfikować i sparować z Home Assistant.
Dodatkowo publikuję różnorodne materiały, często tutoriale i praktyczne demonstracje.
Jeśli podoba Ci się moja twórczość i w czymś Ci pomogłem, to rozważ wsparcie mnie tutaj: https://www.paypal.com/paypalme/openshwprojects
Mój Github: https://github.com/openshwprojects
Mój tutorial PIC18F SDCC: https://www.elektroda.pl/rtvforum/topic3635522.html
Pracuję na stacji hot air SUGON 8630 Pro od Katemedia

Pomogłem? Kup mi kawę.

Promuję tematy:
08.08.2026 Kartony czy pudełka na elektronikę? Przeźroczyste pojemniki na nieco większe elementy
06.08.2026 Mechaniczny włącznik światła DS-1021 z komunikacją Zigbee bez przewodu neutralnego
05.08.2026 Wnętrze i naprawa radia DeWalt DCR019, czyli sprzęt, gdzie można dokupić części zamienne
04.08.2026 Model językowy AI uruchomiony na ESP32-S3 - 28.9 milionów parametrów
04.08.2026 Wnętrze ogranicznika przepięć Sicher OCH-B+C 275/60, czyli co kryje zabezpieczenie trójfazowe
#7 14691487 13 Maj 2015 21:08

TomekMus TomekMus

Poziom 17

Posty: 329

Ocena: 7
Autor tematu Pomocny post? (0)

Post #7
14691487 13 Maj 2015 21:08

Nie chcę się nawet skompilować z nowym WH_KEYBOARD_LL
Może wina Delphi 7?
#8 14691508 13 Maj 2015 21:12

p.kaczmarek2 p.kaczmarek2

Moderator Smart Home

Posty: 14781

Pomógł: 659

Ocena: 12920
Pomocny post? (0)

Post #8
14691508 13 Maj 2015 21:12

To podaj bezpośrednio wartość tego enuma.
Sprawdź czy skompilowany program działa pod innymi systemami, ale z tego co widzę, to nie pierwszy masz ten problem.

EDIT:
Tak nie przejdzie?

Kod: text
Zaloguj się, aby zobaczyć kod

Tworzę pierwsze na świecie oprogramowanie open source przeznaczone dla platform BK7231, XR809, BL602, W600, W800, LN882H, ECR, TRS, RTL, jak również ESP8266 i ESP32 używanych w różnych urządzeniach IoT, pozwalające uwolnić je od serwerów producenta, od śledzenia, dowolnie modyfikować i sparować z Home Assistant.
Dodatkowo publikuję różnorodne materiały, często tutoriale i praktyczne demonstracje.
Jeśli podoba Ci się moja twórczość i w czymś Ci pomogłem, to rozważ wsparcie mnie tutaj: https://www.paypal.com/paypalme/openshwprojects
Mój Github: https://github.com/openshwprojects
Mój tutorial PIC18F SDCC: https://www.elektroda.pl/rtvforum/topic3635522.html
Pracuję na stacji hot air SUGON 8630 Pro od Katemedia

Pomogłem? Kup mi kawę.

Promuję tematy:
08.08.2026 Kartony czy pudełka na elektronikę? Przeźroczyste pojemniki na nieco większe elementy
06.08.2026 Mechaniczny włącznik światła DS-1021 z komunikacją Zigbee bez przewodu neutralnego
05.08.2026 Wnętrze i naprawa radia DeWalt DCR019, czyli sprzęt, gdzie można dokupić części zamienne
04.08.2026 Model językowy AI uruchomiony na ESP32-S3 - 28.9 milionów parametrów
04.08.2026 Wnętrze ogranicznika przepięć Sicher OCH-B+C 275/60, czyli co kryje zabezpieczenie trójfazowe
REKLAMA
#9 14691514 13 Maj 2015 21:14

Dżyszla Dżyszla

Poziom 42

Posty: 7077

Pomógł: 1095

Ocena: 226
Pomocny post? (+1)

Post #9
14691514 13 Maj 2015 21:14

Ja bym jeszcze spróbował dołączyć manifesta. Aplikacje bez niego dostają dziwne ograniczenia.

mgr inż. Dżyszla <- Download i oficjalna strona Dekodera Elektronika!
Nie odpowiadam na problemy i pyt. zgłaszanie via PW/mail!

Pisz bardziej wydajny kod w Delphi!

Promuję tematy:
10.05.2026 Zasilacz laboratoryjny - rozbudowa
#10 14692497 14 Maj 2015 10:15

arnoldziq arnoldziq

VIP Zasłużony dla elektroda

Posty: 5376

Pomógł: 789

Ocena: 300
Pomocny post? (0)

Post #10
14692497 14 Maj 2015 10:15

Dżyszla napisał:
Ja bym jeszcze spróbował dołączyć manifesta.
Do programu w Delphi7 na Win7 i 8, to na 100%.
Zajrzyj tutaj : [Delphi] Windows Vista i Windows 7
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

Podsumowanie tematu

Dyskusja dotyczy problemu z przechwytywaniem klawiatury w systemach Windows 7 i 8 przy użyciu Delphi. Użytkownik zgłasza, że jego kod nie działa, mimo że hook jest zakładany poprawnie. Inni uczestnicy sugerują, aby uruchomić aplikację jako administrator oraz dodać MessageBox do procedury callback, aby sprawdzić, czy jest wywoływana. Pojawiają się również sugestie dotyczące użycia WH_KEYBOARD_LL oraz dodania manifestu do aplikacji, aby uniknąć ograniczeń. Użytkownik zastanawia się, czy problem może być związany z wersją Delphi 7.
Podsumowanie AI na podstawie dyskusji. Może zawierać błędy.

REKLAMA