Засунуть в реестр

[Scooby]

Как сделать в delphi 7 так, чтобы программа при первом запуске засовывала сама себя в реестр и автозагрузку?

[Kuzmich]

Так работай с классом TRegistry...

Там все очень просто...

В интернете много инфы, посмотри...

[Scooby]

Kuzmich

Так работай с классом TRegistry...

я знаю, что надо работать с трегистри... но мне нужны точные команды

[Kuzmich]

var

...

reg:TRegistry;

begin

...

reg:=TRegistry.Create;

reg.RootKey:=HKEY_LOCAL_MACHINE;

reg.OpenKey('следующий ключ',true);

reg.OpenKey('еще ключ',true);

reg.OpenKey('и еще',true);

...

reg.WriteString('параметр 1','значение 1');

reg.WriteString('параметр 2','значение 2');

reg.WriteString('параметр 3','значение 3');

Параметры для текущего ключа...

Этого хватит для твоей задачи...

Остальные ухищрения ищи в интернете или покупай книжку...

Надеюсь, сам знаешь, где инфа о программе обычно должна прописываться, а где автозагрузка...

[AciD]

Scooby

я знаю, что надо работать с трегистри... но мне нужны точные команды

А что, хелп уже сегодня не читают?....

[DarkDaemon]

нет бы конкретно помочь, один флейм...

Scooby

можешь работать через класс TRegistry, например:

uses Regisrty; // модуль с классом TRegistry...var R: TRegistry;...R := TRegistry.Create;R.RootKey := HKEY_LOCAL_MACHINE;R.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', true);R.WriteString('MyApp', 'MyApp.exe'); // обрати внимание на параметры!!!R.Free

или, например, что более быстро и IMHO правильнее, через WinAPI:

var R: HKEY; S: String; ...RegOpenKeyEx(HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Run', 0, KEY_SET_VALUE, R);S := 'MyApp.exe'; // тут путь к твоей программеRegSetValueEx(R, 'MyApp', 0, REG_SZ, PAnsiChar(S), length(S));RegCloseKey®;

[Гость X-MASTER]

Kuzmich сказал правильно :D

Хотя есть очень много методов а для этого Scooby есть поисковики