|
|
|
|
|
Программирование >> Delphi >> Система
{ **** UBPFD *********** by delphibase.endimus.ru ****
Зависимости: Windows, Messages
Автор: savva, savva@nm.ru, ICQ:126578975, Орел
Copyright: Сапронов Алексей (Savva)
Дата: 27 июня 2002 г... |
Создайте следующий ключ реестра:
HKEY_LOCAL_MACHINESYSTEM - CurrentControlSet - Services - Eventlog -
Application - <AppName>
Имя приложения AppName должно совпадать с именем источника, использованного
при вызове RegisterEventSource, потому что просмотрщик событий будет
использовать |
Все сообщество программистов разделяется по приверженности к той или иной
платформе и языку программирования. Один предпочитает Delphi для Windows,
другому нравится ассемблер для DOS, третий программирует на Си++ для OS/2... |
Введение
Существующие
решения
Принципы
построения API-библиотеки
Библиотека
WinLite
Пример
программы на основе библиотеки WinLite
1. Введение
Любую современную программу или программную технологию можно представить как
совокупность программных "слоев"... |
Компиляция данного примера возможна только с Delphi 3. Delphi 2
не был опробован в связи с его отсутствием, объектные фалы созданные Delphi 4
отвергаются Microsoft ® Linker 5.12.8181 как файлы неизвестного формата... |
 |
1. Теперь нужно отметить особенность функции Translate. Если слова нет в
словаре, она его автоматически добавляет. Потом вам только останется самому
ввести перевод этого слова!
2... |
Эта процедура не имеет никаких параметров. Ее объявление выглядит
довольно-таки просто: Beep;
Суть этой процедуры - воспроизводить стандартный звуковой сигнал,
установленный в Windows, если имеется звуковая карта и настроен стандартный
звук, если же нет, то звук поступит через динамик... |
1. Создать новый документ, поместить его в папку Windows/ShellNew
2. В редакторе реестра найти расширение этого файла, добавить новый подключ,
добавить туда строку: FileName в качестве значения которой указать имя
созданного файла... |
Var
FHandle: Thandle;
FHandle := CreateFile(
PChar(ComString),
GENERIC_READ or GENERIC_WRITE,
0,
nil,
OPEN_EXISTING,
FILE_FLAG_OVERLAPPED,
0);
Параметр 1: Имя порта - "COM1", итд
Параметр 2: режим открытия GENERIC_READ - чтение, GENERIC_WRITE - запись
Параметр 3: режим... |
Как уже отмечалось - сервис это обычная программа. Программа в Pascal"е
находится между begin и end. После запуска нашего сервиса (здесь и далее под
запуском сервиса понимается именно запуск его из Менеджера сервисов, а не просто
запуск exe"шника сервиса) менеджер сервисов ждет пока наш... |
|
|
