Странное повидение

[Rockot]

Всем доброго времени суток.
Есть приложение которое по событию FormCreate читает информацию из текстового файла вот таким образом:

List_Time_and_Date.Items.LoadFromFi le('text/Time_and_Date.txt');{читаем из текстовика всю информацию}
List_mission.Items.LoadFromFile('te xt/mission.txt');{читаем из текстовика всю информацию}

То есть есть 2 мемо и каждое мемо читает свой текстовый файл.
Так вот проблема в том, что когда я добавил его в автозагрузку вылетает ошибка "Can not open file 'С:\windows\system32\text\Time_and_ Date.txt'". Я написал вторую программу которая запустит мой Exe-шник с помощью функции ShellExecute так вот выяснилось, что моё приложение каким-то чудесным способом берёт свой путь от того от кого запустилось. Как такое возможно???

[ReportCube]

ExtractFilePath(ParamStr(0)) - путь к вашей программе. Танцуйте от этого пути для открытия файлов.

[doktor255]

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

[blackstrip]

Если твоя программа лежит в c:\mysoft\proga.exe , то
Application.Exename = 'c:\mysoft\proga.exe'
ExtractFilePath(Application.Exename ) = 'c:\mysoft\'

обращайся не просто к 'text\Time_and_Date.txt', а к ExtractFilePath(Application.Exename )+'text\Time_and_Date.txt'

то есть:

List_Time_and_Date.Items.LoadFromFi le(ExtractFilePath(Application.Exen ame)+'text/Time_and_Date.txt');{читаем из текстовика всю информацию}
List_mission.Items.LoadFromFile(Ext ractFilePath(Application.Exename)+' text/mission.txt');{читаем из текстовика всю информацию}

p.s. что-то форум вставляет пробелы в длинные строки без пробелов) защита от страшных длинных строк?)

[eoln]

Следствие: 99% проблем, сваливаемых на странное поведение, является следствием ошибок самих программистов.

См в гугле текущая папка/рабочая папка.
Правильный ответ уже дан ExtractFilePath(ParamStr(0)), ну или Application.Exename вместо ParamStr(0)
Есть также другой способ, у ярлыка в автозагрузке указать рабочую папку (ту папку, где exe-шник находится).
Предпочтительнее делать первым способом, второй - это в данном случае костыль.

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

что-то форум вставляет пробелы в длинные строки без пробелов) защита от страшных длинных строк?)

Да, просто когда дочитываешь длинную строку до конца, то уже забываешь что было в самом начале. Приходится читать снова и снова )
Ну а код нужно обрамлять другим тегом (кнопка с решёткой #)

begin
  //код
end.

[Rockot]

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

Если твоя программа лежит в c:\mysoft\proga.exe , то
Application.Exename = 'c:\mysoft\proga.exe'
ExtractFilePath(Application.Exename ) = 'c:\mysoft\'

обращайся не просто к 'text\Time_and_Date.txt', а к ExtractFilePath(Application.Exename )+'text\Time_and_Date.txt'

то есть:



p.s. что-то форум вставляет пробелы в длинные строки без пробелов) защита от страшных длинных строк?)

Спасибо огромное, очень помогли.