Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 1.954 RSS

←   Ноябрь 2006   →
		1	2	3	4	5
6	7	8	9	10	11	12
13	14	15	16	17	18	19
20	21	22	23	24	25	26
27	28	29	30

За последние 60 дней ни разу не выходила

Сайт рассылки: http://rusfaq.ru
Открыта: 02-07-2003

Автор

Калашников О.А.

Статистика

1.954 подписчиков
0 за неделю

• Выпуски
• Статистика

←   Все выпуски   →

RusFAQ.ru: Win API

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU / КОМПЬЮТЕРЫ И ПО / Языки программирования / WinAPI Выпуск № 334 от 04.11.2006, 10:05 Администратор: Калашников О.А. В рассылке: Подписчиков: 384, Экспертов: 29 В номере: Вопросов: 3, Ответов: 4 Вопрос № 60535: Придумал небольшой способ адаптировать программы к разным версиям AutoCAD! Просто надо выбрать версию с которой работаем из списка. Но вот заполняется пока этот список всеми возможными версиями AutoCAD и если выбрать из этого списка версию которая не... Вопрос № 60584: Что такое «callback functions». Спасибо. (Обясните, пожалуйста, с помощью примерами).... Вопрос № 60586: У вас не найдется ebook по Win API.... Вопрос № 60.535 Придумал небольшой способ адаптировать программы к разным версиям AutoCAD! Просто надо выбрать версию с которой работаем из списка. Но вот заполняется пока этот список всеми возможными версиями AutoCAD и если выбрать из этого списка версию которая не установлена на компьютере или файл библиотеки которой не зарегистрирован то файл программы Excel перестаёт компилироваться так как он отключается от рабочей библиотеки и не подключается к не найденой. Чтобы избежать подобных ситуаций надо заполнять список только имеющимися версиями AutoCAD. Для этого надо по известному GUID библиотеки найти зарегистрирована эта бибилиотека в системе или нет. Если зарегистрирована то добавлять в список а если нет то не добавлять. Помогите пожалуйста определить по известному GUID имеется ли приложение или библиотека AutoCAD на компьютере! У меня есть список GUID для нескольких версий программ AutoCAD. Мне надо определить какие версии AutoCAD из этого списка установлены на компьтере и одновременно составить новый список программ (на основе предыдущего списка) установленых на компьютере, чтобы пользователь мог выбирать из этого списка только те версии программы AutoCAD, библиотеки которых, установлены на компьютере и соответствено программы VBA могли правильно компилироваться для работы с выбранной версией программы AutoCAD. Версии использующие позднее связывание методом использования вместо типов переменых AutoCAD типы Object прошу не предлагать, так как при этом теряется качество программирования и код программы выглядит некрасиво, такую программу сложно модернизировать или улучшать. Мне кажется должны быть для работы с GUID специальные функции Windows API. Подскажите пожалуйста какие функции Windows API надо использовать. Приложение: Private Sub ComboBox1_ВерсияAutoCAD_Click() strНачВерсияAutoCAD = ComboBox1_ВерсияAutoCAD End Sub Private Sub ComboBox1_ВерсияAutoCAD_Change() Dim objReferences As Object On Error Resume Next 'Отключим библиотеку не используемой версии AutoCAD Select Case strНачВерсияAutoCAD Case "AutoCAD2000" 'Отключение библиотеки типов AutoCAD2000 Application.VBE.ActiveVBProject.References.Remove (ReferenceFromGuid("{C094C1E2-57C6-11D2-85E3-080009A0C626}")) Case "AutoCAD2006" 'Отключение библиотеки типов AutoCAD2006 Application.VBE.ActiveVBProject.References.Remove (ReferenceFromGuid("{1EFD8E85-7F3B-48E6-9341-3C8B2F60136B}")) Case "AutoCAD2007" 'Отключение библиотеки типов AutoCAD2007 Application.VBE.ActiveVBProject.References.Remove (ReferenceFromGuid("{851A4561-F4EC-4631-9B0C-E7DC407512C9}")) End Select 'Подключим библиотеку используемой версии AutoCAD Select Case ComboBox1_ВерсияAutoCAD Case "AutoCAD2007" 'Подключение библиотеки типов AutoCAD2007 Set objReferences = Application.VBE.ActiveVBProject.References.AddFromGuid("{851A4561-F4EC-4631-9B0C-E7DC407512C9}", 1, 1) If TypeOf objReferences Is Object Then If Not objReferences.isbroken Then MsgBox "AutoCAD2007 подключён", vbInformation, gstrНазваниеПрограммы End If Case "AutoCAD2006" 'Подключение библиотеки типов AutoCAD2006 Set objReferences = Application.VBE.ActiveVBProject.References.AddFromGuid("{1EFD8E85-7F3B-48E6-9341-3C8B2F60136B}", 1, 1) If TypeOf objReferences Is Object Then If Not objReferences.isbroken Then MsgBox "AutoCAD2006 подключён", vbInformation, gstrНазваниеПрограммы End If Case "AutoCAD2000" 'Подключение библиотеки типов AutoCAD2000 Set objReferences = Application.VBE.ActiveVBProject.References.AddFromGuid("{C094C1E2-57C6-11D2-85E3-080009A0C626}", 1, 1) If TypeOf objReferences Is Object Then If Not objReferences.isbroken Then MsgBox "AutoCAD2000 подключён", vbInformation, gstrНазваниеПрограммы End If End Select End Sub Private Function ReferenceFromGuid(strGuid As String) As Variant Dim objReference As Object For Each objReference In Application.VBE.ActiveVBProject.References If objReference.GUID = strGuid Then Set ReferenceFromGuid = objReference Exit Function End If Next End Function Добавление библиотек в список происходит при открытии рабочей книги Excel: Private Sub Workbook_Open() Dim objReferences As Object ActiveWorkbook.Sheets(1).ComboBox1_ВерсияAutoCAD.AddItem "AutoCAD2000" ActiveWorkbook.Sheets(1).ComboBox1_ВерсияAutoCAD.AddItem "AutoCAD2002" ActiveWorkbook.Sheets(1).ComboBox1_ВерсияAutoCAD.AddItem "AutoCAD2004" ActiveWorkbook.Sheets(1).ComboBox1_ВерсияAutoCAD.AddItem "AutoCAD2006" ActiveWorkbook.Sheets(1).ComboBox1_ВерсияAutoCAD.AddItem "AutoCAD2007" On Error Resume Next Select Case ActiveWorkbook.Sheets(1).ComboBox1_ВерсияAutoCAD Case "AutoCAD2007" 'Подключение библиотеки типов AutoCAD2007 Set objReferences = Application.VBE.ActiveVBProject.References.AddFromGuid("{851A4561-F4EC-4631-9B0C-E7DC407512C9}", 1, 1) Case "AutoCAD2006" 'Подключение библиотеки типов AutoCAD2006 Set objReferences = Application.VBE.ActiveVBProject.References.AddFromGuid("{1EFD8E85-7F3B-48E6-9341-3C8B2F60136B}", 1, 1) Case "AutoCAD2000" 'Подключение библиотеки типов AutoCAD2000 Set objReferences = Application.VBE.ActiveVBProject.References.AddFromGuid("{C094C1E2-57C6-11D2-85E3-080009A0C626}", 1, 1) End Select End Sub В этой процедуре и надо проверять по известному GUID наличие библиотек в системе. Как это сделать? Может быть есть специальные функции API? Отправлен: 29.10.2006, 10:01 Вопрос задал: Акимов М. Б. (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2) Отвечает: Melamed Здравствуйте, Акимов М. Б.! Я бы на Вашем месте использовал бы API функцию CLSIDFromProgID, которая возврашает GUID по индентификатору приложения. Индентификатор AutoCad (см статью http://www.delphimaster.ru/articles/autocad/index.html правда применительно к Delphi) <b>AutoCAD.Application</b>. В приложении привожу описанте этой функции, правда на английском языке Приложение: Looks up a CLSID in the registry, given a ProgID. HRESULT CLSIDFromProgID( LPCOLESTR lpszProgID, LPCLSID pclsid ); Parameters lpszProgID [in] Pointer to the ProgID whose CLSID is requested. pclsid [out] Pointer to the retrieved CLSID on return. Return Values S_OK The CLSID was retrieved successfully. CO_E_CLASSSTRING The registered CLSID for the ProgID is invalid. REGDB_E_WRITEREGDB An error occurred writing the CLSID to the registry. See "Remarks" below. Remarks Given a ProgID, CLSIDFromProgID looks up its associated CLSID in the registry. If the ProgID cannot be found in the registry, CLSIDFromProgID creates an OLE 1 CLSID for the ProgID and a CLSID entry in the registry. Because of the restrictions placed on OLE 1 CLSID values, CLSIDFromProgID and CLSIDFromString are the only two functions that can be used to generate a CLSID for an OLE 1 object. CLSIDFromProgID never triggers an automatic installation of missing classes. Requirements For an explanation of the requirement values, see Requirements (COM). Windows NT/2000/XP: Requires Windows NT 3.1 or later. Windows 95/98: Requires Windows 95 or later. Header: Declared in objbase.h. Library: Use ole32.lib. Ответ отправил: Melamed (статус: 7-ой класс) Ответ отправлен: 29.10.2006, 11:38 Оценка за ответ: 3 Комментарий оценки: А есть ли функция ProgIDFromCLSID? мне для программы надо именно такую функцию. Вопрос № 60.584 Что такое «callback functions». Спасибо. (Обясните, пожалуйста, с помощью примерами). Отправлен: 29.10.2006, 18:27 Вопрос задал: Tebriz (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0) Отвечает: JohnP Здравствуйте, Tebriz! Во-первых это функции, которые определены в вашей программе, но вызываются системой. Во-вторых это функции стандартного вызова (stdcall), когда параметры передаются в функцию через стек. Удачи! Ответ отправил: JohnP (статус: 2-ой класс) Ответ отправлен: 29.10.2006, 18:58 Отвечает: Lonely Wolf / ENS Здравствуйте, Tebriz! С CALLBACK функциями я встречался в OpenGL, так вот там callback была функция обработки клавиатуры, мыши, таймера. Аналогично и в WINAPI. --------- Если нет выхода ищу вход. Ответ отправил: Lonely Wolf / ENS (статус: 8-ой класс) Ответ отправлен: 31.10.2006, 16:22 Вопрос № 60.586 У вас не найдется ebook по Win API. Отправлен: 29.10.2006, 18:29 Вопрос задал: Tebriz (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0) Отвечает: Lonely Wolf / ENS Здравствуйте, Tebriz! ebook по WinAPI это MSDN но он много весит. --------- Если нет выхода ищу вход. Ответ отправил: Lonely Wolf / ENS (статус: 8-ой класс) Ответ отправлен: 31.10.2006, 16:22 Отправить вопрос экспертам этой рассылки Приложение (если необходимо): * Код программы, выдержки из закона и т.п. дополнение к вопросу. Эта информация будет отображена в аналогичном окне как есть. Обратите внимание! Вопрос будет отправлен всем экспертам данной рассылки! Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru. Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)! Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru. © 2001-2006, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале Версия системы: 4.37 от 04.10.2006

