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....
ответил я на твои нвысказанные вопросы? =) если да... то я просто шаман какой-то ;)

это было для одного парня написано
ему пример нужен был
вот и всё
я сам вообще с реестром через винапи работаю
модуль Registry много памяти жрёт

For gruener Найти похожие ветки