Забыл что накодил. Делфи.

Сейчас на форуме: testrev1337, vsv1, 2nd, bedop66938 (+7 невидимых)

Посл.ответ	Сообщение
AlexZ Ранг: 203.3 (наставник) Активность: 0.22↘0 Статус: Участник UPX Killer -d	Создано: 16 марта 2009 20:03 · Личное сообщение · #1 Коллеги. Работал я в одной конторе, накодил программу. И к ней сделал компонент - вот то самое окошко "Автопарк". Помню, что это было то ли ГрупБокс, либо Панель. Ещё помню, что перетаскивание делал через: Code: Perform(WM_SysCommand, $0F12, 0); Но не помню как и что перекрывал. И не могу вспомнить, а исходников нету. Прогу с пофиксеным эбаутом выкладываю здесь. Помогите вспомнить... cefb_16.03.2009_CRACKLAB.rU.tgz - Project1.zip ----- Я медленно снимаю с неё UPX... FF_User

AlexZ Ранг: 203.3 (наставник) Активность: 0.22↘0 Статус: Участник UPX Killer -d	Создано: 16 марта 2009 20:04 · Личное сообщение · #2 Забыл сказать: это красивое окошко создаётся в рантайме... ----- Я медленно снимаю с неё UPX... FF_User
Ultras Ранг: 123.0 (ветеран), 10thx Активность: 0.06↘0 Статус: Участник	Создано: 16 марта 2009 21:00 · Поправил: Ultras · Личное сообщение · #3 Дак есть же замечательный топик по тестированию дельфи декомпилятора: Тут. Заодно и декомпиль потестите. ----- .[ rE! p0w4 ].
AlexZ Ранг: 203.3 (наставник) Активность: 0.22↘0 Статус: Участник UPX Killer -d	Создано: 16 марта 2009 21:48 · Личное сообщение · #4 Ок. отправил ЛС топикстартеру с просьбой потестить декомпиль. Он же, через ЛС выдается? ----- Я медленно снимаю с неё UPX... FF_User
Ultras Ранг: 123.0 (ветеран), 10thx Активность: 0.06↘0 Статус: Участник	Создано: 16 марта 2009 21:55 · Личное сообщение · #5 Почему же, он там в топике выложен свободно. Надо скачать и использовать по прямому назначению. Заодно может баги какие всплывут, он же сейчас активно тестируется и фиксится. ----- .[ rE! p0w4 ].
AlexZ Ранг: 203.3 (наставник) Активность: 0.22↘0 Статус: Участник UPX Killer -d	Создано: 16 марта 2009 22:01 · Личное сообщение · #6 Если надо скачивать IDR.EXE, то у меня он не запускается. Пишет, что фатал эррор. Cannot initialize dizasm, говорит. или я не то\не так\не туда скачал? ----- Я медленно снимаю с неё UPX... FF_User
tihiy_grom Ранг: 441.3 (мудрец), 297thx Активность: 0.41↘0.04 Статус: Участник	Создано: 16 марта 2009 22:22 · Личное сообщение · #7 AlexZ Поищи в той теме - там был выложен минимальный комплект с базами для запуска. IDR.exe автор периодически выкладывает с исправленными багами
AlexZ Ранг: 203.3 (наставник) Активность: 0.22↘0 Статус: Участник UPX Killer -d	Создано: 16 марта 2009 22:44 · Личное сообщение · #8 Ок., понял. было бы клёво пофиксить первый мессаг в той ветке. И выкладывать туда сцылки на всё нужное... ----- Я медленно снимаю с неё UPX... FF_User
AlexZ Ранг: 203.3 (наставник) Активность: 0.22↘0 Статус: Участник UPX Killer -d	Создано: 18 марта 2009 22:26 · Личное сообщение · #9 ДэДэ не помог нисколько. Решил поискать решения в интеренте. Написал так: Code: protected procedure WndProc(var Message: TMessage); override; ---КАТ--- procedure TMyMenu.WndProc(var Message: TMessage); begin if Message.Msg = WM_NCHITTEST then Message.Result := HTCAPTION else inherited WndProc(Message); end; Перетаскивание работает, но чувствую, что делал я как-то иначе. И, как оказалось, это не Perform(WM_SysCommand, $0F12, 0);... ----- Я медленно снимаю с неё UPX... FF_User
MrDenis Ранг: 2.9 (гость) Активность: 0=0 Статус: Участник	Создано: 18 марта 2009 23:37 · Поправил: MrDenis · Личное сообщение · #10 Похоже, ты создал свой класс от TCustomGroupBox и переопределил 2 метода. Кстати, ещё можно использовать SetWindowRgn, чтобы сделать настоящий закруглённый прямоугольник Code: { class addr = 464540 } TSmartList = class(TCustomGroupBox) procedure method_464F8C; { OnMouseDown LButton } procedure method_464FD8; { OnMouseDown RButton } private { Private declarations } public { Public declarations } end; Всё-таки Perform: Code: .text:00464F8C TSmartList_method_464F8C proc near .text:00464F8C push ebx .text:00464F8D mov ebx, eax .text:00464F8F cmp byte ptr [ebx+264h], 0 .text:00464F96 jz short loc_464FD3 .text:00464F98 push 0 .text:00464F9A mov ecx, 0F012h .text:00464F9F mov edx, WM_SYSCOMMAND .text:00464FA4 mov eax, ebx .text:00464FA6 call Controls::TControl::Perform(uint,int,int)
centner Ранг: 78.8 (постоянный) Активность: 0.05↘0 Статус: Участник	Создано: 19 марта 2009 00:32 · Личное сообщение · #11 попробуй De Decompiler 2.0 Lite от GPcH
AlexZ Ранг: 203.3 (наставник) Активность: 0.22↘0 Статус: Участник UPX Killer -d	Создано: 19 марта 2009 18:13 · Личное сообщение · #12 MrDenis centner Благодарю, товарищи! Всё-таки Perform, но почему я не смог накодить его повторно, так и не понял, хотя переопределял те же методы OnMouseDown... И да, это именно групбокс всё-таки, а не панель. А скгуглил края через рисование фигуры на канве, в OnPaint (просто с нечего делать так сделал и не стал заморачиваться регионами). ----- Я медленно снимаю с неё UPX... FF_User
AlexZ Ранг: 203.3 (наставник) Активность: 0.22↘0 Статус: Участник UPX Killer -d	Создано: 19 марта 2009 19:15 · Личное сообщение · #13 Коллеги, что-то не пускают меня на сайт de-decompiler. Скачать декомпиль не могу. Кто может слить или у кого есть, зашлите плз на: nvwpvg1c66foryc@jetable.net Download DE-decompiler http://www.freedownloadscenter.com/Programming/Misc__Programming_Tools/DE_Decompiler.html ----- Я медленно снимаю с неё UPX... FF_User
centner Ранг: 78.8 (постоянный) Активность: 0.05↘0 Статус: Участник	Создано: 19 марта 2009 20:02 · Личное сообщение · #14 AlexZ, попробуй слить отсюда http://tuts4you.com/request.php?2656
MrDenis Ранг: 2.9 (гость) Активность: 0=0 Статус: Участник	Создано: 19 марта 2009 20:21 · Личное сообщение · #15 Аттачу пример кода 9760_19.03.2009_CRACKLAB.rU.tgz - syscommand_f012.rar
AlexZ Ранг: 203.3 (наставник) Активность: 0.22↘0 Статус: Участник UPX Killer -d	Создано: 19 марта 2009 21:34 · Личное сообщение · #16 centner MrDenis Благодарю, коллеги! ----- Я медленно снимаю с неё UPX... FF_User
AlexZ Ранг: 203.3 (наставник) Активность: 0.22↘0 Статус: Участник UPX Killer -d	Создано: 21 марта 2009 00:03 · Поправил: AlexZ · Личное сообщение · #17 MrDenis А чем получен первый листинг? Может, у меня версия DeDe старая... MrDenis пишет: # { class addr = 464540 } # TSmartList = class(TCustomGroupBox) # procedure method_464F8C; { OnMouseDown LButton } # procedure method_464FD8; { OnMouseDown RButton } # private # { Private declarations } # public # { Public declarations } # end; upd: пардон, добавил нужные сигнатуры в IDA гзв2: не, не те сигны оказались... ----- Я медленно снимаю с неё UPX... FF_User
MrDenis Ранг: 2.9 (гость) Активность: 0=0 Статус: Участник	Создано: 21 марта 2009 21:20 · Личное сообщение · #18 А чем получен первый листинг? Может, у меня версия DeDe старая... Это не DeDe. Это для себя небольшая утилита. Скачать можно здесь: vdr-soft.at.ua/BDSSICK/bdssick.zip

Для печати