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

← →
zekk3r © (2013-02-27 19:10) [0]

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

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;

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

← →
clickmaker © (2013-02-27 19:22) [1]

> if FindFirst("*.wma", faAnyFile, searchResult) = 0

значит не находит в текущей папке файлов .wma. Нужно полный путь указывать

← →
Pavia © (2013-02-27 19:28) [2]

begin
idftp2.Connect();
//< здесь первая ошибка
if FindFirst("*.wma", faAnyFile, searchResult) = 0 then < здесь вторая ошибка и третья.
и ещё есть 4 ошибка, но она в коде отсутствует.

← →
Pavia © (2013-02-27 19:29) [3]

← →
zekk3r © (2013-02-27 19:51) [4]

спасибо за отзывы
оказывается что после перезагрузки корневой попкой Стал "c:\windows\system32" а не тот где сама программа лежит
:)

← →
us (2013-02-27 20:35) [5]

Удалено модератором

← →
Сергей М. © (2013-02-27 21:36) [6]

Удалено модератором

← →
zekk3r © (2013-02-27 22:02) [7]

> (сперва извиняюсь за мой русский)

извините я не русский и не владею русским языком

← →
zekk3r © (2013-02-27 22:03) [8]

> (сперва извиняюсь за мой русский)

извините я не русский и не владею русским языком

← →
ХХХХХ (2013-02-27 22:04) [9]

> [9] ХХХХХ (27.02.13 22:04)
> код прямо в кнопке

Это как?

> И это, не пиши код прямо в кнопке.

можешь поподробнее объяснить?

← →
ХХХХХ (2013-02-27 22:15) [12]

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