Плагин для DM для скачивания с нормальными именами в любой версии
Написал прогу для авто-именования аудио/видео файлов в ДМастере (дельфи 7, исходники вышлю).
Кому скидывать? Зашифровались все, ваще ( Писать - http://vk.com/burkut1 |
Evgeny Burkut,для ДМ версии выше 5,14? Интересно, а можно кратко описать принцип работы программы?
|
Цитата:
|
Вложений: 1
Цитата:
h := FindWindow( 'TFileInfoForm', nil ); if h <> 0 then begin h2 := FindWindowEx ( h, 0, 'TPageControl', nil ); if h2 = 0 then Exit; h3 := FindWindowEx ( h2, 0, 'TTabSheet', nil ); h4 := FindWindowEx ( h2, h3, 'TTabSheet', nil ); h5 := FindWindowEx ( h2, h4, 'TTabSheet', nil ); h6 := FindWindowEx ( h5, 0, 'TEdit', nil ); h7 := FindWindowEx ( h5, h6, 'TEdit', nil ); h8 := FindWindowEx ( h5, h7, 'TEdit', nil ); h9 := FindWindowEx ( h5, h8, 'TEdit', nil ); h10 := FindWindowEx ( h, 0, 'TComboBox', nil ); h11 := FindWindowEx ( h, h10, 'TComboBox', nil ); h12 := FindWindowEx ( h, h11, 'TComboBox', nil ); h13 := FindWindowEx ( h12, 0, 'Edit', nil ); if SendMessage( h13, WM_GETTEXT, SizeOf( s3 ), Integer(@s3) ) = 0 then Exit; i := Pos( '&/', s3 ); if i = 0 then Exit; s2 := HTTPDecode( Copy( s3, i + 2, SizeOf(s3) - i - 2 ) ); s2 := Utf8ToAnsi( s2 ); if h6 <> 0 then if SendMessage( h9, WM_GETTEXT, SizeOf( s3 ), Integer(@s3) ) = 0 then SendMessage( h9, WM_SETTEXT, 0, Longint( PChar( s2 ) ) ); end; |
Цитата:
Мы как только не пробовали раньше, всегда игнорировало всё что указано после ? в урле... |
Цитата:
http://cs1-33v4.vk-cdn.net/p2/841b36...1%81%D1%8F.mp3 дает Александр Пушной - Надо радоваться, не надо напрягаться.mp3 http://cs634207v4.vk.me/u893829/vide...%5B240p%5D.mp4 дает Никогда (из х_ф _Дурак_, 2014) [240p].mp4 http://cs622622.vk.me/v622622829/163e0/k8EeeqnOG7s.jpg |
Evgeny Burkut, аа, я думал как-то модифицируется сам урл.
Ну такое дополнение хорошо для себя разве что. Распространять "костыль" к левой проге как-то не имеет смысла. |
Переписал программу в плагин для DMaster - sf.net
Радуйтесь ) |
Часовой пояс GMT +4, время: 18:01. |
Сервер бесплатных медицинских консультаций
Дачный форум. уДачное общение.
VkOpt 2007 - 2024
Powered by vBulletin® Version 3.8.4
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод от zCarot