Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.01.30;
Скачать: [xml.tar.bz2];

Вниз

Проблема с регистром букв расширения файла   Найти похожие ветки 

 
Unknown   (2005-01-13 08:47) [0]

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


 
Johnmen ©   (2005-01-13 09:19) [1]

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


 
Neznaika ©   (2005-01-13 09:31) [2]

ansilowercase?


 
Johnmen ©   (2005-01-13 09:39) [3]

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


 
Anatoly Podgoretsky ©   (2005-01-13 12:15) [4]

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


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


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


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

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


 
Fay ©   (2005-01-14 13:38) [6]

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


 
begin...end ©   (2005-01-14 13:48) [7]

> [5] Unknown   (14.01.05 13:35)

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

P.S. Uses Masks.


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

> Unknown   (14.01.05 13:35) [5]

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

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



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.01.30;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.035 c
4-1102923618
denis24
2004-12-13 10:40
2005.01.30
запуск второй копии програмы из faq


1-1106124455
Пчелка
2005-01-19 11:47
2005.01.30
Метод ObjNew компонента F1Book


1-1105818520
Knoxville
2005-01-15 22:48
2005.01.30
Как узнать значение св-ва Enabled элемента Tshape, зная его Tag


14-1105185838
lipskiy
2005-01-08 15:03
2005.01.30
Избегайте покупок техники в "Эльдорадо"!


10-1082450797
Gauss
2004-04-20 12:46
2005.01.30
Не могу создать ком объект





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский