Автозагрузка программы с базой

← →
Radiy (2002-10-13 19:39) [0]

Доброго время суток мастера!
Вот такой простой вопрос.
Почему, когда программа в автозагрузке через реестр т.е.
HKEY_LOCAL_MACHINE/Software/Windows … /Run/ proga.exe
То почему-то при загруке Windows прога не находит
Базу данных (vvv.mdb) , пишет - not fount vvv.mdb
И открывается прога естественно пустая.
У а если запустить прогу вручную с того-же места
То все работает отлично.
Подскажите пожалуйсто, в чем дело ?

← →
Anatoly Podgoretsky © (2002-10-13 19:49) [1]

Именно так и написано?
Интересно, где же это proga.exe лежит, да и формат больно поход на описание ключа а не параметра, приведи точный синтаксис

← →
Radiy (2002-10-14 05:54) [2]

Точно говорю,там илежит программа т.е.
HKEY_LOCAL_MACHINE/Software/Windows … /Run/C:\Program Files\super\ proga.exe

То почему-то при загруке Windows прога не находит
Базу данных (vvv.mdb) , пишет - not fount vvv.mdb,
база лежит рядом!
И открывается прога естественно пустая.
Ну а если запустить прогу вручную с того-же места
То все работает отлично.
Подскажите пожалуйсто, в чем дело ?

← →
Radiy (2002-10-14 07:22) [3]

Что нужно прописать в проге, чтоб работало?

← →
DarkGreen © (2002-10-14 08:40) [4]

Каталог текущий прописать нужно. Создай ярлык на свою прогу, укажи я ярлыке текущий каталог, и запускай свою прогу через ярлык а не через командную строку.

← →
Wolf226 © (2002-10-14 09:43) [5]

Зачем делать ярлык? Береш Application.exename - вытягиваешь путь,
добавляешь к имени базы и все заработает без никаких ярлыков.

← →
Radiy (2002-10-14 11:17) [6]

> Wolf226
> Береш Application.exename - вытягиваешь путь,...

А можно по подробнее?
(пожалуйсто)

← →
Radiy (2002-10-14 14:54) [7]

Как путь вытянуть и добавить к имени базы и чтоб все заработало?

← →
Radiy (2002-10-16 09:01) [8]

А можно так сделать ???
или нет!!!

Прописать в OnCreate ... ;
Var
StrPath:String;

StrPath: = ExtractFilePath(Application.ExeName);

ADOConnect1.ConnectionString := ‘Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=”DSN=MS Access 97 Database;DBQ=’ + StrPath + "\\WARM.mdb;DefaultDir=’ + StrPath + ‘;DriverId=281;FIL=MS Access;FILEDSN=C:\Program Files\Common Files\ODBC\Data Sources\MS Access 97 Database (notsharable).dsn;MaxBufferSize=2048;PageTimeout=5;UID=admin;\";Initial Catalog=" + StrPath;

строка ужас! а делать так можно.
я делаю аналогично
StrPath: = ExtractFilePath(Application.ExeName);
ADOConnect1.ConnectionString:=
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+
StrPath+"WARM.mdb"+
";Persist Security Info=False";

← →
Radiy (2002-10-16 12:38) [10]

> sniknik
OK! Спасибо!
Снова,Николай,вы меня выручили!

Автозагрузка программы с базой Найти похожие ветки