| ← Сентябрь 2004 → | ||||||
|
3
|
5
|
|||||
|---|---|---|---|---|---|---|
|
7
|
||||||
|
21
|
||||||
За последние 60 дней ни разу не выходила
Сайт листа:
http://codeguru.ru
Открыт:
21-09-2003
Пре-модерация: Нет
Адрес для писем в лист: comp.soft.prog.prog-list@subscribe.ru
Адрес
модератора: comp.soft.prog.prog-owner@subscribe.ru
Доброго времени суток, Александр.
Вы писали 16 сентября 2004 г., 20:49:17
на тему "Поиск директорий. Почему так?"
АТ> а попробуы выполнить md c:\1.1
Попробовал. Создалась директория 1.1 .И что?
АТ> А твой код достаточно поправить так:
АТ> FindFirst ('c:\*', faDirectory, SR);
Теперь находит все, включая файлы... А надо только директории!
Доброго времени суток, Александр.
Вы писали 16 сентября 2004 г., 20:49:17
на тему "Поиск директорий. Почему так?"
АТ> а попробуы выполнить md c:\1.1
Попробовал. Создалась директория 1.1 .И что?
АТ> А твой код достаточно поправить так:
АТ> FindFirst ('c:\*', faDirectory, SR);
Теперь находит все, включая файлы...
Доброго времени суток, Шешунов.
Вы писали 16 сентября 2004 г., 20:48:48
на тему "Получить иконки"
ШВ> Пример.
Спасибо! Работает!
а попробуы выполнить md c:\1.1
в командной строке. И посмотри что получится. А твой код достаточно
поправить так:
FindFirst ('c:\*', faDirectory, SR);
Original Message From: "Денис" <deninbla***@b*****.ru>
To: "comp.soft.prog.prog (3778558)" <buz@l*****.com>
Sent: Wednesday, September 15, 2004 7:06 PM
Subject: Поиск директорий. Почему так?
Доброго времени суток, все!
Делаю так:
FindFirst ('c:\*.*', faDirectory, SR);
if SR.Name <> '' then
begin
....
end;
Ничего не находит!!! Почему??
--
* Мы убиваем время, время убивает нас.
С уважением,
Денис
mailto:deninbla***@b*****.ru
ICQ: 257159371
Номер выпуска : 3553
Возраст листа : 359 (дней)
Количество подписчиков : 465
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/229083
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
http://subscribe.ru/ http://subscribe.ru/feedback
Номер выпуска : 3557
Возраст листа : 360 (дней)
Количество подписчиков : 464
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
-*Информационный канал Subscribe.Ru
Подписан адрес:
Код этой рассылки: comp.soft.prog.prog
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписать: mailto:comp.soft.prog.prog--unsub@subscribe.ru?subject=comp.soft.prog.prog
http://subscribe.ru/ http://subscribe.ru/feedback
Здравствуйте, Денис.
Вы писали 11 сентября 2004 г., 14:38:21:
Д> Доброго времени суток, Victor.
Д> Вы писали 10 сентября 2004 г., 15:37:33
Д> на тему "Получить иконки"
>>> Подскажите, пожалуйста, как получить иконку, с которой ассоциирован
>>> определенный тип файла?
VVV>> Буквально дословно из MSDN :
Д> А если на Делфе 7?
Пример.
Отрисуем иконку блокнота на нашей форме.
uses ..., ShellApi,.....;
var
b :_ShFileInfo;
h :HDC;
begin
// заполним структуру b :_ShFileInfo инфой файла блокнота
SHGetFileInfo(PChar('c:\windows\notepad.exe'), 0, b, SizeOf(^b), SHGFI_Icon);
// для нашго примера - получим хендл девайса формы - для отрисовки
h := GetDC(Handle);
// рисуем
DrawIcon(h, 0, 0, b.hIcon);
end;
Здравствуйте, Денис.
Д> Делаю так:
Д> FindFirst ('c:\*.*', faDirectory, SR);
Д> if SR.Name <> '' then
Д> begin
Д> ....
Д> end;
Д> Ничего не находит!!! Почему??
С одной стороны, должно находить один-единственный каталог, если
только раздел С не пуст.
Но с другой стороны, я бы сделал так:
i := FindFirst ('c:\*.*', faDirectory, SR);
и вот по этому i уже можно судить, чего оно артачится.
