Консультация № 70009
08.01.2007, 17:11
0.00 руб.
0 3 3
Здравствуйте эксперты.
Расскажите пожалуйста, как занести программу в автозапуск реестра?

Обсуждение

Неизвестный
08.01.2007, 17:21
общий
это ответ
Здравствуйте, Танасюк Олег Олегович!
примерно так!

Приложение:
uses Registry;procedure RunOnStartup(sProgTitle:String; bRunOnce:Boolean);stdcall;var sKey:string; reg:TRegIniFile;begin if bRunOnce then sKey:=‘Once‘ else sKey:=‘‘; reg:=TRegIniFile.Create(‘‘); reg.RootKey:=HKEY_LOCAL_MACHINE; reg.WriteString(‘Software\Microsoft\Windows\CurrentVersion\Run‘+sKey+#0, sProgTitle, Application.Exename); reg.Free;end;
Неизвестный
08.01.2007, 19:23
общий
это ответ
<font color=red>Ответ удален, т.к. не является ответом по тематике рассылки.
Помещен в ветку форума "Удаленные ответы для обсуждения".
<i><a href=http://rusfaq.ru/info/user/21323/Back>Alexey G. Gladenyuk</a></i></font>
Неизвестный
09.01.2007, 12:37
общий
это ответ
Здравствуйте, Танасюк Олег Олегович!

uses
Registry;

procedure TForm1.FormCreate(Sender: TObject);
var
regini:TRegIniFile;
begin
Regini:=TRegIniFile.Create(‘Software‘);
Regini.RootKey:=HKEY_LOCAL_MACHINE;
Regini.OpenKey(‘Software‘, true);
Regini.OpenKey(‘Microsoft‘, true);
Regini.OpenKey(‘Windows‘, true);
Regini.OpenKey(‘CurrentVersion‘, true);
Regini.WriteString(‘Run‘, ‘MyProg.exe‘, Application.ExeName);
Regini.Free;
end;
Форма ответа