запись программы в автозапуск

[zetrix]

Gambler
Привет всем!!! Я не очень силен в Delphi, и поэтому у меня возник такой вопрос: Какой командой можно копировать EXE-шник или ярлык на него в системный автозапуск.

Virtson
Нужно создать ключ в реестре:
begin
regopenkeyex(HKEY_CURRENT_USER,'SOF TWARE\Microsoft\Windows\CurrentVers ion\Run',0,KEY_ALL_ACCESS, hk);
regsetvalueex(hk,'Super Proga ',0,REG_SZ, pchar(paramstr(0)),255);
regclosekey(hk);
end

zetrix
Через winapi да так, но для начинающего и так сойдёт:

var
reg:Tregistry;
begin
reg:=Tregistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('Software\Microsoft\Win dows\CurrentVersion\Run',false);
reg.WriteString('имя проги (любое)','Путь к исполняемому файлу');
reg.Free;
end;

[Svop]

[Error] Unit11.pas(42): Undeclared identifier: 'hk'

ВотЮ что он пишет, когда я пробую первый пример.

[SuperVisor]

[quote=Svop;1041][Error] Unit11.pas(42): Undeclared identifier: 'hk'[\quote]
не удивительно, 'hk' - переменная Тип - Cardinal, значения:
HKEY_CLASSES_ROOT
HKEY_CURRENT_USER
HKEY_LOCAL_MACHINE
HKEY_USERS

[Svop]

А можно пжалста пример привести?

reg:Tregistry;
ошибку пишет:
[Error] Unit11.pas(31): Undeclared identifier: 'Tregistry'
а на каждую последующую строку пишет:
reg:=Tregistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('Software\Microsoft\Win dows\CurrentVer sion\Run',false);
reg.WriteString('имя проги (любое)','Путь к исполняемому файлу');
reg.Free;

[Error] Unit11.pas(39): Missing operator or semicolon

Но точка с запятой стоят.

И еще. Второй кусок кода совать куда надо?
В форму или?

можно кому-нибудь сорсы кинуть, автозапуск сделаете, а?

[zetrix]

можно кому-нибудь сорсы кинуть, автозапуск сделаете, а?

Смотря сколько весят сорсы. Вложи в эту тему.

А ошибка потому что в uses надо дописать Registry
Про какой 2-ой кусок кода ты говоришь? Предложено 2 варианта: через winAPI и ... не через winAPI

[Svop]

regopenkeyex(HKEY_CURRENT_USER,'SOF TWARE\Microsoft \Windows\CurrentVersion\Run',0,KEY_ ALL_ACCESS, hk);

[Error] Unit11.pas(113): Types of actual and formal var parameters must be identical

var
hk:cardinal;

Че за фака?

[SuperVisor]

Сообщение от Svop

А можно пжалста пример привести?

reg:Tregistry;
ошибку пишет:
[Error] Unit11.pas(31): Undeclared identifier: 'Tregistry'

В заголовке Uses пропиiи registry!!!

Сообщение от Svop

можно кому-нибудь сорсы кинуть, автозапуск сделаете, а?

Не ленись!!!

[Svop]

Project Lost.exe raised exception class ERegistryException with message 'Failed to set data for lsas'. Process stopped. Use Stop or Run to continue.

Нету ошибок в написании. Но при запуске выдает такое.(lsas - имя проги, которое я выбрал)

[Svop]

решилась проблема. теперь вопрос: как автозапуск прописать, если юзер сам записывает файл на хард и не известна дериктория.

[zetrix]

Svop, измени своё сообщение, и поясни что ты делал не так (для этого и созданы форумы).

как автозапуск прописать, если юзер сам записывает файл на хард и не известна дериктория.

Что за вирус/прикол пишем?
Лично я делал так: когда пользователь запускает твою прогу, прога копирует сама себя куданибудь подальше (windows\system32\...) и прописывает в автозапуск уже свою копию.