Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c