Разместите нашу кнопку!

Новые статьи:

Programming articles

Создание сайтов на шаблонах

Множество вариантов работы с графикой на канве

Шифруем файл с помощью другого файла

Перехват API функций - Основы

Как сделать действительно хороший сайт

Создание почтового клиента в Delphi 7

Применение паскаля для решения геометрических задач

Управление windows с помощью Delphi

Создание wap сайта

Операционная система unix, термины и понятия

SQL враг или друг

Возникновение и первая редакция ОС UNIX

Оптимизация проекта в Delphi

Ресурсы, зачем нужны ресурсы

Термины программистов 20 века

Советы по созданию собственного сайта с нуля

Шифруем файл с помощью пароля

Фракталы - геометрия природы

Crypt - Delphi программа для шифрования

Рассылка, зачем она нужна и как ее организовать?

Учебник по C++ для начинающих программистов

Уроки для изучения ассемблера

Загадочный тип PCHAR

Средства по созданию сайтов

Операторы преобразования классов is и as

Borland Developer studio 2006. Всё в одном

Создание базы данных в Delphi, без сторонних БД


Software engineering articles



Панель управления.

Для создания апплетов (программ для Панели управления) необходимо сделать следующее:

  1. Создать новый проект. И перейти в
  2. Измените "program" на "library": library Project1;
  3. Написать следующий код

// используем модуль Cpl
uses
Cpl,
Windows,
Forms,
Unit1 in 'Unit1.pas' {Form1}; // Все формы которые есть

procedure ExecuteApp;

begin
Application.Initialize;
Application.CreateForm(TForm1,Form1);
Application.Run;
end;

// Сallback-функция для экспорта в Панель Управления
function CPlApplet(hwndCPl: THandle; uMsg: DWORD;lParam1, lParam2: LongInt):LongInt;stdcall;
var
NewCplInfo:PNewCplInfo;
begin
Result:=0;
case uMsg of
// Инициализация должна возвращать True.
CPL_INIT:
Result:=1;
// Число апплетов
CPL_GETCOUNT:
Result:=1;
// Помещаем информацию об этом апплете в Панель управления.
CPL_NEWINQUIRE:
begin
NewCplInfo:=PNewCplInfo(lParam2);
with NewCplInfo^ do
begin
dwSize:=SizeOf(TNewCplInfo);
dwFlags:=0;
dwHelpContext:=0;
lData:=0;
// Иконка для отображения на Панели Управления.
hIcon:=LoadIcon(HInstance,'MAINICON');
// Имя апплета
szName:='Project1';
// Описание этого апплета.
szInfo:='Апплет.';
szHelpFile:='';
end;
end;
// Выполнение апплета.
CPL_DBLCLK:
ExecuteApp;
else Result:=0;
end;
end;
// Экспортирование функции CplApplet
exports
CPlApplet;
begin
end.

RegisterServiceProcess

После компиляции (Ctrl+F9) мы получим файл с расширением dll. Теперь нам надо изменить это расширение на cpl. После изменения копируйте полученный файл в \windows\system 32\




Warning: require_once(/home/program/programmersclub.ru/docs/60c3403e55019aa8da82c567fcf8afa0/sape.php): failed to open stream: No such file or directory in /home/program/programmersclub.ru/docs/wp-content/themes/xtreme/advertisement.php on line 4

Fatal error: require_once(): Failed opening required '/home/program/programmersclub.ru/docs/60c3403e55019aa8da82c567fcf8afa0/sape.php' (include_path='.:/home/program/programmersclub.ru/php') in /home/program/programmersclub.ru/docs/wp-content/themes/xtreme/advertisement.php on line 4