Статьи по Делфи
Меню сайта


Категории каталога
Мои статьи [2]
Функции и процедуры Win Api [20]
Работа с мышью [10]
Реестр и Делфи [11]
Работа с файлами [38]
Делфи и Хакер [10]
Инсталлятор собственными руками [6]
Хитрости в делфи [3]
Работа с системой [19]


Форма входа


Поиск по каталогу


Друзья сайта


Наш опрос
Понравились ли вам треки
Всего ответов: 156


Приветствую Вас, Гость · RSS 2020-09-19, 10:11 PM
Начало » Статьи » Реестр и Делфи

Помещение записи в одну из секций автозапуска реестра
type
THKEYTarget = (htLocalMachine, htCurrentUser);
type
TSectionTarget = (stRun, stRunOnce, stRunOnceEx);

function StoreToRunSection(HKEYTarget: THKEYTarget;
SectionTarget: TSectionTarget; Name, Data: string): boolean;
var
Reg: TRegistry;
Section: string;
begin
Result := TRUE;
try
reg := TRegistry.Create;
if HKEYTarget = htLocalMachine then
reg.RootKey := HKEY_LOCAL_MACHINE;
if HKEYTarget = htCurrentUser then
reg.RootKey := HKEY_CURRENT_USER;
if SectionTarget = stRun then
Section := 'Run';
if SectionTarget = stRunOnce then
Section := 'RunOnce';
if SectionTarget = stRunOnceEx then
Section := 'RunOnceEx';
reg.LazyWrite := false;
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\' + Section, false);
reg.WriteString(Name, Data);
reg.CloseKey;
reg.free;
except RESULT := FALSE;
end;
end;

// Пример использования:

begin
StoreToRunSection(htLocalMachine, stRun, 'Имя программы',
application.exename);
end;
Категория: Реестр и Делфи | Добавил: Admin (2006-12-17)
Просмотров: 1113 | Рейтинг: 0.0 |

Всего комментариев: 0
Имя *:
Email *:
Код *: