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

для защиты 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 <piter [@] pechora.org>


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" <anatoly [@] podgoretsky.com>


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" <anatoly [@] podgoretsky.com>


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" <gavr1l0 [@] slv.magadan.ru>


доброе(ый/ой) (утро(а), день(и), вечер(а), ночи) [не нужное зачеркнуть]
глубокоуважаемый(ая) 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)