Текущий архив: 2003.04.07;
Скачать: CL | DM;
Вниз
For gruener Найти похожие ветки
← →
___ALex___ © (2003-03-25 20:56) [0]program Primer;
uses
Registry;
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
if reg.OpenKey("Software\Microsoft\Windows\CurrentVersion\Run", False) then begin
reg.WriteString("My program", Application.ExeName);
reg.CloseKey;
end;
reg.Free
end;
← →
OxOTHuK (2003-03-25 22:12) [1]хм... товарищ.. а что тебя не устраивает?? в чем проблема... или ты решил с нами поделиться своим замечательным кодом?
а вообще reg.OpenKey("Software\Microsoft\Windows\CurrentVersion\Run", False) then begin
reg.WriteString("My program", Application.ExeName);
reg.CloseKey;
я бы так не стал делать... по крайней мере выбросил бы IF
У тебя также может не устанавливаться корневая секция ROOTKEY... добавь в раздел uses модуль Windows....
ответил я на твои нвысказанные вопросы? =) если да... то я просто шаман какой-то ;)
← →
___ALex___ © (2003-03-25 23:03) [2]это было для одного парня написано
ему пример нужен был
вот и всё
я сам вообще с реестром через винапи работаю
модуль Registry много памяти жрёт
Страницы: 1 вся ветка
Текущий архив: 2003.04.07;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.022 c
