после автозагрузки программа не работает

[Kos123]

Помогите разобраться
Взял с этого форума исходник "добавление ярлыка в автозагрузку"
Все работает, но после добавления ярлыка или рестарта системы (запускается моя прога)
моя программа не может найти сторонние файлы (базы данных, изображения и т.п.),

(этого адреса и не должно быть)
а если запускать вручную то все нормально.
Что ей не хватает при автостарте или после добавления ярлыка???

...
var
{автозагрузка}
Folder : array[0..255] of Char; // путь к StartUp
List : PItemIDList; // список специальных папок
dir : string; // путь к папке проги

...
implementation

uses Unit2, Unit3, Unit4, Unit5;

{$R *.dfm}

// СОЗДАНИЕ ЯРЛЫКА
procedure CreateLink(const PathObj, PathLink, Desc, Param : string);
var
IObject : IUnknown;
SLink : IShellLink;
PFile : IPersistFile;
begin
IObject := CreateComObject(CLSID_ShellLink);
SLink := IObject as IShellLink;
PFile := IObject as IPersistFile;
with SLink do
begin
SetArguments(PChar(Param));
SetDescription(PChar(Desc));
SetPath(PChar(PathObj));
end;
PFile.Save(PWChar(WideString(PathLi nk)), false);
end;

...
procedure TGlavForm.FormCreate(Sender: TObject);
begin
{вернуть путь к папке проги}
dir := ExtractFilePath(ParamStr(0));
end;

...
procedure TGlavForm.Windows1Click(Sender: TObject);
begin
// АВТОЗАПУСК
{установить}
if Windows1.Checked = true then
begin
{создать ярлык}
CreateLink(dir + '\K_05.exe', dir + 'Quick Start.lnk', '', '');
{найти папку StartUp}
SHGetSpecialFolderLocation(0, CSIDL_STARTUP, List);
FillChar(Folder, SizeOf(Folder), 0);
SHGetPathFromIDList(List, @Folder);
{перейти в директорию StartUp}
ChDir(Folder);
{копировать файл}
CopyFile(PChar(ExtractFilePath(Para mStr(0)) + 'Quick Start.lnk'), 'Quick Start.lnk', true);
ShowMessage('Программа добавлена в автозагрузку !');
{удалить ярлык из папки проги}
DeleteFile(ExtractFilePath(ParamStr (0)) + 'Quick Start.lnk');
end
else
{удалить}
begin
{найти папку StartUp}
SHGetSpecialFolderLocation(0, CSIDL_STARTUP, List);
FillChar(Folder, SizeOf(Folder), 0);
SHGetPathFromIDList(List, @Folder);
{перейти в папку StartUp}
ChDir(Folder);
{удалить файл}
DeleteFile('Quick Start.lnk');
ShowMessage('Программа удалена из автозагрузки !');
end;
end;

[uberchel]

Зачем столько писанины ?

uses
 Registry, ComObj ,ShlObj, ActiveX;

...

function MakeStartupLink(Name, ExeName, WorkingDir: String; Create: Bool): Boolean;
var
  R: HRESULT;
  Reg: TRegIniFile;
  AObject: IUnknown;
  SLink: IShellLink;
  PFile: IPersistFile;
  FileName: WideString;
begin
  AObject:= CreateComObject(CLSID_ShellLink);
  SLink:= AObject as IShellLink;
  PFile:= AObject as IPersistFile;
 try
  with SLink do begin
   SetArguments('');
   SetPath(PChar(ExeName));
   SetWorkingDirectory(PChar(WorkingDir));
  end;
  Reg:= TRegIniFile.Create('Software\MicroSoft\Windows\CurrentVersion\Explorer');
  FileName:= Reg.ReadString('Shell Folders', 'Startup', '')+ '\' + Name + '.lnk';
  if Create then
   R:= PFile.Save(PWChar(FileName),TRUE)
  else DeleteFile(FileName);
 finally
  Result:= True;
  Reg.Free;
 end;
end;

//Применение
procedure TForm1.btn1Click(Sender: TObject);
begin
 if Windows1.Checked  then
 MakeStartupLink('Uberchel',ParamStr(0),'C:\',True) //Создать
 else
 MakeStartupLink('Uberchel',ParamStr(0),'C:\',False); //Удалить
end;

[Kos123]

за краткость спасибо но ошибка всеравно выскакивает

[Stilet]

Кросспост.
Закрыто.