Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Проблема с регистром букв расширения файла [D6, WinXP]


Unknown ©   (2005-01-13 08:47:00) 

Написал программу, которая ищет в указанной папке файлы *.avi и осуществляет с ними некоторые действия. Но она ищет только *.avi, игнорируя при этом *.AVI, *.Avi и т. д. Как это исправить, а то мне не хочется в программе расписывать: если расширение равно *.AVI или если расширение равно *.Avi, то…
Да и ещё – как программно сэмулировать нажатие клавиши Print Screen?


Юрий Зотов   (2005-01-14 13:57:00) [1]

> Unknown   (14.01.05 13:35) [5]

> Потом я писал так: ... (ExtractFileExt (...) = '.avi') then...

Вот как раз это-то и неверно. А не сам поиск.


begin...end   (2005-01-14 13:48:00) [2]

> [5] Unknown   (14.01.05 13:35)

... and MatchesMask(..., '*.avi') then ...

P.S. Uses Masks.


Fay   (2005-01-14 13:38:00) [3]

and (AnsiUpperCase(ExtractFileExt (...)) = '.AVI')


Unknown   (2005-01-14 13:35:00) [4]


> Наверно неверно написал, FindFirst/Next регистро-независим.


Я использовал FindFirst/Next. Потом я писал так:

... and (ExtractFileExt (...) = '.avi') then...


Anatoly Podgoretsky   (2005-01-13 12:15:00) [5]

Наверно неверно написал, FindFirst/Next регистро-независим.


Johnmen   (2005-01-13 09:39:00) [6]

2.
весь экран keybd_event(VK_SNAPSHOT,0,0,0);
тек. окно   keybd_event(VK_SNAPSHOT,1,0,0);


Neznaika   (2005-01-13 09:31:00) [7]

ansilowercase?


Johnmen   (2005-01-13 09:19:00) [8]

Искать *.*, далее LowerCase/UpperCase на avi/AVI


Наверх

Титульная страница Поиск, карта сайта Написать письмо