Консультация № 161699
01.03.2009, 15:33
0.00 руб.
0 1 1
здраствуйте! помогите пожалуйста: нужно программу добавить в автозагрузку и проверять наличие её там, и если нет - добавлять
PS используется форма, т.е. код нужно добавить к программе....
сам ставил, использовал uses но не стало находить этап Application.CreateForm(TForm1, Form1);

Обсуждение

давно
Студент
15716
139
02.03.2009, 02:40
общий
это ответ
Здравствуйте, Алексей Тёмный!

Простой код процедуры в приложении. в Uses добавить модуль Registry;
Также выложил исходный текст программы для вашего удобства.
http://drive.stream24.ru/10811235/

Приложение:
procedure TForm1.btn1Click(Sender: TObject);
var
reg : TRegistry;

begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CURRENT_USER; // Только для текущего польхователя или HKEY_LOCAL_MACHINE для всех
reg.OpenKey('Software', False);
reg.OpenKey('Microsoft', False);
reg.OpenKey('Windows', False);
reg.OpenKey('CurrentVersion', False);
reg.OpenKey('Run', False);
if not reg.ValueExists('MyProgram') then
reg.WriteString('MyProgram','C:\MyProgram.exe')
else
ShowMessage('Программа уже есть в автозагрузке');
reg.CloseKey;
FreeAndNil(reg);
end;
Форма ответа