---

В избранное

{#template MAIN} <div id="loginForm" style="display:none;" class="subscriberu_popup"> <div class="popup_register"> {#include js_tmpl_auth_reg_tab} {#if $P.login_register_tab == 1} <form class="authentication-form" method="post" action="/MEMBERLOGIN_authen_cred"> <dl class="rg_block_options"> <dt id="js_tap_panel_auth"> <h1>Войти на сайт</h1> {* {#include js_tmpl_auth_reg_button} *} {#include js_tmpl_auth_reg_action} <hr class="logreg_line noPhones"> <div class="logreg_descr noPhones"><p>{#include js_tmpl_auth_reg_descr} </p></div> <div class="logreg_advice noPhones"> Если вы еще не с нами, то начните с <a href="#" onclick="rgNav('js_tab_reg');return false;" class="dashed" data-func="registr">регистрации</a> </div> <br><br> <a class="dashed auth-enter" href="/manage/author/"><b>Вход для авторов</b></a> </dt> </dl> </form> {#/if} {#if $P.login_register_tab == 2} <div class="rg_block_options"> <div id="js_tap_panel_auth"> <h1>Регистрация</h1> <div class="social_reg"> {* <div class="rg_description">{#include js_tmpl_soc_auth_reg_descr}</div> *} {#include js_tmpl_auth_reg_soc} <div class="rg_soc_auth_agree">{#include js_tmpl_auth_reg_agree}</div> </div> <div class="subscribe_reg"> {* <div class="rg_description"> #include js_tmpl_auth_reg_descr </div> *} {#include js_tmpl_auth_reg_action} </div> {* {#include js_tmpl_auth_reg_button} *} <div class="clr"> </div> <hr class="logreg_line noPhones"> <div class="logreg_descr noPhones">{#include js_tmpl_auth_reg_descr} {#include js_tmpl_soc_auth_reg_descr} </div> </div> </div> {#/if} </div> {* <div class="gray_bg register_shadow"></div> *} </div> {#/template MAIN} {#template js_tmpl_auth_reg_tab} <ul class="rg_nav"> <li id="js_tab_auth" class="{#if $P.login_register_tab == 1} rg_active_nav {#/if} rg_first_nav"><a onclick="rgNav('js_tab_auth');return false;" href="">Вход на сайт</a></li> <li id="js_tab_reg" class="{#if $P.login_register_tab == 2} rg_active_nav {#/if}"><a onclick="rgNav('js_tab_reg');return false;" href="">Регистрация </a></li> </ul> <span onclick="hidebo();" class="rg_closed"> </span> {#/template js_tmpl_auth_reg_tab} {#template js_tmpl_auth_reg_action} {#if $P.login_register_tab == 1} {#include js_tmpl_auth_reg_soc} {#/if} <div class="rg_forms"> <input type="hidden" id="login_register_destination" value="{$P.login_register_destination}"/> {#if $P.login_register_tab == 1} <div class="rg_for_input"> <span class="rg_text_inner">E-mail или код подписчика</span> <input id="credential_0" class="js_keydown_selector rg_input_text" data-js_submit="no" data-js_next_input_name="credential_1" name="" type="text" /> </div> <div class="rg_for_input"> <span class="rg_text_inner">Пароль</span> <input id="credential_1" class="js_keydown_selector rg_input_text" data-js_submit="yes" data-js_action="js_loginFormBut" name="" type="password" onkeyup="showAttention(this,!!window.event.shiftKey)" /> <span class="pswd_attention" id="attention_pswd"> <span class="icon_attention"></span> <span class="pswd_attention-text" id="attention-text_pswd1">Русская раскладка клавиатуры!</span> <span class="pswd_attention-text" id="attention-text_pswd2">У вас включен Caps Lock!</span> <span class="pswd_attention-text" id="attention-text_pswd3">У вас включен Caps Lock и русская раскладка клавиатуры!</span> </span> </div> <div class="rg_for_input input-alien"> <span class="chk noPhones"><input id="chk_alien" name="" type="checkbox" /></span><label for="chk_alien" class="noPhones"> Чужой компьютер</label> <a class="forgot_pass" href="/member/totalrecall">Забыли пароль?</a> </div> <div class="rg_for_input"> <em id="auth_msg" class="reg_error"></em> <input id="lf_typeauthid" value="email" type="hidden"> <input type="submit" class="button button-red logreg_submit" id="js_loginFormBut" value="Войти"> <!--</a>--> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> </div> {#/if} {#if $P.login_register_tab == 2} <div class="rg_for_input"> <span class="rg_text_inner">E-mail</span> <input id="arfemail" class="js_keydown_selector rg_input_text" name="" type="text" data-js_submit="yes" data-js_action="js_regFormBut"/> </div> <div class="rg_for_input rg_set_lineh rg_for_input_wide"> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_terms' type="checkbox" data-js_submit="yes" /></span> Я ознакомился и согласен с <a class="link_txd logreg_accLink" href="/faq/vereinbarung.html">условиями сервиса Subscribe.ru</a> </label> <br /> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_personal' type="checkbox" data-js_submit="yes" /></span> Нажимая на кнопку "Готово!", я даю <a class="link_txd logreg_accLink" href="/faq/persverordnung.html">согласие на обработку персональных данных</a> </label> </div> {* <div style="float: left;position: absolute;left: 11em;"> <img src="http://www.kupivip.ru/images/vip/logo.png?1604" style="width: 86px; vertical-align: middle;display: block;"> </div> <div class="rg_for_input rg_set_lineh"> <label class="js_tap_panel_checkbox"><input name="" id="js_tap_panel_checkbox_kupivip" type="checkbox" data-js_submit="yes"> Я хочу получать новости о скидках на одежду</label> </div> *} <div class="rg_for_input"> <em id="reg_msg" class="reg_error rg_for_input_wide"></em> <em id="reg_msg2" class="reg_error rg_for_input_wide"></em> <input id="rf_typeauthid" value="email" type="hidden"> <a class="button button-red logreg_submit" id="js_regFormBut" href="#">Готово!</a> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> </div> {#/if} </div> {#/template js_tmpl_auth_reg_action} {#template js_tmpl_auth_reg_agree} <div class="rg_for_input rg_set_lineh rg_for_input_wide"> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_terms_reg' type="checkbox" data-js_submit="yes" /></span> Я ознакомился и согласен с <a class="link_txd logreg_accLink" href="/faq/vereinbarung.html">условиями сервиса Subscribe.ru</a></label> <em id="reg_msg_soc" class="reg_error rg_for_input_wide"></em> </div> {#/template js_tmpl_auth_reg_agree} {#template js_tmpl_auth_reg_button} <div class="rg_butons_socials"> {#if $P.login_register_tab == 1} <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="auth_email" href="#"><span><i></i>Email</span></a> <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="auth_openid" href="#"><span><i></i>OpenID</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="auth_vkontakte" href="#"><span><i></i>Вконтакте</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="auth_mailru" href="#"><span><i></i>Mail.Ru</span></a> {#/if} {#if $P.login_register_tab == 2} <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="reg_email" href="#"><span><i></i>Email</span></a> <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="reg_openid" href="#"><span><i></i>OpenID</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="reg_vkontakte" href="#"><span><i></i>Вконтакте</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="reg_mailru" href="#"><span><i></i>Mail.Ru</span></a> {#/if} </div> {#/template js_tmpl_auth_reg_button} {#template js_tmpl_auth_reg_descr} {#if $P.login_register_tab == 1} Для оформления подписки на выбранную рассылку, работы с интересующей вас группой или доступа в нужный вам раздел, просим авторизоваться на Subscribe.ru {#/if} {#if $P.login_register_tab == 2} Для регистрации укажите ваш e-mail адрес. Адрес должен быть действующим, на него сразу после регистрации будет отправлено письмо с инструкциями и кодом подтверждения. {#/if} {#/template js_tmpl_auth_reg_descr} {#template js_tmpl_soc_auth_reg_descr} Или зарегистрируйтесь через социальную сеть. {#/template js_tmpl_soc_auth_reg_descr} {#template js_tmpl_auth_reg_soc} <div class="rg_soc"> {#if $P.login_register_tab == 1} <a onclick="return _checkSocConfirm(event)" href="https://oauth.vk.com/authorize?client_id=3954260&scope=wall,offline,photos,groups,video,audio,email&redirect_uri={location.protocol+'//'+location.host}/member/login/vk/&response_type=code&v=5.15" class="login_register_vk_button"> <span class="login_register_vk_icon"></span> </a> {#/if} {#if $P.login_register_tab == 2} <a onclick="return _checkSocConfirm(event)" href="https://oauth.vk.com/authorize?client_id=3954260&scope=wall,offline,photos,groups,video,audio,email&redirect_uri={location.protocol+'//'+location.host}/member/join/vk&response_type=code&v=5.15" class="login_register_vk_button"> <span class="login_register_vk_icon"></span> </a> {#/if} </div> {#/template js_tmpl_auth_reg_soc}

{#template MAIN} <div id="loginForm" style="display:none;" class="subscriberu_popup"> <div class="popup_register"> {#include js_tmpl_auth_reg_tab} <dl class="rg_block_options"> <dt id="js_tap_panel_auth"> <p class="rg_description">{#include js_tmpl_auth_reg_descr}</p> <div class="clr"> </div> {#include js_tmpl_auth_reg_action} <div class="clr"> </div> </dt> </dl> </div> <!-- <div class="gray_bg register_shadow"></div> --> </div> {#/template MAIN} {#template js_tmpl_auth_reg_tab} <ul class="rg_nav"> <li id="js_tab_reg" class="rg_active_nav rg_first_nav"><a href="" onclick="return false;" >Регистрация</a></li> </ul> <span onclick="hidebo();" class="rg_closed"> </span> {#/template js_tmpl_auth_reg_tab} {#template js_tmpl_auth_reg_descr} <strong>Пожалуйста, подтвердите ваш адрес.</strong><br><br>Вам отправлено письмо для подтверждения вашего адреса {$P.register_confirm_mail}.<br>Для подтверждения адреса перейдите по ссылке из этого письма. {#/template js_tmpl_auth_reg_descr} {#template js_tmpl_auth_reg_action} <div class="rg_forms confirm_code_from_letter"> <div class="rg_for_input"> <span class="rg_inp_descr" style="width:15em;">Или введите код из письма:</span> <input type="text" value="" id="confirm_code" name="" data-js_submit="yes" data-js_action="js_confirmFormBut" class="js_keydown_selector rg_input_text_conf" > </div> <div class="rg_for_input"><label>Не пришло письмо? <b>Пожалуйста, проверьте папку Спам</b><br /> (папку для нежелательной почты).</label><br />  <a href="" onclick="ajax_recall_code();return false" >Вышлите мне письмо еще раз!</a></div> <div class="rg_for_input"> <em class="reg_error" id="confirm_msg"></em> <a href="#" class="button button-red" id="js_confirmFormBut">Готово</a> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> <br> </div> </div> {#/template js_tmpl_auth_reg_action}