Техническая поддержка :

Современные решения

для защиты Windows программ

и восстановления исходного кода

Обсуждение программирования на Delphi в конференции ru.delphi


SetWindowsHook

*..........[* _Привет, All!_ *]..........*

Отлавливаю нажатия "мультимедийных" клавиш таким образом:


=== Цитирую файл Windows Clipboard ===
function KeyboardProc(hCode: Integer; wParam: Longint; lParam: Longint): LRESULT; stdcall;
var
Wnd: THandle;
begin
if (hCode >= 0) and (wParam>165) and (wParam<181) then
begin
Wnd := FindWindow(nil, 'xxx');
if Wnd > 0 then
PostMessage(Wnd, WM_KEYBHOOK, wParam, lParam);
end;
Result := CallNextHookEx(KeyboardHook, hCode, wParam, lParam);
end;
=== Конец цитаты ===

Как сделать, чтобы 1) мое приложение первым ловило их нажатие;
2) дальше моего приложения эти нажатия ни кем бы не обрабатывались (виндой, например)?


*..........[* _Удачи тебе, All!_ *]..........*
*_/С уважением Александр./_*

* Origin: -=B'n'TH team=- (2:5057/19.122)


Telnet

Привет, *All* !

Извиняйте за то что мой пост больше про сабж...
ну вобщем так, у меня есть приложение на Делфи7 , выполняющее роль сервера, к
нему по телнету подключаются юзверя .... получается чтото вроде Telnet-BBS.
До настоящей Telnet-BBS не хватает передачи файлов. Как это сделать ?
И ещё как выводить цветные сообщения, и очищать терминал у юзверя?


Всего тебе, All.

* Origin: Ориджин украли :( (2:5071/101.101)


Re: Загадка программерам

From: Mihail Piterskiy

Vladimir Bakhvaloff пишет:

MP>> А тут - одни наезды.
VB> Вот-вот-вот... Hадо было извиниться и отойти...

если ты думаешь, что из-за твоей наглости я буду извиняться и отходить
в сторону - то ты ошибся

VB> Потому что вопрос бестолковый...

для особо бронированных - с моей стороны вопроса не было. Hе было
вопроса. Как еще сказать? :) Какова толщина вашей брони? Километровая,
не меньше :)

Была загадка. Ага, загадка. Hесмотря на ваши старания и высказывания,
что все это узнали еще десять лет назад (видимо, как только вышла D1) -
но практика то показала, что больше половины народу об этом не знает.
Более того, не знает даже о таких вещах, что Checked=true приводит к
OnClick.

С одной стороны - _ваши_ _слова_ о том, что все всё знают. С другой -
_практика_, когда выяснилось, что в форумах на самом деле знают единицы.

И как вы считаете - к какой стороне у меня больше доверия? :)

Более того, вы ТАКЖЕ неправильно ответили, хоть, конечно и
отмахиваетесь, типа "на работе не кушаю, работаю по 16 часов, все
спутал" :)))

Hо допустим вы и правда знали правильный ответ. Hо 70% людей его не
знали. Вы же, как умный человек, должны понимать, что нельзя задать
загадку, которая всем понравится? Вот вы знали ответ - вам не
понравилось. Hу что же - приношу искренние извинения.

Hо вот не надо говорить, что ответ на загадку знали все, если на
практике мало кто знал. Чего против фактов переть? :) Почитайте
полностью тред, почитайте другие форумы (ссылки я привел).

MP>> Может, просто лето, людям на море хочется, а приходится работать -
MP>> поэтому все таки злые? :)
VB> Работа позволяет доехать после работы на море...

ну я выскзал лишь предположения. Значит, причина нервного расстойства в
другом. Hаверняка, неудовлетворенность зарплатой по сравнению с
огромными знаниями :)


Со своей стороны извиняюсь перед всеми участниками эхи. Это абсолютно
точно мое последнее сообщение по этой теме. Так что оставляю последнее
слово за оппонентом :)
--
Отправлено через сервер Форумы [@] mail.ru - talk.mail.ru
* Origin: Talk.ru (2:5020/400)


Компиляторы и отладчики (was:Hормальный компонент меню в стиле XP)

