Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.12.2007, 16:55   #11
_SacreD_
Пользователь
 
Регистрация: 30.11.2007
Сообщений: 10
По умолчанию

Кстати ещё, пробовал вот какую штуку, экспериментирую, ставлю например : WayDir:='C:\\' , вручную просто присвоил значение waydir, вот потом пишу в FindFirst(WayDir+'*.mp3',...)=0 , но опять суда не заходит, не выполняется условие видимо... хотя в каталоге C:\\*.* должны были отобразитя значки у файлов с разрешением *.mp3 ... Проблема интерестная, но времени решить ее все меньше =(...
_SacreD_ вне форума Ответить с цитированием
Старый 24.12.2007, 16:57   #12
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Цитата:
типо тогда image у элемента к примеру как у винампа, но нифига, может правда я что то не так написал...
Совершенно справедливая самокритика. Я лично из этой китайско-нанайской фразы ничего не понял...
mihali4 вне форума Ответить с цитированием
Старый 26.12.2007, 16:14   #13
_SacreD_
Пользователь
 
Регистрация: 30.11.2007
Сообщений: 10
По умолчанию

очень плдохо что Вы ничего не поняли... Ну короче вот код, как собственно у меня происходит распознавание какой атрибут у файла и присваивание ему соответственного ему значка :
Код:
if (Attr and faDirectory)<>0 then

      begin
         ImageIndex:=0;
         if (Attr and faHidden)<>0 then
           ImageIndex:=1;
         SubItems.Add('DIR');
         subItems.Add(DatetimetoStr((filedatetodatetime(time))));

      end
  else
       begin

         if ((attr and faReadOnly)<>0) and (S=0) then
            begin
                ImageIndex:=3;
                SubItems.Add(inttostr(size));
                subItems.Add(DatetimetoStr((filedatetodatetime(time))));
                S:=S+1;
            end;

         if ((attr and faVolumeId)<>0) and (S=0) then
            begin
                ImageIndex:=4;
                SubItems.Add(inttostr(size));
                subItems.Add(DatetimetoStr((filedatetodatetime(time))));
                S:=S+1;
            end;

         if ((attr and faSymLink)<>0) and (S=0) then
            begin
                ImageIndex:=4;
                SubItems.Add(inttostr(size));
                subItems.Add(DatetimetoStr((filedatetodatetime(time))));
                S:=S+1;
            end;
          if ((attr and faHidden)<>0)and (S=0) then
             begin
                ImageIndex:=5;
                SubItems.Add(inttostr(size));
                subItems.Add(DatetimetoStr((filedatetodatetime(time))));
                S:=S+1;
             end;

          if ((attr and faSysFile)<>0) and (S=0) then
             begin
                ImageIndex:=6;
                SubItems.Add(inttostr(size));
                subItems.Add(DatetimetoStr((filedatetodatetime(time))));
                S:=S+1;
             end;

          if ((attr and faArchive)<>0) and (S=0) then
             begin
                ImageIndex:=7;
                SubItems.Add(inttostr(size));
                subItems.Add(DatetimetoStr((filedatetodatetime(time))));
                S:=S+1;
             end;
Дак вот, когда заходит в последнее условие, тогда все файлы, музыкальные, видео, архивы, все показывает одной картинкой... мне нужно сделать условие, такое, что бы видео к примеру картинкой одной, музыкальное, другой,текстовое третьей, ну для всех оставльных можно по желанию... Дак вот я подумал - это можно осуществить, с помощью функции FindFirst, проблема в том, что когда пишу внутри последнего условия findfirst, нужно указывать где искать, то есть путь... но как это сделать я не знаю, так как в way хранитя путь... как бы сказать... шаг назад что ли, так как выводя в лэйбл например way, у меня показывает всегда путь до этого...ну вообщем пример, нахожусь в C:\\( в лейбл C:\\), далее захожу в C:\\Programm Files (С:\\), C:\\Program Files\Borland\ (C:\\Program Files\), ну надеюсь Вы поняли... если я не достаточно точно обьяснил, ну могу прислать Вам исходник программы, на худой конец, либо постаратся ещё дать полезной информации, для того что бы Вы смогли подсказать/помочь мне.
_SacreD_ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
findfirst aesoem Общие вопросы Delphi 7 14.04.2008 17:06
FindFirst matus Помощь студентам 2 21.02.2008 19:34
ADOQueryGivBy.FindFirst azat БД в Delphi 5 25.01.2008 13:10
Как указать путь компилируемуму exe файлу shurik_7866 Общие вопросы Delphi 2 18.07.2007 23:24