после добавления ярлыка программа не работает

[Kos123]

Ярлык у меня создается и удаляется замечательно, но если я запускаю программу с помощью этого ярлыка то выскакивает ошибка что нет какого нибудь файла или изо или еще чего нибудь, а путь указывается от ярлыка 'C:\Document ...' , а прога на E:\

[Stilet]

А ты посмотри что за рабочая папка в ярлыке прописана, какие в нем свойства и т.д.

[Kos123]

Размещение C:\Documents and Settings\Константин\Главное меню\Программы\Автозагрузка\K_05.ex e
ошибку понял, а как ее исправить?

[Stilet]

а как ее исправить?

Ну дык... Я ж не знаю как у тебя эти пути формируются. Посмотри по коду что передается в CreateLink - это первое что ты должен был проверить.

[pu4koff]

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

Размещение C:\Documents and Settings\Константин\Главное меню\Программы\Автозагрузка\K_05.ex e
ошибку понял, а как ее исправить?

Пепел Феникса вообще-то уже написал как это лечится.
Когда запускается программа через вызов exe-шника, то "Current Directory" там совпадает с папкой, в которой находится программа и соответственно находятся все остальные файлики как надо. Когда запускается через ярлык, то файлы все ищутся в папке, где ярлык расположен. В программе вместо всяких: Открыть('Data\dbLino.cds') нужно написать: Открыть(ExtractFilePath(Application .ExeName) + 'Data\dbLino.cds') и всё.
Всякие OpenDialog, SaveDialog и т.д. тоже любят менять активную папку и с ними тоже эта проблема вылезет. Так что изменением рабочей папки в ярлыке может спасти не всегда.

[Kos123]

сделал так :

procedure TGlavForm.FormCreate(Sender: TObject);
begin
  SetCurrentDir(ExtractFilePath(Application.ExeName));
  dir := ExtractFilePath(ParamStr(0));
end;

непомогло , к остальным файлам цепляюсь через GetDir()

ярлык - объект : "E:\Проекты D\K 05 new\K_05.exe" - правильно

[Stilet]

цепляюсь через GetDir()

Вообще-то плохая это идея.
Сделай переменку глобальную в которую помести при создании формы:

  dir := ExtractFilePath(ParamStr(0));

И от нее пляши - это самая лучшая точка опоры.

[Kos123]

ВСЕМ БОЛЬШОЕ СПАСИБО !
Сменил все GetDir на глобальную dir и все зарботало!!!

[uberchel]

Пишу в эту же тему, почему мой пост был удалён ?