VPF::Обновление папок - Форум программистов

Anakin

Дата 28.9.2006, 15:22 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 192
Регистрация: 25.9.2006

Репутация: нет
Всего: нет

Я перечетал весь форум. Но не нашол как можно сделать так что бы программа обновляла не только тот файл который её скажут, а что-бы она искала все в указанной деректории и если она находит там что то новое тоесть фаил или папку со вложенными файлами и если там таковое есть = скачать клиенту.
подскажите как можно это реализовать..
Вот исходный код моего апдэйтера но он проверяет и качает только фаил с собственным именем.

Код


procedure TMain.FormShow(Sender: TObject);
Begin
data.table1.Active:=true;
IF FileExists('\\nts12\database' + '\Update\' + ExtractFileName(ParamStr(0))) and
  (GetFileDate('\\nts12\database' + '\Update\' + ExtractFileName(ParamStr(0))) >
  GetFileDate(ParamStr(0))) then
Begin
  MessageDlg('Доступна новая версия программы.' +
  'Дождитесь пока она не запустится снова.',mtInformation,[mbOk],0);
With TStringList.Create Do
try
  Add(':Repeat');
  Add('IF Exist "' + ParamStr(0) + '" Del "' + ParamStr(0) + '"');
  Add('IF Exist "' + ParamStr(0) + '" goto Repeat');
  Add('Copy "' + '\\nts12\database' + '\Update\' + ExtractFileName(ParamStr(0)) + '" "' + ParamStr(0) + '"');
  Add('"' + ParamStr(0) + '"');
  Add('del update.bat');
  SaveToFile('update.bat');
  WinExec('update.bat', SW_HIDE);
  Close();
  Exit;
finally
  Free;
end;
End;
end;

Это сообщение отредактировал(а) Girder - 17.10.2006, 10:29

_hunter

Дата 28.9.2006, 15:44 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98

поиск файла (даже папки) -- FindFirst/FindNext. остальное -- по аналогии

--------------------

Tempora mutantur, et nos mutamur in illis...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »