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

[Terran]

Пропись в реестр:
Путь к проге прописывается сам!

uses
 Registry...

procedure TForm1.FormCreate(Sender: TObject);
Var
RegIni:TregIniFile;
Begin
RegIni:=TregIniFile.Create('Software');
RegIni.RootKey:=HKEY_LOCAL_MACHINE;
RegIni.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion', True);
RegIni.WriteString('Run' , 'Project1.exe', Application.ExeName);
RegIni.Free;
End;

Удаление:

procedure TForm1.FormCreate(Sender: TObject);
Var
RegIni:TregIniFile;
Begin
RegIni:=TregIniFile.Create('Software');
RegIni.RootKey:=HKEY_LOCAL_MACHINE;
RegIni.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', True);
RegIni.DeleteValue('Project1.exe');
RegIni.Free;
end;

[Ярослав]

Код работает при компиляции проги (F9)
сохраняю в (.ЕХЕ) формате прога работает не правильно (при загрузке запускает папку D:\программы).
Проверти мой исходник плис. У кого такая ошибка может только у меня?

[Terran]

Код программы правильный. У меня она нормально работает и запускается.
Скорее свего у тя в вреестре в автозагрузке какие то лишние ключи висят. Ты можеш запустить RegEdit в папке Windows и вручную посмотреть что там к чему.

[Лубышев]

помойму все правильно, но можешь попробовать и вот так

uses   
 Registry...
...
procedure TForm1.FormCreate(Sender: TObject);
var reg:tregistry;
begin
Reg:=TRegIniFile.Create();
Reg.RootKey:=HKEY_Local_Machine;
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', true);
reg.WriteString('ProgramName', 'C:\Program.exe');
reg.Free;
end;

Это почти тоже самое
в строке
reg.WriteString('ProgramName', 'C:\Program.exe');

первый параметр - имя второй-путь к файлу

если очень интересно, то существует множествуо способов
прописать можно в реестре как минимум в 4 местах
можно в автозапуск
можно через ini
можно програмно
можно ручками
можно с помощью reg файла
можно через java-скрипты или другие (хороши тем, что кликнул и не каких запросов нет.)
Существует еще много способов, сейчас все не помню, но если интересует, могу помочь, удачи...

[Ярослав]

Сообщение от Лубышев

если очень интересно, то существует множествуо способов
прописать можно в реестре как минимум в 4 местах
можно в автозапуск
можно через ini
можно програмно
можно ручками
можно с помощью reg файла
можно через java-скрипты или другие (хороши тем, что кликнул и не каких запросов нет.)
Существует еще много способов, сейчас все не помню, но если интересует, могу помочь, удачи...

Переименовал папку программы всё работает
Расскажи пожалуйста если несложно можно с примерами желательно с рабочими

[Лубышев]

Мы как раз обсуждаем это в блок "Операционные системы" тема "Посоветуйте книгу о системном реестре" Там много литературы на эту тему. но если не хочешь искать могу в кратце описать несколько способов.

[Ярослав]

прописать можно в реестре как минимум в 4 местах

В каких местах?

можно в автозапуск

В смысли (C:\Documents and Settings\All Users\Главное меню\Программы\Автозагрузка)

можно через ini

можно программно
можно ручками
можно с помощью reg файла

Опиши если не сложно Если можно с примером

[Лубышев]

Ручками(ручной режим) - самый простой. Добавить инфу в реестр вручную
открыть редактор реестра(ПУСК->Выполнить->regedit)
Выбрать ключ HKEY_LOCAL_MACHINE
открыть ветвь: SOFTWARE\Microsoft\Windows\CurrentV ersion\Run
и добавить запись. В качестве параметра использовать путь к файлу
________________
Так же можно задать через другую ветку в этом же ключе:
SOFTWARE\Microsoft\Windows\CurrentV ersion\RunOnce
Отличие лишь в том, что в RunOnce программа при запуске windows запускается лишь один раз,
при перезапуске windows программа не запустится (часто используют это инсталяторы, для продолжения
установки после перезагрузки)
_________________
Так же можно это сделать из другого ключа: HKEY_CURRENT_USER
Там точно так же есть две такие же ветви:
SOFTWARE\Microsoft\Windows\CurrentV ersion\Run
SOFTWARE\Microsoft\Windows\CurrentV ersion\RunOnce
_________________
Но можно и не париться, есть способ через reg файл
Отькрой блокнот и напиши там:

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]

"data"="C:/program.exe"

последняя строчка у тебя будет своя
Главное соблюдать все пробелы.И оставлять пустые строчки как показано.
Затем все это дело сохранить например как Run.reg
создастся файл реестр. Кликни по нему жми ok и все готово.
(Кстати, можно не только запускать так программы - реестр очень полезная вешь,
все твикеры и другие программы "усовершенствующие ОС работуют с реестром.

Есть и другие способы...

[Ярослав]

Большое Спасибо Лубышев

[Rahim1993]

Попробуй этот код:

uses Registry;

procedure TForm1.Button1Click(Sender: TObject);
var
reg: TRegistry;
begin
Reg := nil;
try
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.LazyWrite := false;
reg.OpenKey('Software\Microsoft\Win dows\CurrentVersion\Run',
false);
reg.WriteString('My App', Application.ExeName);
reg.CloseKey;
reg.free;
except
if Assigned(Reg) then Reg.Free;
end;
end;