Показать сообщение отдельно
Evgeny Burkut
04.02.2015
 
Мимо проходил, заглянул)
TC
О пользователе
 
Сообщений: 10
ВкоптоКарма: 2


[#4]
По умолчанию

Цитата:
Сообщение от IkaR49 Посмотреть сообщение
Evgeny Burkut,для ДМ версии выше 5,14? Интересно, а можно кратко описать принцип работы программы?
Вот, собссно, сам код на дельфи и exe:

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;
Вложения
Тип файла: zip DMasterHelper.zip (252.9 Кб, 51 просмотров)
Оффлайн
 
Ответить с цитированием