Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Программирование под Windows > Delphi
Перезагрузить страницу Когда сканирование завершится, выдать сообщение пользователю
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Начинающий Начинающий вне форума
Member
 
Сообщений: 409
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 08.11.2003
По умолчанию Когда сканирование завершится, выдать сообщение пользователю - 11.01.2005, 23:04

Что нетак?
Я хочу, когда сканирование завершится, выдать сообщение пользователю. Но Это не работает!
Код:
procedure ScanDir(StartDir: string; Mask: string; List: TStrings);
var
SearchRec: TSearchRec;
begin
  if Stop=True then
     Stop:=False;
  if Mask = '' then
    Mask := '*.*';
  if StartDir[Length(StartDir)] <> '' then
    StartDir := StartDir + '';
  if FindFirst(StartDir + Mask, faAnyFile, SearchRec) = 0 then
  begin
    repeat Application.ProcessMessages;
      if Stop=True then
         Exit;
      if (SearchRec.Attr and faDirectory) <> faDirectory then begin
        if (ExtractFileExt(StartDir + SearchRec.Name)='.txt')or(ExtractFileExt(StartDir + SearchRec.Name)='.ini') then begin
        List.Add(StartDir + SearchRec.Name);
        FilesSize := FilesSize+GetFileSize(StartDir + SearchRec.Name) end;
      end else if (SearchRec.Name <> '..') and (SearchRec.Name <> '.')then begin
      ScanDir(StartDir + SearchRec.Name + '', Mask, List);
  end;
until FindNext(SearchRec) <> 0;
if FindNext(SearchRec)=0 then    //Что-то тут не так! Куда это нужно пихать?
ShowMessage('Поиск завершон!');
FindClose(SearchRec);
end;
end;
Ответить с цитированием
  (#2 (permalink)) Старый
Fuud Fuud вне форума
Member
 
Сообщений: 4,076
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 03.09.2004
По умолчанию 12.01.2005, 18:45

Замени "if FindNext(SearchRec)=0 then ShowMessage('Поиск завершон!'); " на просто ShowMessage('Поиск завершон!');

Дело в том, что если уже найдены все соответствующие файлы, то функция FindNext(SearchRec) возвращает НЕНУЛЕВОЙ результат.
Ответить с цитированием
  (#3 (permalink)) Старый
Начинающий Начинающий вне форума
Member
 
Сообщений: 409
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 08.11.2003
По умолчанию 12.01.2005, 22:19

Извините! Стормозил Это сообщение можно выдать после вызова функции ScanDir !
Fuud, спасибо за ответ (но он всёравно не рабочий. Сообщение появляется постоянно)!
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
онлайн сканирование Дмитрий79 Любые вопросы от новичков 4 21.01.2012 20:20
Когда включаеш камп то вентиляторы крутятся быстро!А когда идет вход в систему замедл Ivanka007 Любые вопросы от новичков 2 11.01.2011 02:16
JavaScript как выдать две бегущие строки jen1234 DHTML, JavaScript, VBScript 0 13.06.2010 23:31
Компьютер стал перегружаться, когда раз в сутки, когда через каждые 5 минут. Станислав Любые вопросы от новичков 2 02.03.2010 12:42
Сканирование отпечатка пальца DooMchik Выбор ноутбука 10 25.01.2009 19:08
Сканирование числа из файла Daredevil Вопросы начинающих программистов 3 04.05.2008 14:53
Прогресс бар сканирование диска kelz Мысли вслух 9 21.10.2006 11:43
WSAAsyncGetHostByAddr сканирование диапазона IP адреса Fuzz1986 C++ Builder 0 07.06.2006 12:43
Как выдать вместо php сценария др. файл Merl1n PHP 1 23.03.2005 02:34
Сканирование страницы на предмет фреймов Monah IRH PHP 19 15.02.2005 10:57
Как выдать на печать содержимое PaintBox Anonymous Delphi 1 16.07.2003 18:18
Как выдать например по три вопроса пользователю на страничке Strelka Perl 2 08.04.2003 15:10



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов