Информация о пользователе

Логин: Squall
ФИО: 
E-mail: Squall2007@yandex.ru
ICQ UIN: 447086379
Сайт: 
Статус: пользователь

Закачанные исходники

squallregistry.zip  (1370 байт)
Посмотреть содержимое

Squall : 2008-01-01 20:04:52

Delphi - Модули

Модуль, существенно облегчающий работу с реестром. Понимает относительные пути к реестру.
Пример. Вы можете использовать стандартный модуль Registry, и тогда код добавления ключа в реестр будет следующим.

procedure TForm1.Button1Click(Sender:TObject);
var reg: TRegistry.Create;
begin
reg := TRegistry.Create;
reg.RootKey := hkey_local_machine;
reg.OpenKey('Software\MyCompany\MyApplication',True);
reg.WriteString('TestKey','TestValue');
reg.CloseKey;
reg.Free;
end;

Тоже самое можно сделать, используя SquallRegistry так:

procedure TForm1.Button1Click(Sender:TObject);
begin
RegWriteString('HKLM\Software\MyCompany\MyApplication\TestKey',TestValue);
end;

Любая операция с реестром выполняется одним методом. В модуле следующие методы:
function RegGetRoot(regpath: string): hkey;
function RegValueName(regpath: string):string;
function RegValueExists(regpath: String):Boolean;
function RegDeleteValue(regpath: string): Boolean;
function RegWriteString(regpath: String; value: String):Boolean;
function RegWriteInt(regpath: String; value: Longint):Boolean;
function RegWriteBool(regpath: String; value: boolean):Boolean;
function RegReadInt(regpath: String; def:Int64):Int64;
function RegReadBool(regpath: String; def:Boolean):Boolean;
function RegReadString(regpath: String; def: String):String;
function RegGetValueNames(regpath: string; strings: TStrings):Boolean;
function RegGetKeyNames(regpath: string; strings: TStrings):Boolean;
function RegGetDataType(regpath: string): TRegDataType;

Путь реестра - это путь к ключу или параметру в реестре. Задается он следующим образом:
[rootkey]/[mainkey]/[valuename]
В качестве rootkey используется не полное название, а сокращение. Вот сокращения всех корневых ключей:
HKLM = HKEY_LOCAL_MACHINE
HKCU = HKEY_CURRENT_USER
HKCR = HKEY_CLASSES_ROOT
HKU = HKEY_USERS
HKPD = HKEY_PERFORMANCE_DATA
HKCC = HKEY_CURRENT_CONFIG
HKDD = HKEY_DYN_DATA

E-mail: Squall2007@yandex.ru

Скачать

Комментарии (0) 1483 скачиваний

game15.zip  (16499 байт)
Посмотреть содержимое

Squall : 2008-01-01 19:26:00

Delphi - Игры

Исходник игры "Пятнашки".

E-mail: Squall2007@yandex.ru

Скачать

Комментарии (0) 3585 скачиваний

colorrow.zip  (7939 байт)
Посмотреть содержимое

Squall : 2007-12-29 12:31:48

Delphi - Компоненты

Компонент ColorRow представляет из себя мини-палитру из десяти цветов(которые можно задать). В любой момент времени выбран какой-то цвет. Таким образом можно не использовать каждый раз ColorDialog, а повесить на форму ColorRow. В архиве кроме самого компонента содержится тестовое приложение.

E-mail: Squall2007@yandex.ru

Скачать

Комментарии (0) 1151 скачиваний