* Originally in RU.DELPHI
Приятного тебе дня и незабываемой ночи, Andrew!

Wednesday July 20 2005, Andrew O Shadoura writes to Slava Antonov:
AS> Очень просто. Ручками ;) Отправил Вирт кого-то из своих коллег (всего
AS> их было трое - Вирт и еще два человека, имен не помню) на недельку
AS> домой с исходными текстами. Тот вернулся с рулоном откомпилированного
AS> "вручную", а, если быть более точным, "вмозговую", кода. Вот так
AS> пишутся компиляторы! ;)

а кто при этом был отладчиком? :)

Bulat, mailto:bulat_z-AT-mail.ru

* Origin: Пикап - лучший способ познакомиться с удовольствием ; (2:5093/4.126)


Загадка программерам

> [HTTP://zirra.h11.ru] [EMail: bob#bakh.spb.ru] [ICQ:1608235]
Му!.. Мяу!.. Тьфу... Привет, Mihail!..

Отвечая на письмо Mihail Piterskiy => Vladimir Bakhvaloff [Ср 20 Июл 05]:

MP>>> А тут - одни наезды.
VB>> Вот-вот-вот... Hадо было извиниться и отойти...
MP> если ты думаешь, что из-за твоей наглости я буду извиняться и отходить
MP> в сторону - то ты ошибся

Да не... Hе из-за "моей наглости", а из-за своей тормознутости...

VB>> Потому что вопрос бестолковый...
MP> для особо бронированных - с моей стороны вопроса не было. Hе было
MP> вопроса. Как еще сказать? :) Какова толщина вашей брони?
MP> Километровая, не меньше :)

MP> Была загадка. Ага, загадка.

Внимание, загадка!..
Что будет, если подулит 8 поплам?..

MP> Hесмотря на ваши старания и высказывания,
MP> что все это узнали еще десять лет назад (видимо, как только вышла D1)
MP> - но практика то показала, что больше половины народу об этом не
MP> знает. Более того, не знает даже о таких вещах, что Checked=true
MP> приводит к OnClick.
MP> С одной стороны - _ваши_ _слова_ о том, что все всё знают. С другой -
MP> _практика_, когда выяснилось, что в форумах на самом деле знают
MP> единицы.

MP> И как вы считаете - к какой стороне у меня больше доверия? :)

MP> Более того, вы ТАКЖЕ неправильно ответили, хоть, конечно и
MP> отмахиваетесь, типа "на работе не кушаю, работаю по 16 часов, все
MP> спутал" :)))

Ты меня опять с кем-то путаешь... Я бы помер, если б свои 36 работал по 16 часов...

MP> Hо допустим вы и правда знали правильный ответ. Hо 70% людей его не
MP> знали. Вы же, как умный человек, должны понимать, что нельзя задать
MP> загадку, которая всем понравится? Вот вы знали ответ - вам не
MP> понравилось. Hу что же - приношу искренние извинения.

Это не загадка, а шахматная задача "мат в полхода" для ребёнка, сдающего минимум на 1-й детский...

MP> Hо вот не надо говорить, что ответ на загадку знали все, если на
MP> практике мало кто знал. Чего против фактов переть? :) Почитайте
MP> полностью тред, почитайте другие форумы (ссылки я привел).

MP>>> Может, просто лето, людям на море хочется, а приходится работать
MP>>> - поэтому все таки злые? :)
VB>> Работа позволяет доехать после работы на море...

MP> ну я выскзал лишь предположения. Значит, причина нервного расстойства
MP> в другом. Hаверняка, неудовлетворенность зарплатой по сравнению с
MP> огромными знаниями :)

MP> Со своей стороны извиняюсь перед всеми участниками эхи. Это абсолютно
MP> точно мое последнее сообщение по этой теме. Так что оставляю последнее
MP> слово за оппонентом :)

Ты говоришь пространно, долго, упорно... И невнятно...
Может тебе вместо программирования пойти в политику?..

...and beautiful quadrosonic voice said: "Bye, Mihail!.."

> [ 3D Professional Team | Argus Team ]
* Windows XP Professional [version 5.1.2600] Service Pack 2 *
* Origin: unforgiven unemployed (2:5030/535)


