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

KLSoft company - программирование в Delphi и PHP

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Веб-разработка: пособие начинающим" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Март 2005   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Автор
ADMIN

Статистика

989 подписчиков
0 за неделю
←   Все выпуски   →

X-Program ПО, новости сайта и программирование в Delphi7


Информационный Канал Subscribe.Ru
Рассылка по Delphi. Выпуск 42.
Зайдите на наш сайт.
X-Program company ::: Free Soft ::: http://www.x-program.narod.ru 		Новости рассылки и сайта
10 марта 2005 г.
!!!Нам исполнилось 3 года!!! Присылайте свои поздравления и замечания нам 		Сегодня в рассылке
Вопросы подписчиков
Шифрование
Шрифты
WinAPI
Задать вопрос Предложения и пожелания Заказать статью

Вопросы подписчиков
8)Ответить
Здравствуйте, x-program.

Вопрос в следующем: Занимался ли кто программированием захвата видео с
нч входа тв-тюнера или видеокарты с "театром", и как это реализовать лучшим образом?

X)
Ответов нет

Шифрование - простая процедура
function Crypt(Text,Key: String; Encode: boolean): String;
var
i, KeyLength: integer;
Sign: ShortInt;
begin
KeyLength:=Length(Key);
if Encode then Sign :=-1 else Sign:=1; //шивровать или расшифровывать?
for i:=1 to Length(Text) do
//код символа исходного текста складывается с кодом символа ключа
// пароль при этом умножается (ключкдючключ...)
Text[i]:=chr(ord(Text[i])+Sign*ord(Key[i mod KeyLength+1]));
//результат усилий
Result:=Text;
end;

Ставим свои шрифты
Добавить фонт (.fon, .fot, .fnt, .ttf) в систему можно след. образом:


{$IFDEF WIN32}
AddFontResource( PChar( my_font_PathName { AnsiString } ) );
{$ELSE}
var
ss : array [ 0..255 ] of Char;

AddFontResource ( StrPCopy ( ss, my_font_PathName ));
{$ENDIF}
SendMessage ( HWND_BROADCAST, WM_FONTCHANGE, 0, 0 );

Убрать его по окончании работы:

{$IFDEF WIN32}
RemoveFontResource ( PChar(my_font_PathName) );
{$ELSE}
RemoveFontResource ( StrPCopy ( ss, my_font_PathName ));
{$ENDIF}
SendMessage ( HWND_BROADCAST, WM_FONTCHANGE, 0, 0 );

При этом не надо никаких перезагрузок и прочего, после добавления фонт сразу можно использовать. my_font_PathName : string ( не string[nn] для D2+) - содержит полный путь с именем и расширением необходимого фонта. После удаления фонта форточки о нем забывают. Если его не удалить, он (кажется) так и останется проинсталенным, во всяком случае, я это не проверял.

Функции Win32 API [ H ]
Функция HideCaret

Описание:
function HideCaret(Wnd: HWnd);

Удаляет, не pазpушая, вставку с экpана дисплея.

Паpаметpы:
Wnd: Окно, владеющее вставкой, или нуль, если владеющее окно находится в текущей задаче.

См. также: ShowCaret

функция находится в файле user32.dll



Функция HiliteMenuItem

Описание:
function HiliteMenuItem(Wnd: HWnd; Menu: HMenu; IDHilite, Hilite: Word): Bool;

Подсвечивает или снимает подсвечивание с элемента меню веpхнего уpовня.

Паpаметpы:
Wnd: Идентификатоp окна.
Menu: Идентификатоp меню веpхнего уpовня.
Brush: HBrush, используемая для затенения.
IDHilite: Целочисленный идентификатоp или положение элемента меню.
Hilite: Комбинация флагов mf_ByCommand или mf_ByPosition с mf_Hilite или mf_Unhilite. См. pаздел "Флаги меню, mf_" в главе 1.

Возвpащаемое значение:
Не нуль в случае успешного завеpшения; 0 - в пpотивном случае.

функция находится в файле user32.dll
http://subscribe.ru/
http://subscribe.ru/feedback/		 Подписан адрес:
Код этой рассылки: comp.soft.prog.program		 Отписаться
В избранное