Автозапуск, Delphi

[Gorychev]

допустим если программа использует файлы лежащие в себя директории , после добавления в автозапуск, она сможет эти фалйы найти?

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

ChDir(ExtractFileDir(Application.ExeName)+ '\Data');

[Рамик]

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

ChDir(ExtractFileDir(Application.ExeName)+ '\Data');

можно подробней? куда это прописывать?

[Gorychev]

можно подробней? куда это прописывать?

Перед тем как вы будите использовать какие либо ресурсы, например файлы, прописывайте эту строку.
Например, если нужно считать\записать что либо из файла находящегося в директории в которой находится екзешник, то:

ChDir(ExtractFileDir(Application.ExeName)); 
... Операции с файлом ...

Что до файлов, то лучше перед их использованием проверить их наличие с помощью функции fileexists.

ChDir(ExtractFileDir(Application.ExeName)); 
if fileexists('test.txt')then begin
... Операции с файлом ... 
end else 
  showmessage('File no found!!!');

[Рамик]

а ту часть кода где я прописываю в регистр...ее оставлять?

[Gorychev]

а ту часть кода где я прописываю в регистр...ее оставлять?

Да. Если перед использованием ресурсов вы нужную папку сделаете текущей, т.е. перейдете в её, то проблем не будет.
Если у вас сразу при запуске проги происходит обращение к ресурсам, то вставьте ChDir в onFormCreate (перед операциями с ресурсами) или в *.dpr файл засуньте.

[Рамик]

спасибо!
не подскажите как дату записать в файл?

а не все разобрался...

ChDir(ExtractFileDir(Application.Ex eName)+ '\Data');

DAta это что? обязательно указывать?

[Gorychev]

DAta это что? обязательно указывать?

Нет. data - в смыле папка в которой находятся какие-то данные, не нравится Data, дайте др. название.
Расмотрим 2 примера: 1 - в одной папке с екзешником находится файл test.txt, тогда:

ChDir(ExtractFileDir(Application.ExeName)); 
if fileexists('test.txt')then begin
... Операции с файлом ... 
end else 
  showmessage('File no found!!!');

2й - в папке с екзешником есть папка Files, а в ней находится файл test.txt, тогда:

ChDir(ExtractFileDir(Application.ExeName) + '\Files'); 
if fileexists('test.txt')then begin
... Операции с файлом ... 
end else 
  showmessage('File no found!!!');

[Рамик]

все понятно! спасибо вам большое!

а если программу удалить, система не будет жаловаться?(я про автозапуск)

[Stilet]

Не должна. Как правило удаленные проги пропускаются.

[Вавел из ГМТУ]

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

Не должна. Как правило удаленные проги пропускаются.

Разве? а помоему она ругнётся что мол "Бла бла бла не найден...."
Надо бужет проверить.... но если мне память не изменяет то ругается.