Привет ВСЕМ.Это уже второй по
счёту выпуск рассылки о программировании на DELPHI.
Если у вас есть предложения или замечания, прошу писать мне ForDelphi@Narod.ru
В этом выпуске
1)Создаём свой компоненты в
DELPHI.-->
2)Работа с INI-файлами--> 3)Settings Windows XP-->
Создаём
свои компоненты в Delphi
Компонент- это как-бы
дополнительный *.pas файл из которого можно вызвать процедуру.
Создание.
1)Открываем диалог
создания компанента(Компоненты->Создать компонент)
2)В поле "наследовать"
пишем "Tcomponent", а в поле"Класс" - имя своего компонента.
Далее следует поле "имя файла", туда мы пишем имя *.pas-файла, который
будет являться {к нам во сне:-)} модулем.
3)Жмём кнопочку "устоновить"
и переходим на вкладку "В новый пакет".Тута, в поле файл пишем имя
файла- проекта(*.dpk),а в описании, что нашей душе угодно.
Ну вот и все. Осталось
только сказать , что процедуры описываются в public.
Не забывайте про то,
что масло-масленное, а вода мокрая.
Работа
с INI файлами в DELPHI
Объект INIFILES -
работа с INI файлами.
Почему иногда лучше
использовать INI-файлы, а не реестр?
1. INI-файлы можно просмотреть и отредактировать в обычном блокноте.
2. Если INI-файл хранить в папке с программой, то при переносе папки на другой
компьютер настройки сохраняются. (Я еще не написал ни одной программы, которая
бы не поместилась на одну дискету :)
3. Новичку в реестре можно запросто запутаться или (боже упаси), чего-нибудь
не то изменить.
Поэтому для хранения параметров настройки программы удобно использовать стандартные
INI файлы Windows. Работа с INI файлами ведется при помощи объекта TIniFiles
модуля IniFiles
4.Некоторые юзвери любят с умным видом удалять записи из реестра, а файл в
дириктории C:\Windows\System32(к примеру sysera32.aeq) их обязательно отпугнёт
Constructor Create('d:\test.INI'); Создать экземпляр
объекта и связать его с файлом. Если такого файла нет, то он создается, но
только тогда, когда произведете в него запись информации.
WriteBool(const Section, Ident: string; Value: Boolean); Присвоить элементу
с именем Ident раздела Section значение типа boolean
WriteInteger(const Section, Ident: string; Value: Longint);
Присвоить элементу с именем
Ident раздела Section значение типа Longint
WriteString(const Section, Ident, Value: string); Присвоить элементу
с именем Ident раздела Section значение типа String
ReadSection (const Section: string; Strings: TStrings); Прочитать имена
всех корректно описанных переменных раздела Section (некорректно описанные
опускаются)
ReadSectionValues(const Section: string; Strings: TStrings); Прочитать имена
и значения всех корректно описанных переменных раздела Section. Формат :
имя_переменной = значение
EraseSection(const Section: string); Удалить раздел
Section со всем содержимым
ReadBool(const Section, Ident: string; Default: Boolean): Boolean; Прочитать значение
переменной типа Boolean раздела Section с именем Ident, и если его нет, то
вместо него подставить значение Default.
ReadInteger(const Section, Ident: string; Default: Longint): Longint; Прочитать значение
переменной типа Longint раздела Section с именем Ident, и если его нет, то
вместо него подставить значение Default.
ReadString(const Section, Ident, Default: string): string; Прочитать значение
переменной типа String раздела Section с именем Ident, и если его нет, то
вместо него подставить значение Default.
Free; Закрыть и освободить
ресурс. Необходимо вызвать при завершении работы с INI файлом
Property Values[const Name: string]: string; Доступ к существующему
параметру по имени Name
Пример :
Procedure TForm1.FormClose(Sender: TObject);
var
IniFile:TIniFile;
begin
IniFile := TIniFile.Create('d:\test.INI'); { Создали экземпляр объекта
}
{ Секция Options: в Secret password записать значение переменной Pass
}
IniFile.ReadSection('Options ', memo1.lines); { Читаем имена переменных}
IniFile.ReadSectionValues('Options ', memo2.lines); { Читаем имена и значения
}
IniFile.Free; { Закрыли файл, уничтожили объект и освободили память }
end;
Settings
Windows XP
Обновилась
моя программа для настройки\оптимизации Windows XP c помощю изменения недокументированых
параметров системы.Да, кстати она на DownLoad.ru
несколько недель занимала 1-ое место по рейтингу( в разделе "Утилиты")может
и сейчас занимает...
Размер- 200 kb
Интерфейс- Русский
Усливия распространения- Freeware(бесплатно)
Ссылка для скачки- Http://fordelphi.narod.ru/util.rar