как добавить програму в автозагрузку

[marscom]

Нашёл в интернете следующий код:
procedure SetAutoRunWinIni(SetAuto:boolean);
var
Warn:string;// флаг контроля, чтобы не запускалось много раз
begin
INI:=TIniFile.Create('Win.ini');
if SetAuto then
begin
INI.ReadString('windows','run',Warn );
if Warn<>Application.ExeName then
INI.WriteString('windows', 'run',Application.ExeName);
end
else
INI.DeleteKey('windows', 'run');
INI.Free;
end;
По этому коду в файл Win.ini должна добавится секция [Windows]
Открываю файл секции нет но происсходит запись в реестр, но это не главное, главное в том что при старте системы выдаётся ошибка типа Windows не смогла найти файл 'C:\Doсuments' тоесть путь воспринимаетсся как имя файла жму OK далее Windows не смогла найти файл 'and' и так далее хотелосьбы разобратьсся с этим кодом Спасибо!!

[Dozent]

порылся в своих кодах парулетней давности
вроде нашёл

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,ShellAPI, StdCtrls,registry, ExtCtrls,MMSystem, ComObj;

{*************************avtoexe***************}

procedure TForm1.FormCreate(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\CurrentVersion\Run',
      false);
    reg.WriteString('My App', Application.ExeName);
    reg.CloseKey;
    reg.free;
  except
    if Assigned(Reg) then Reg.Free;

  end;

end;

[uberchel]

Вот еще :

procedure WriteRun(AppName: string; on: integer);
var
 Reg: TRegistry;
begin
 Reg := tregistry.create;
 with Reg do begin
 RootKey := hkey_current_user;
 OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',false);
 if on = 1 then
 WriteString('AppName', paramStr(0))
else
 DeleteKey('AppName');
end;
 Reg.CloseKey;
 Reg.Free;
end;

Пример использования:

procedure TForm1.Button1Click(Sender: TObject);
begin
if checkbox1.Checked = true 
then
WriteRun('App',1) //Записать
else 
WriteRun('App',0);//Убрать
end;

Помог ? если да, то нажмите на весы слева =)