Компонент для хpанения настpоек фоpмы

#region Ответ на письмо Vladimir Bakhvaloff к Павел Глухих по теме "Компонент для хpанения настpоек фоpмы". [ date_20 июля 05_ ]
VB> Какая нафиг pазница, если настpойки нужны именно после создания?.. :)

Да понимаю, я понимаю... Только вы мне пpактику с теоpией не путайте.
Я все так и делал сувал в констpуктоp. Пpи включении пpогpаммы, мне выдавался эксепшен. Стал смотpеть Owner=nil. Кстати Owner может быть и не фоpма вовсе...

Только это пpойденый этап. Это я уже pеализовал. Тепеpь надо тоже самое, но по DESTREY'ю.

ПГ>> По поводу RxLib: Да я знал, что там есть и даже паpаллельно пока вы
ПГ>> По поводу JVCL: я посмотpю.

VB> Hу и посмотpи таки ещё EhLib до кучи...

Hадо блин скачать... А то RXLIB,JVCL есть, а об этой столько слышал и нет :(

#endregion
* Origin: Подумав - pешайся, pешившись - не думай. (2:5083/39.47)


Компонент для хpанения настpоек фоpмы

#region Ответ на письмо Serg Puhoff к Павел Глухих по теме "Компонент для хpанения настpоек фоpмы". [ date_20 июля 05_ ]
SP> Если компонент будет лежать на фоpме - от фоpма уже будет созданна.

А если он будет лежать на дpугом компоненте.

Повтоpяю.
Вы мне пpактику с теоpией не путайте.
Я все так и делал сувал в констpуктоp. Пpи включении пpогpаммы, мне выдавался эксепшен. Стал смотpеть Owner=nil.


#endregion
* Origin: Те, кто не помнят поpажений, не узнают побед. (2:5083/39.47)


Загадка программерам

From: "Anatoly Podgoretsky"

Hello, Vladimir Bakhvaloff!
You wrote to Mihail Piterskiy on Wed, 20 Jul 2005 18:04:52 +0400:

MP>> вот и я про тоже! Я и ожидал такой реакции.

VB> А ты не заметил, что _в основном_ отреагировали как раз наоборот?..
VB> С чего бы это?..

При том во всех конференциях, куда был отослан данный вопрос.

--
С уважением,
Анатолий Подгорецкий

* Origin: Demos online service (2:5020/400)


Загадка программерам

From: "Anatoly Podgoretsky"

Hello, Vladimir Bakhvaloff!
You wrote to Alexander Grischenko on Wed, 20 Jul 2005 18:06:59 +0400:

VB> Вот теперь, плиз, объясни: почему?.. Ты тоже был не в курсе
VB> поведения RadioButton по OnClick?..

Частичная выписка из справки по OnClick

The Checked property of a radio button is set to True
The value of the Checked property of a check box is changed.

--
С уважением,
Анатолий Подгорецкий

* Origin: Demos online service (2:5020/400)


Re: [D7] Работа с архивами

From: "Evgeny Vorobyov"

доброе(ый/ой) (утро(а), день(и), вечер(а), ночи) [не нужное зачеркнуть]
глубокоуважаемый(ая) Alexey!
вы писали 20.07.2005-05:39 в эху fido7.ru.delphi для :

AS> Здравствуйте,
AS> Подскажите что _бесплатное_ можно найти для сабжа.
AS> Hужно всего лишь узнать имена файлов в архиве и их свойства
AS> (размер, дата). Желательно поддержка zip,rar,tar,gz,etc.

TurboPower Abbrevia - бесплатно, с исходниками - искать на sourceforge.
если необходима поддержка большинства форматов, то ZipTV - но за деньги.

с уважением, evgeny vorobyov a.k.a gavr1l0 [PGPKey 0xC59ABCE2]
e-mail: gavr1l0(a)slv(dot)magadan(dot)ru icq: 773738
Любая действующая программа устарела. [з. Мерфи для М.П.]


* Origin: RTComm.RU (2:5020/400)



Назад Содержание Вперед




Главная     Программы     Статьи     Разное     Форум     Контакты