Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

СообЧА. Программирование на Delphi


Служба Рассылок Subscribe.Ru
Subscribe.Ru :СообЧа программирование на дельфи !
—Сообча : программирование на дельфи

Здесь могла бы быть ваша реклама: обращайтесь ко мне...


СооБча ™: И коротко о погоде...
 В этом выпуске:

Если рассылка долго не ходит,то у меня диал-ап " кончился " :(

 

Коротко о разгоне: Scream if you wanna go faster... :)

Рассылки Subscribe.Ru это стильно удобно, и информативно!
СообЧа (СООБщество ЧАйников). Обмен опытом, вопросы, ответы.
подпишись и подпиши друга!!!!

 Contact (Связь с Нами):

Pixel@novgorod.net + Subject:

Vcl Haunting

"Золотой Чайник"

Вопрос по дельфи N (номер версии)

Help!

 

 

Новости (Слово о нашем спонсоре...)

К заголовку

Лучшие товары ОЗОНА

Игрушки

  • Sudden Strike(противостояние 3) убойная ТАКТИЧЕСКИ ГРАМОТНАЯ RTS на тему 2й мировой войны...
  • Демиурги: Вы фанат Magic the Gathering? Тогда это для вас!!!!

Книги по Дельфи которые ВЫ ОБЯЗАНЫ ПРОЧИТАТЬ...

Купите- не пожалеете!

 

Посылка сообщения ВСЕМ формам

К заголовку

Сегодя я буду краток, вот процедура для этого...

var

I: Integer;
M: TMessage;
...
with M do begin

Message := ...
...
end;
for I := 0 to Pred(Screen.FormCount) do begin

PostMessage( Forms[I].Handle, ... );
//и чилдам если надо
Forms[I].Broadcast( M );
end;

 

 

 

Клава!!!!

К заголовку

Как изменять статус лампочек на; numlock, capslock, etc...?

procedure SetNumLock(bState:Boolean);
var

KeyState : TKeyboardState;
begin

GetKeyboardState(KeyState);
if ( (bState) and (not ((KeyState[VK_NUMLOCK] and 1)=1) ) or
( (not (bState)) and ((KeyState[VK_NUMLOCK] and 1)=1))) then
// Simulate a key press
keybd_event(VK_NUMLOCK, $45, (KEYEVENTF_EXTENDEDKEY or 0), 0);
// Simulate a key release
keybd_event( VK_NUMLOCK, $45, (KEYEVENTF_EXTENDEDKEY or
KEYEVENTF_KEYUP), 0);
end;

Как подавить реакцию на CTRL+ALT+DEL&Alt+tab

//вкл
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, 0, 0);
// выкл
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, 0, 0);

Кстати, SystemParametersInfo имеет еще кучу ключей SPI_****, подробности см в win32.hlp

 

Грустный P.S

К заголовку

У рассылки кончается материал и его источник уже не блещет, нам нужна ваша помощь.

Любой полезный ,или просто часто используемый вами код, или секрет , подкрепленный хорошими комментариями будет кстати...

Пока такового нет, рассылка может значительно сократить частоту своего выхода, ибо мне нужно будет больше лазать по сети, в поисках чего-нибудь полезного...

 

До встречи...

Zaluskiy Anton(COOLer)  и Khrapunov Kirill(Pixel)  - ведущие проекта    "Мир Delphi" Copyright : Pixelsoftware(Pixel)& Delphi 2000(COOLer)


к3кй TopList SpyLOG RLE Banner Network
http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу
Рейтингуется SpyLog

 

Another Banner Network



http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу
Рейтингуется SpyLog


http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу

В избранное