опять о переносе программы на другой компьютер

[bmb_66]

Здравствуите форумчане !!!!!
Както создал и скарабкал программу ТЕЛЕФОННИ справочник с вашеи помошю.
Программа связана с Access через ADOConection. связивание происходит (если правильна виражаюс) через DataModule4.
Exe фаил (Project2.exe) и Access фаил (satcno.mdb)лежат в однои папке.
При переносе папки на другои компютер и запуска программи она пишет что не правилни пут и база не наидена.
Как мне решит эту проблему.
На форуме SERG1980 подкинул код.
ADOConnection1.ConnectionString:='P rovider=Microso ft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(Applicatio n.ExeName)+'MyD B.mdb'+';Persist Security Info=False';
DataModule1.ADOConnection1.Connecte d:=true;

Котории я переделал в событии формы OnCreate написал
ADOConnection1.ConnectionString:='P rovider=Microso ft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(Applicatio n.Пройецт2)+'satcno.mdb'+';Persist Security Info=False';
DataModule4.ADOConnection1.Connecte d:=true;
больше ничего не изменял но при компиляции показивает ошибку Application......
может что-то не добавил или код не правильни может обясните?
Спасиба всем заранее за отзиви !!!!!!!!!

[mihali4]

Вам же написали:

ExtractFilePath(Application.ExeName )

А это что за самодеятельность:

ExtractFilePath(Application.Пройецт2)

Может, вы еще где-нибудь паскалевские операторы переписали на свой лад???

[bmb_66]

Это било опечатка. Я написал туда Project2 имя моего проекта.
Ладна я ошибся.
Тепер вписал туда Application.ExeName но при компиляции пишет ошибку на этои строке: Undeclared identifier. 'application' и втори: ')' expected but identifier 'ExeName' found.
Заменил Application.ExeName на ParamStr(0) тепер компилируется но не запускается пишет какуюта ошибку я с англисским не влдах.
По моему мнениу в кодинге нада чтото добавит.
Что и как игде нада дабавит может подтолкнёте!!!!!

[Баламут]

Объект Application описан в модуле Forms. А твои проблемы с английским может разрешить только Кашпировский. Увы, телепаты этот форум совершенно игнорируют.

[mihali4]

Вот эту строку:

ADOConnection1.ConnectionString:='P rovider=Microso ft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(Applicatio n.ExeName)+'MyD B.mdb'+';Persist Security Info=False';

Заменяем на:
var tmp: string;
...
tmp:=ExtractFilePath(Application.Ex eName);
ADOConnection1.ConnectionString:='P rovider=Microsoft.Jet.OLEDB.4.0;Dat a Source='+tmp+'MyD B.mdb'+';Persist Security Info=False';
Только проверьте, на конце у tmp будет обратный слэш '\' или нет, и если нет добавьте (я сейчас не помню, дает концевой слэш эта функция или нет).

Если уж и так не сработает, то нам всем пора в Кащенко...