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

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

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

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

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

←   Октябрь 2001   →
 1
 2
 3
 4
04.10.2001
22:17:02
22:47:08
 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
Автор
Сергей

Статистика

10.085 подписчиков
-9 за неделю
←   Все выпуски   →

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


Служба Рассылок Subscribe.Ru
Сообча
Сообча : Программирование на Дельфи для ВСЕХ!!!! Design:Pixel
 В этом выпуске:

Самоубийство- высшая форма самокритики (с) Optimist

Корявых API не бывает, бывают корявые руки...

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

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

Pixel@novgorod.net + Subject:

Vcl Haunting

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

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

Help!

 

 

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

К заголовку
Господа подписчики, близятся новогодние праздники, время начать думать о подарках (я знаю что еще октябрь месяц и не сошел с ума), а лучший подарок это книга... Приглашаю вас всех посетить интернет-магазин "ОЗОН", в нем вы найдете книги на любой вкус! Помимо разношерстных изданий по дельфи и языкам программирования вы найдете детскую , зарубежную и прочую литературу, а также множество учебников и учебных пособий на любой вкус...   

Если же вы не любите книги, то к вашему вниманию:

  • Лицензионные видеокассеты
  • Лучший ЛИЦЕНЗИОННЫЙ Софт и ПОПУЛЯРНЫЕ ИГРЫ  (большинство дисков идут в комплектации "Jewel Box", а это до 100р без учета доставки! )

Доставка В ЛЮБОЙ ГОРОД РОССИИ + оплата по получению. Возможна оплата по кредитной карты через интернет, если ВЫ ОЧЕНЬ ЦЕНИТЕ ВРЕМЯ то заказ доставят курьерской почтой!

Ура товарищи! Новый год не за горами !!!!

p.s Я начал свой путь по изучению Делфи с книг и вам советую, немного теории пойдет вам на пользу, а если в комплекте еще и компакт диск или дискетка с примерами, то вам просто судьба купить эту книгу ...

 

Первые претенденты на конкурс "Золотой Чайник"

К заголовку

  •   Инсталлятор (настоящее название не известно)

Кратко: Неплохое подспорье InstallShield, особенно учитывая размер(507кб), а также простоту идеи ...

Напоминаю АВТОРУ программы, что ДЛЯ УЧАСТИЯ В ФИНАЛЕ НУЖНА ,ХОТЯ БЫ ДЕМО-ВЕРСИЯ СЕГО ТВОРЧЕСТВА... 

 

  • " Информатор для программиста" 

Если вы постоянно забываете, важные события сидя за компьютером,то эта программа для вас. Она в нужное время выведет вам сообщение о том или ином  важном деле, которое вы запланировали (сообщене и будильник настраивает пользователь)  Размер: 361 кб

 

Извлечение иконки из EXE/DLL-файла

К заголовку
Иногда очень хочется иметь иконку как "Вон у той проги" , или надо сделать приложение хамелеон, которое маскируется среди других в одном каталоге с ней... Вот код

var

MyIcon: TIcon;
begin
MyIcon := TIcon. Create;
try
MyIcon.Handle := ExtractIcon(hInstance, 'MYPROG.EXE', 0)
{Здесь можно что-нибудь сделать с иконкой}
finally
MyIcon.Free;
end;
end;

 

Имейте в виду, что средний параметр должен иметь тип PChar.

 

 

Сторожевой пес типа "Мухтар"

К заголовку
У меня мания делать охранные программы для системы, вот например при помощи функции SendMessage (Windows API), можно смастерить одну из таких, для этого ей необходимо несколько параметров. Первым идет дескриптор окна; в нашем случае правильным будет HWND_BROADCAST. Затем идет передаваемое сообщение, WM_WININICHANGE. Последние два параметра - wParam и lParam (word-параметр и long-параметр) сообщения. В нашем случае (для данного конкретного сообщения) wParam должен быть 0, а lParam должен содержать адрес строки с именем измененной секции. Если lParam = NIL (ноль), то система должна проверить на наличие изменений ВСЕ секции, что на деле оказывается ужасно медленным; не посылайте 0, если вы не сделали изменений в нескольких секциях.

Вот пример оповещения об изменениях в секции Desktop:

 
VAR S : ARRAY[0..40] OF Char;
...
StrCopy(S, 'Desktop');
SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, LongInt(@S));

 

Рота, Отбой!!!

К заголовку
Q : Как мне завершить все работающие задачи?

A: Ниже приведен код, который поможет вам завершить ВСЕ задачи без всяких уведомлений о необходимости сохранения данных.

Поэтому, прежде чем запустить этот код, убедитесь в наличии сохраненных данных и в том, что пользователь осведомлен об этой операции. :) (ну это смотря ЗАЧЕМ вам это... )

procedure TForm1.ButtonKillAllClick(Sender: TObject);
var
pTask   : PTaskEntry;
Task    : Bool;
ThisTask: THANDLE;
begin
GetMem (pTask, SizeOf (TTaskEntry));
pTask^.dwSize := SizeOf (TTaskEntry);

Task := TaskFirst (pTask);
while Task do
begin
if pTask^.hInst = hInstance then
ThisTask := pTask^.hTask
else
TerminateApp (pTask^.hTask, NO_UAE_BOX);
Task := TaskNext (pTask);
end;
TerminateApp (ThisTask, NO_UAE_BOX);
end;

 

 

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

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


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

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