после перезагрузки программа не работает

[zekk3r]

здравствуйте... (сперва извиняюсь за мой русский)
у меня такая проблема, вот написал такой код:

procedure TForm1.tmr1Timer(Sender: TObject);
var
searchResult : TSearchRec;
begin
idftp2.Connect();
if FindFirst('*.wma', faAnyFile, searchResult) = 0 then
begin
repeat
idftp2.Put(searchResult.Name, ExtractFileName(searchResult.Name)) ;
DeleteFile(searchResult.Name);
until FindNext(searchResult) <> 0;
FindClose(searchResult);
end;
idftp2.Disconnect;
end;

когда запускаешь он нормально работает.
закинул его в стартап, после перезагрузки программа в процессах запускается но не работает, ничего не делает...
помогите пожалуйста...

[Пепел Феникса]

а вы уверены что она ищет в той папке?

[zekk3r]

Пепел Феникса
да самa программа лежит в той же папке где и находятся(создаются) *.wma файлй... когда я проста запускаю его он все эти файлы загружает на ftp но после перезагрузки самa программа запускается, в процессах видно что он запустился да толька не загружает больше эти файлы на ftp

[Пепел Феникса]

поставьте в начало проги

ShowMessage(GetCurrentDir)

и посмотрите в какой папке ищет прога.

запомните, текущая папка(относительно которой ищутся относительные пути) не всегда равно папке с программой.

[Yurk@]

копай в сторону Рабочего каталога. При ручном запуске этот каталог является родным, а при авторане - рабочий каталог меняется в сторону системных каталогов

зы. как-то очень похожи между собой этот топик с соседним.

[zekk3r]

большое вам спасибо...
и правда после перезагрузки корневой попкой Стал "c:\windows\system32"

[Host-2013]

простите, не смог удержаться

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

корневой попкой

[zekk3r]

Host-2013
вот имена по этому я вначале извинился за мой плохой русский... :D :D
ну все равно прикольно получилось :D :D

[superedward]

Сообщение от Host-2013

простите, не смог удержаться

Прям оговорка по Фрейду )))