Ostatnio ściągnąłem program, ale powykonaniu paru rzeczy zawiesza się, ale mniejsza o to.
Chcę sobie napisać program który przechwyci wszystkie komunikaty, nawet jeżeli są kierowane nie do mojej aplikacji...
- Rejestracja:prawie 15 lat
- Ostatnio:około 3 godziny
- Lokalizacja:Laska, z Polski
- Postów:10056
0
Delphi - Rejestracja:prawie 20 lat
- Ostatnio:3 minuty
- Lokalizacja:Gorlice
1
Hook?
edytowany 1x, ostatnio: kAzek
Zobacz pozostałe 3 komentarze
Riddle
Nie wiem czemu FindWindow mi nie działa...
kAzek
Może daj kod pokaż co robisz będzie prościej...
Riddle
Mój kod to na razie standardowy kod delphi, począwszy od unit, przez interface, uses, type, immplemention dyrektywa procesora i end. Cały mój kod... bo jeszcze nie zacząłem. Głupio bym się czuł gdybym zrobił prawie wszystko, a potem by się okazało że nie umiem tego zrobić
kAzek
No ale nikt nie będzie pisał tego za Ciebie, napisz trochę kodu i jak będziesz miał z czymś problem to pytaj.
Riddle
Jestem na tym świecie wystarczająco długo, by wiedzieć że nie ma nic za darmo. A szczególnie na 4p... Problem jest, od razu mówię, z przechwycaniem wszystkich komunikatów, i uchwytów aplikacji do których on dążą. Z wszystkim innym sobie poradzę.
- Rejestracja:prawie 15 lat
- Ostatnio:około 3 godziny
- Lokalizacja:Laska, z Polski
- Postów:10056
0
Już sobie poradziłem...
Ale mam inny problem, odnośnie komunikatów.
W OnDeactive formy dałem taki kod (znalazłem na forum 4p):
var
hW : HWND;
begin
hW := Application.Handle;
SetForegroundWindow(hW);
end;
Czyli to ma działać tak, że jeżeli dezaktywuje okno, ma ono się aktywować i wyskoczyc na wierzchu. Niestety nie wyskakuje :( czemu?
edytowany 1x, ostatnio: Riddle
- Rejestracja:prawie 17 lat
- Ostatnio:około 3 lata
- Lokalizacja:Szczecin
- Postów:4191
0
Co do Hooków to przenalizuj sobie kod z pod poniższego linku, na XP oraz pod Delphi 7 działa ok.
http://www.mediafire.com/file/rxalzlz0778lx9t/calc_control.rar - zaś co do drugiego pytanir to
pewnie OnDectivate zachodzi kiedy indziej, najlepiej sprawdź to w helpie kiedy to ma miejsce.
A chyba najprostszym rozwiązaniem jest ustawienie Timera z małym Intervaelm i może taki kod,
oczywiście jeżeli efekt osiągnany przez własności StayOnTop dla formatki Tobie nie wystarcza.
procedure TForm1.Timer1Timer(Sender: TObject);
var
H : HWND;
begin
H := Self.Handle;
if GetForegroundWindow <> H then
begin
if IsIconic(Application.Handle) then
begin
ShowWindow(Application.Handle, SW_SHOW);
ShowWindow(Application.Handle, SW_RESTORE);
end
else
begin
SetForeGroundWindow(Application.Handle);
end;
end;
end;
I nie obraź się TomRiddle, wiem że kto pyta to nie bładzi, ale Ty chyba za trudne sobie programy wymyślasz,
zamiast najpierw pokombinować może z podstawami, bo co kombinujesz przy nowym projekcie - to trafiasz
na kolejne problemy. Ja lubie pomagać tutaj, o ile potrafię. Ale dziwi mnie że słabo coś ogarniasz banały ;/
edytowany 2x, ostatnio: olesio
Może trochę konwencjonalnie odpowiem, ale "Co z tego?". "...Wyobraźnia bez wiedzy może stworzyć piękne rzeczy, wiedza bez wyobraźni najwyżej doskonałe...". Jak na razie, tylko to mam na swoją obronę. Jeżeli wymyśle jakiś program, każdy może mi go zrobić... Jeżeli ja mogę zrobić to nikt mi go nie wymyśli...