[killerkill]

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

[zip000]

Самый простой способ (на мой взгляд) прописать путь к ЕХЕшнику в реестре в разделе HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\Run. Создаешь строковой параметр с любым именем, и записываешь в его зачение путь к своему ЕХЕ. Работа с реестром через обьект TRegistry, в список Uses надо добавить модуль Registry.

[zip000]

И да, доступ на запись в раздел HKEY_LOCAL_MACHINE только под учетной записью с правами админа, насколько я знаю

[zip000]

Вот пример функции, добавляющей ЕХЕшник в автозапуск

uses
Registry;

function AddExeToAutoRun : Boolean;
var
reg : TRegistry;
begin
Result := False;
reg := TRegistry.Create;
try
if reg.OpenKey('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft \Windows\CurrentVersion\Run', True) then begin
reg.WriteString('MyEXE', ParamStr(0));
Result := True;
end;
finally
reg.Free;
end;
end;

[killerkill]

а куда именно вставлять эту функцию?(я в них почти не разбираюсь)

[Winny]

А можно и без функций. Вот:

Код:

uses Registry;

procedure TForm1.Button1Click(Sender: TObject);
var
reg:TRegistry;
begin
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
if reg.KeyExists('Software\Microsoft\Windows\CurrentVersion\Run') then 
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',false); 
reg.WriteString('Your Program','"'+Application.ExeName+'"'); 
reg.CloseKey;
reg.CloseKey;
reg.Free;
if not reg.KeyExists('Software\Microsoft\Windows\CurrentVersion\Run') then
reg.Free;
end;

end.

[zip000]

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

function AddExeToAutoRun : Boolean;
begin
.............
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
if AddExeToAutoRun then
ShowMessage('Файл был добавлен в автозапуск.');
end;

Winny if reg.KeyExists необязательно проверять, т.к. если второй параметр reg.OpenKey установить True, то открываемый раздел будет автоматом создан если его не существует.

[Winny]

Спасиб zip000 возьму на заметку

[zip000]

Кстати Winny твой код не совсем корректен надо так

if reg.KeyExists then begin
.......
end else
reg.Free;

Т.к. обращение к удаленному обьекту это не есть хорошо

[Winny]

Ещё раз спасибо )))

[killerkill]

блин....
когда windows запускаеться моя программа запускается, но выдаёт ошибку!(что то с адресом). Заглянул в реестр всё нормально... НЕЗНАЮ ЧТО ДЕЛАТЬ! *?????

[Dimanus]

Что то у вас не клеется, сколько наблюдаю за вашим диалогам. Попробуй так:
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\Windows\CurrentVer sion\Run',
false);
reg.WriteString('My App', Application.ExeName);
reg.CloseKey;
reg.free;
except
if Assigned(Reg) then Reg.Free;
end;
end;
Это от админа, а отпользвателя меняешь
reg.RootKey := HKEY_CURRENT_USER;

[killerkill]

Короче(дело к ночи)
я понял в чём проблема.

Когда моя программа запускается, она создает иконку в трее с адресом иконки :"./icon2.ico". Если программу запустить в ручную все работает! Но если через авто запуск, то выдается ошибка о том что файл (C:\Documents and Settings\user\icon2.ico) нельзя найти ! Спрашивается: какого х... он ставит этот каталог("C:\Documents and Settings\user\") и как это исправить? Спасибо...

[Winny]

Даже не знаю... У меня с моим кодом всё работает. Я тебе скажу одно, убери из программы функцию сворачивания в трей и всё будет ОК.

[killerkill]

нельзя! это фишка моей программы.
Как я понял надо задать начальный каталог чтоли.....