<?xml version='1.0' encoding="utf-8"?>
      <rss version='2.0'>
      <channel>
      <title>Форум на Исходниках.RU</title>
      <link>https://forum.sources.ru</link>
      <description>Форум на Исходниках.RU</description>
      <generator>Форум на Исходниках.RU</generator>
  	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1258670</guid>
        <pubDate>Mon, 11 Sep 2006 09:10:03 +0000</pubDate>
        <title>Отправка по ссылке</title>
        <link>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1258670</link>
        <description><![CDATA[Змей(Чёрный): <div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <span class='tag-quote__quote-info'>Spectr&#045;7, 11.09.2006, 11:30:01, 1258579</span><div class='quote '>Пробовал как и с сайтом но емейловский адрес - не работает. </div></div><br>
хмм... а <span class="tag-color tag-color-named" data-value="blue" style="color: blue">mailto:</span> ты не хабыл к нему? например, <span class="tag-color tag-color-named" data-value="blue" style="color: blue">mailto:vasjapupkin@mail.ru</span>]]></description>
        <author>Змей(Чёрный)</author>
        <category>Visual Basic: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1258579</guid>
        <pubDate>Mon, 11 Sep 2006 08:30:01 +0000</pubDate>
        <title>Отправка по ссылке</title>
        <link>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1258579</link>
        <description><![CDATA[Spectr-7: Еще один вопрос.. как сделать - Написать на почту? Пробовал как и с сайтом но емейловский адрес - не работает.]]></description>
        <author>Spectr-7</author>
        <category>Visual Basic: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1205873</guid>
        <pubDate>Sat, 05 Aug 2006 18:08:15 +0000</pubDate>
        <title>Отправка по ссылке</title>
        <link>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1205873</link>
        <description><![CDATA[Djoser: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=150244&view=findpost&p=1205840'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Beast666 &#064; <time class="tag-quote__quoted-time" datetime="2006-08-05T17:17:50+00:00">05.08.06, 17:17</time></span><div class='quote '>ТОЛЬКО в том модуле</div></div><br>
или классе (имеется ввиду класс формы)]]></description>
        <author>Djoser</author>
        <category>Visual Basic: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1205840</guid>
        <pubDate>Sat, 05 Aug 2006 17:17:50 +0000</pubDate>
        <title>Отправка по ссылке</title>
        <link>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1205840</link>
        <description><![CDATA[Beast666: <div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <div class='quote '>Не в отдельном конечно модуле</div></div><br>
<strong class='tag-b'>Spectr-7</strong>, если определена как Приват, буде видна ТОЛЬКО в том модуле где определена&#33;&#33;&#33; <br>
<br>
<span class="tag-color tag-color-named" data-value="gray" style="color: gray"><span class='tag-size' data-value='7' style='font-size:7pt;'>Добавлено <time class="tag-mergetime" datetime="2006-08-05T17:18:36+00:00">05.08.06, 17:18</time></span></span><br>
<div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <div class='quote '>Совсем забыл. В модуль перетащил, а на Public заменить забыл... Всем спасибо, решена проблема. Запустился броузер</div></div><br>
и нечего было пугать :angry:  :D  ;)]]></description>
        <author>Beast666</author>
        <category>Visual Basic: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1205838</guid>
        <pubDate>Sat, 05 Aug 2006 17:16:49 +0000</pubDate>
        <title>Отправка по ссылке</title>
        <link>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1205838</link>
        <description><![CDATA[Spectr-7: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=150244&view=findpost&p=1205830'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>MIF &#064; <time class="tag-quote__quoted-time" datetime="2006-08-05T17:14:33+00:00">05.08.06, 17:14</time></span><div class='quote '><strong class='tag-b'>Spectr-7</strong>, декларация функции должна быть в форме с доступом Private или в модуле с видимостью Public. У тебя так?</div></div><br>
Совсем забыл. В модуль перетащил, а на Public заменить забыл... Всем спасибо, решена проблема. Запустился броузер.]]></description>
        <author>Spectr-7</author>
        <category>Visual Basic: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1205837</guid>
        <pubDate>Sat, 05 Aug 2006 17:16:33 +0000</pubDate>
        <title>Отправка по ссылке</title>
        <link>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1205837</link>
        <description><![CDATA[MIF: Добавь Option Explicit. Может, опечатался?]]></description>
        <author>MIF</author>
        <category>Visual Basic: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1205836</guid>
        <pubDate>Sat, 05 Aug 2006 17:16:32 +0000</pubDate>
        <title>Отправка по ссылке</title>
        <link>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1205836</link>
        <description><![CDATA[Beast666: <div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <div class='quote '>в модуле с видимостью Public</div></div><br>
лучше так, ибо будет видна по всему проекту..]]></description>
        <author>Beast666</author>
        <category>Visual Basic: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1205832</guid>
        <pubDate>Sat, 05 Aug 2006 17:15:12 +0000</pubDate>
        <title>Отправка по ссылке</title>
        <link>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1205832</link>
        <description><![CDATA[Spectr-7: У меня так и сделано. Не в отдельном конечно модуле. Но, прописано в модуле и на нее не огрызается. Другие функции в том модуле исправно работают.]]></description>
        <author>Spectr-7</author>
        <category>Visual Basic: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1205830</guid>
        <pubDate>Sat, 05 Aug 2006 17:14:33 +0000</pubDate>
        <title>Отправка по ссылке</title>
        <link>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1205830</link>
        <description><![CDATA[MIF: <strong class='tag-b'>Spectr-7</strong>, декларация функции должна быть в форме с доступом Private или в модуле с видимостью Public. У тебя так?]]></description>
        <author>MIF</author>
        <category>Visual Basic: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1205825</guid>
        <pubDate>Sat, 05 Aug 2006 17:12:25 +0000</pubDate>
        <title>Отправка по ссылке</title>
        <link>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1205825</link>
        <description><![CDATA[Beast666: <div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <div class='quote '>Во время попытки запуска - то есть нажатия на кнопку которая должна открыть страничку в броузере.<br>
а точно говорит вот что<br>
Compile error:<br>
Sub or Function not defined<br>
<br>
И выделяет &quot;ShellExecute&quot; слова </div></div><br>
создай отдельный модуль (*.bas) и напиши в нем &quot;PUBLIC Declare Function ShellExecute и т.д...&quot;<br>
а старое &quot;Private Declare Function ShellExecute ...&quot; удали :D  ;)]]></description>
        <author>Beast666</author>
        <category>Visual Basic: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1205823</guid>
        <pubDate>Sat, 05 Aug 2006 17:09:31 +0000</pubDate>
        <title>Отправка по ссылке</title>
        <link>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1205823</link>
        <description><![CDATA[Spectr-7: Во время попытки запуска - то есть нажатия на кнопку которая должна открыть страничку в броузере.<br>а точно говорит вот что<br>Compile error:<br>Sub or Function not defined<br><br>И выделяет &quot;ShellExecute&quot; слова]]></description>
        <author>Spectr-7</author>
        <category>Visual Basic: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1205818</guid>
        <pubDate>Sat, 05 Aug 2006 17:05:25 +0000</pubDate>
        <title>Отправка по ссылке</title>
        <link>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1205818</link>
        <description><![CDATA[Beast666: <div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <div class='quote '>Он почему то считает ShellExecute функцией и не может ее найти</div></div><br>
что, дословно, он говорит? :) он запускает программу, или ошибка возникает уже во время компиляции???]]></description>
        <author>Beast666</author>
        <category>Visual Basic: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1205815</guid>
        <pubDate>Sat, 05 Aug 2006 17:02:37 +0000</pubDate>
        <title>Отправка по ссылке</title>
        <link>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1205815</link>
        <description><![CDATA[Spectr-7: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=150244&view=findpost&p=1205805'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Beast666 &#064; <time class="tag-quote__quoted-time" datetime="2006-08-05T16:57:10+00:00">05.08.06, 16:57</time></span><div class='quote '>объявления апи функций должны идти В НАЧАЛЕ МОДУЛЯ, так же как и объявления глобальных переменных уровня модуля&#33;&#33;&#33;</div></div><br>
Это я заметил и переделал... Но все равно.. Он почему то считает ShellExecute функцией и не может ее найти.]]></description>
        <author>Spectr-7</author>
        <category>Visual Basic: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1205805</guid>
        <pubDate>Sat, 05 Aug 2006 16:57:10 +0000</pubDate>
        <title>Отправка по ссылке</title>
        <link>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1205805</link>
        <description><![CDATA[Beast666: <div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <div class='quote '>Private Sub mnuHelpHomePage_Click()<br>
Private Declare Function ShellExecute Lib &quot;shell32.dll&quot; Alias &quot;ShellExecuteA&quot; (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long<br>
<br>
ShellExecute 0, &quot;open&quot;, &quot;адрес_ссылки&quot;, &quot;&quot;, &quot;&quot;, 1<br>
End Sub</div></div><br>
а можт всетаки так : :&#39;( <br>
<div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">Private Declare Function ShellExecute Lib &quot;shell32.dll&quot; Alias &quot;ShellExecuteA&quot; (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long</div><div class="code_line">&nbsp;</div><div class="code_line">Private Sub mnuHelpHomePage_Click()</div><div class="code_line">&nbsp;</div><div class="code_line">ShellExecute 0, &quot;open&quot;, &quot;адрес_ссылки&quot;, &quot;&quot;, &quot;&quot;, 1</div><div class="code_line">End Sub</div></ol></div></div></div></div><script>preloadCodeButtons('1');</script><br>
объявления апи функций должны идти <strong class='tag-b'>В НАЧАЛЕ МОДУЛЯ</strong>, так же как и объявления глобальных переменных уровня модуля&#33;&#33;&#33; :&#39;(]]></description>
        <author>Beast666</author>
        <category>Visual Basic: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1205804</guid>
        <pubDate>Sat, 05 Aug 2006 16:56:52 +0000</pubDate>
        <title>Отправка по ссылке</title>
        <link>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1205804</link>
        <description><![CDATA[Spectr-7: У меня в модуле прописано <br>
<div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">Private Declare Function ShellExecute Lib &quot;shell32.dll&quot; Alias &quot;ShellExecuteA&quot; (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long</div></ol></div></div></div></div><br>
<br>
А в нужном месте стоит:<br>
<div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">ShellExecute 0, &quot;open&quot;, &quot;адрес_ссылки&quot;, &quot;&quot;, &quot;&quot;, 1</div></ol></div></div></div></div><br>
<br>
Но он говорит, что не находит функции ShellExecute]]></description>
        <author>Spectr-7</author>
        <category>Visual Basic: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1205736</guid>
        <pubDate>Sat, 05 Aug 2006 15:34:10 +0000</pubDate>
        <title>Отправка по ссылке</title>
        <link>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1205736</link>
        <description><![CDATA[Djoser: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=150244&view=findpost&p=1205686'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>B.V. &#064; <time class="tag-quote__quoted-time" datetime="2006-08-05T14:37:14+00:00">05.08.06, 14:37</time></span><div class='quote '>Пост #12 уже в FAQ. Пост #15 добавлять в FAQ нет смысла.</div></div><br>
ну ладно]]></description>
        <author>Djoser</author>
        <category>Visual Basic: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1205686</guid>
        <pubDate>Sat, 05 Aug 2006 14:37:14 +0000</pubDate>
        <title>Отправка по ссылке</title>
        <link>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1205686</link>
        <description><![CDATA[B.V.: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=150244&view=findpost&p=1205602'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Djoser &#064; <time class="tag-quote__quoted-time" datetime="2006-08-05T12:48:23+00:00">05.08.06, 12:48</time></span><div class='quote '>Вопрос к B.V.: Статья идет в ФАК?</div></div><br>
<br>
Пост #12 уже в FAQ. Пост #15 добавлять в FAQ нет смысла.]]></description>
        <author>B.V.</author>
        <category>Visual Basic: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1205602</guid>
        <pubDate>Sat, 05 Aug 2006 12:48:23 +0000</pubDate>
        <title>Отправка по ссылке</title>
        <link>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1205602</link>
        <description><![CDATA[Djoser: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=150244&view=findpost&p=1205394'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Spectr&#045;7 &#064; <time class="tag-quote__quoted-time" datetime="2006-08-05T08:48:32+00:00">05.08.06, 08:48</time></span><div class='quote '>Мне надо подключить какую то библиотеку, для работы с ShellExecute, потому как не работает что-то.</div></div><br>
Выкладывай &quot;неработающий код&quot;. <br>
<br>
<em class='tag-i'><strong class='tag-b'>В дополнение к посту №12: Описание функции ShellExecute</strong></em><br>
С помощью данной, довольно таки мощной и удобной, функции можно много чего сделать полезного в ваших программах, поэтому будет не лишним, если вы будете знать об основных возможностях функции ShellExecute.<br>
<br>
<strong class='tag-b'>Ссылки по информации:</strong><br>
<a class='tag-url' href='http://www.rsdn.ru/article/qna/baseserv/progexec.xml' target='_blank'>RSDN</a><br>
<a class='tag-url' href='http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/functions/shellexecute.asp' target='_blank'>MSDN</a><br>
<br>
<strong class='tag-b'>Описание:</strong><br>
Данная функция открывает или печатает указанный файл. Файл может быть исполняемым или документом. (это довольно скромное описание, за которым скрываются очень полезные вещи, чтобы все понять нужно просмотреть пример кода (пост №12))<br>
<br>
<strong class='tag-b'>Декларирование:</strong><br>
<div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">Private Declare Function ShellExecute Lib &quot;shell32.dll&quot; Alias &quot;ShellExecuteA&quot; (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long</div></ol></div></div></div></div><br>
<br>
<strong class='tag-b'>Параметры:</strong><br>
<div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <div class='quote '><em class='tag-i'>· hwnd</em><br>
hWnd окна-родителя. Это окно получит любые окна сообщений, которые выведет запущенное приложение . Например, приложение может сообщить об ошибке выводом соответствующего окна сообщения.<br>
<em class='tag-i'>· lpOperation</em><br>
Строка, которая содержит описание выполняемой операции. Может принимать<br>
следующие значения:<br>
“open”<br>
Функция открывает файл, указанный в параметре lpFile. Файл может<br>
быть исполняемым или документом. Также может указывать на папку - в<br>
этом случае будет открыто окно проводника<br>
“print”<br>
Функция печатает файл, указанный в lpFile. Файл должен быть документом. Если все равно указан исполняемый файл, то функция возвратит ошибку.<br>
“explore”<br>
Функция открывает окно проводника в указанной папке (параметр lpFile).<br>
&quot;find&quot;<br>
Функция открывает стандартное окно поиска файлов Windows. В качестве места поиска устанавливается параметр lpFile<br>
&quot;edit&quot;<br>
Функция открывает файл, указанный в параметре lpFile, с помощью соответствующего редактора. Например файл *bmp будет открыт в Paint&#39;e<br>
Пареметр lpOperation может быть NULL(vbNullString). В этом случае, функция открывает файл, указанный в параметре lpFile, как если бы был установлен в “open”.<br>
<em class='tag-i'>· lpFile</em><br>
Строка, содержащая путь к файлу для открытия или печати, или имя папки для просмотра в проводнике. Файл может быть исполняемым или документом. Функция может печатать только документы.<br>
<em class='tag-i'>· lpParameters</em><br>
Командная строка, для программы указанной в параметре lpFile (только для исполняемых файлов&#33;).<br>
Если lpFile содержить путь к документу, то параметр lpParameters должен быть NULL(vbNullString).<br>
<em class='tag-i'>· lpDirectory</em><br>
Строка, содержащая путь к директории по умолчанию. Если того не требуется, то то можно оставить все в текущем состоянии - установить этот параметр в NULL(vbNullString)<br>
<em class='tag-i'>· nShowCmd</em><br>
Если параметр lpFile содержит исполняемый файл, то параметр nShowCmd определяет поведение запускаемой программы. Данный параметр может принимать значения:<br>
SW_HIDE<br>
Прячет окошко запускаемой проги.<br>
SW_MAXIMIZE<br>
Развернутое окошко запускаемой проги.<br>
SW_MINIMIZE<br>
Минимизирует окно открываемой проги.<br>
SW_RESTORE<br>
Активирует и отображает окошко запусаемой проги. Если окошко минимизировано&#092;развернуто, то Windows возвращает его оригинальный размер и позицию. Приложение должно установить этот флаг, когда восстанавливает минимизированное окно.<br>
SW_SHOW<br>
Отображает окно запускаемой проги с текущими параметрами размера и положения.<br>
SW_SHOWDEFAULT<br>
Устанавливает состояние показа, основанное на SW_ флаге, указанном в STARUPINFO типе (или структуре), переданной функции CreateProcess программой, которая запустила приложение. Приложение должно вызывать функцию ShowWindow с этим флагом, чтобы установить изначальное состояние показа его основного окна.<br>
SW_SHOWMAXIMIZED<br>
Активирует и отображает развернутое окошко запускаемой программы.<br>
SW_SHOWMINIMIZED<br>
Активирует и отображает свернутое окошко запускаемой программы.<br>
SW_SHOWMINNOACTIVE<br>
Показывает окно как минимизированное окно. Активное окно остается активным.<br>
SW_SHOWNA<br>
Показывает окно в текущем его состоянии. Активное окно остается активным.<br>
SW_SHOWNOACTIVATE<br>
Показывает окно с его самой последней позицией и размером. Активное окно остается активным.<br>
SW_SHOWNORMAL<br>
Активирует и отображает окошко. Если окошко минимизировано&#092;развернуто, то восстанавливаются размер и позиция окна как при первом запуске. Данный флаг должен быть установлен, когда программа запускается впервые.</div></div><br>
<br>
Вот простой пример использования ShellExecute, в котором продемонстрированы все известные на данный момент варианты использования этой функции: <br>
<br>
<span class="tag-color tag-color-named" data-value="gray" style="color: gray"><span class='tag-size' data-value='7' style='font-size:7pt;'>Добавлено <time class="tag-mergetime" datetime="2006-08-05T13:21:12+00:00">05.08.06, 13:21</time></span></span><br>
Вопрос к B.V.: Статья идет в ФАК? <br>
<br>
<span class="tag-color tag-color-named" data-value="gray" style="color: gray"><span class='tag-size' data-value='7' style='font-size:7pt;'>Добавлено <time class="tag-mergetime" datetime="2006-08-05T13:24:09+00:00">05.08.06, 13:24</time></span></span><br>
<div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=150244&view=findpost&p=1205602'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Djoser &#064; <time class="tag-quote__quoted-time" datetime="2006-08-05T12:48:23+00:00">05.08.06, 12:48</time></span><div class='quote '>Вопрос к B.V.: Статья идет в ФАК? </div></div><br>
(под статьей я понимаю <span class='tag-u'>объединенные</span> посты №12 и 15)]]></description>
        <author>Djoser</author>
        <category>Visual Basic: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1205406</guid>
        <pubDate>Sat, 05 Aug 2006 09:07:38 +0000</pubDate>
        <title>Отправка по ссылке</title>
        <link>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1205406</link>
        <description><![CDATA[Beast666: <div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <div class='quote '>надо подключить какую то библиотеку</div></div><br>
ты не это имеешь ввиду :<br>
<div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <div class='quote '>Private Declare Function ShellExecute Lib &quot;shell32.dll&quot; Alias &quot;ShellExecuteA&quot; (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long</div></div><br>
и выражайся поточнее, пожалуйста, иначе я не смогу те помочь... :angry: что не работает??? вылетает ли ошибка??? и какая ошибка вылетает???<br>
<div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <div class='quote '>Подскажите как называется эта библиотека. </div></div><br>
библиотека называецца &quot;shell32.dll&quot; :yes: и подключаецца вышеприведенной строкой :yes:]]></description>
        <author>Beast666</author>
        <category>Visual Basic: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1205394</guid>
        <pubDate>Sat, 05 Aug 2006 08:48:32 +0000</pubDate>
        <title>Отправка по ссылке</title>
        <link>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1205394</link>
        <description><![CDATA[Spectr-7: Мне надо подключить какую то библиотеку, для работы с ShellExecute, потому как не работает что-то. Подскажите как называется эта библиотека.]]></description>
        <author>Spectr-7</author>
        <category>Visual Basic: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1204376</guid>
        <pubDate>Fri, 04 Aug 2006 12:07:28 +0000</pubDate>
        <title>Отправка по ссылке</title>
        <link>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1204376</link>
        <description><![CDATA[Djoser: <span class="tag-color tag-color-named" data-value="gray" style="color: gray">(Пост то редактится, то не редактится - инет вылетает, так что сорри за топик-ап)</span><br>
<em class='tag-i'>Дополнение и поправки к вопросам:</em><br>
1.Как открыть зарегистрированный тип файла в системе в нужной программе?<br>
2.Как открыть адрес URL в браузере по умолчанию?<br>
3.Как открыть окно почтовой программы для создания письма на определенный адрес? (можно отнести ко второму)<br>
4.Как распечатать на принтере содержимое файла?<br>
5.Как отобразить стандартное окно поиска файлов Windows? <br>
<br>
<span class="tag-color tag-color-named" data-value="gray" style="color: gray"><span class='tag-size' data-value='7' style='font-size:7pt;'>Добавлено <time class="tag-mergetime" datetime="2006-08-04T12:14:22+00:00">04.08.06, 12:14</time></span></span><br>
Код:<br>
<div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">&#39;пример демонстрирует основные возможности применения функции ShellExecute</div><div class="code_line">&#39;Coded by Djoser</div><div class="code_line">&#39;Some code bytes from: B.V.; Api-Guide</div><div class="code_line">&#39;forum.sources.ru</div><div class="code_line">Option Explicit</div><div class="code_line">&nbsp;</div><div class="code_line">Private Declare Function FormatMessage Lib &quot;kernel32.dll&quot; Alias &quot;FormatMessageA&quot; (ByVal dwFlags As Long, ByRef lpSource As Any, ByVal dwMessageId As Long, ByVal dwLanguageId As Long, ByVal lpBuffer As String, ByVal nSize As Long, ByRef Arguments As Long) As Long</div><div class="code_line">Private Declare Function ShellExecute Lib &quot;shell32.dll&quot; Alias &quot;ShellExecuteA&quot; (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long</div><div class="code_line">&nbsp;</div><div class="code_line">Private Const SW_SHOWNORMAL As Long = 1</div><div class="code_line">Private Const FORMAT_MESSAGE_FROM_SYSTEM As Long = &amp;H1000</div><div class="code_line">Private Const MAX_SIZE As Long = 255</div><div class="code_line">&nbsp;</div><div class="code_line">Public Enum enuShell_DO</div><div class="code_line">&nbsp;&nbsp; iSH_Mail = 1</div><div class="code_line">&nbsp;&nbsp; iSH_Explore = 2</div><div class="code_line">&nbsp;&nbsp; iSH_FindIn = 3</div><div class="code_line">&nbsp;&nbsp; iSH_Edit = 4</div><div class="code_line">&nbsp;&nbsp; iSH_URL = 5</div><div class="code_line">&nbsp;&nbsp; iSH_Run = 6</div><div class="code_line">&nbsp;&nbsp; iSH_Print = 7</div><div class="code_line">End Enum</div><div class="code_line">&nbsp;</div><div class="code_line">Public Function iShell(hWnd As Long, Action As enuShell_DO, ActString As String, Optional strCmdLine As String = &quot;&quot;) As String</div><div class="code_line">&nbsp;</div><div class="code_line">&#39;функция возвращает пустую строку, если все нормально</div><div class="code_line">&#39;функция возвращает описание ошибки или lRetval, если произошла ошибка</div><div class="code_line">&nbsp;</div><div class="code_line">&#39;В lRetval должен быть возвращен Instance запущенного приложения</div><div class="code_line">&#39;Если значение меньше или равно 32 - произошла ошибка</div><div class="code_line">&#39;Chr$(92) = &quot;\&quot;</div><div class="code_line">Dim lRetval As Long</div><div class="code_line">Dim strAct As String</div><div class="code_line">&nbsp;&nbsp; Select Case Action</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;Case Is = enuShell_DO.iSH_Mail</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &#39;отправка почты (написать письмо)</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; lRetval = ShellExecute(hWnd, &quot;open&quot;, &quot;mailto:&quot; &amp; ActString, vbNullString, vbNullString, SW_SHOWNORMAL)</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;Case Is = enuShell_DO.iSH_Explore</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &#39;открытие папки в проводнике</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; ActString = StrChek(ActString, &quot;\&quot;)</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; lRetval = ShellExecute(hWnd, &quot;explore&quot;, ActString, vbNullString, vbNullString, SW_SHOWNORMAL)</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;Case Is = enuShell_DO.iSH_FindIn</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &#39;поиск файлов в указанной папке средствами Windows</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; ActString = StrChek(ActString, &quot;\&quot;)</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; lRetval = ShellExecute(hWnd, &quot;find&quot;, ActString, vbNullString, vbNullString, SW_SHOWNORMAL)</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;Case Is = enuShell_DO.iSH_Edit</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &#39;открывает файл в соответствующем редакторе, например: *bmp -&#62; Paint</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; lRetval = ShellExecute(hWnd, &quot;edit&quot;, ActString, vbNullString, vbNullString, SW_SHOWNORMAL)</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;Case Is = enuShell_DO.iSH_URL</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &#39;переход на ссылку URL</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; ActString = StrChek(ActString, &quot;/&quot;)</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; lRetval = ShellExecute(hWnd, &quot;open&quot;, &quot;http://&quot; &amp; ActString, vbNullString, vbNullString, SW_SHOWNORMAL)</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;Case Is = enuShell_DO.iSH_Run</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &#39;открывает документ или запускает программу</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; lRetval = ShellExecute(hWnd, &quot;open&quot;, ActString, strCmdLine, vbNullString, SW_SHOWNORMAL)</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;Case Is = enuShell_DO.iSH_Print</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &#39;печатает документ (НЕ ТЕСТИРОВАЛОСЬ)</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; lRetval = ShellExecute(hWnd, &quot;print&quot;, ActString, vbNullString, vbNullString, SW_SHOWNORMAL)</div><div class="code_line">&nbsp;&nbsp; End Select</div><div class="code_line">&nbsp;&nbsp; If lRetval &#60;= 32 Then</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;iShell = Str$(lRetval)</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp;iShell = GetErrorString(lRetval)</div><div class="code_line">&nbsp;&nbsp; End If</div><div class="code_line">End Function</div><div class="code_line">&nbsp;</div><div class="code_line">Private Function StrChek(ByVal strMath As String, ByVal strRepl As String) As String</div><div class="code_line">&nbsp;&nbsp; StrChek = IIf(Right$(strMath, 1) &#60;&#62; strRepl, strMath &amp; strRepl, strMath)</div><div class="code_line">End Function</div><div class="code_line">&nbsp;</div><div class="code_line">&#39;Текст ошибки</div><div class="code_line">Private Function GetErrorString(ByVal lErr As Long) As String</div><div class="code_line">&nbsp;&nbsp; &nbsp;Dim strBuffer As String, lRetval As Long</div><div class="code_line">&nbsp;&nbsp; &nbsp;strBuffer = Space$(MAX_SIZE)</div><div class="code_line">&nbsp;&nbsp; &nbsp;lRetval = FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, ByVal 0, lErr, 0, strBuffer, MAX_SIZE, 0)</div><div class="code_line">&nbsp;&nbsp; &nbsp;strBuffer = Left$(strBuffer, lRetval)</div><div class="code_line">&nbsp;&nbsp; &nbsp;GetErrorString = strBuffer</div><div class="code_line">End Function</div></ol></div></div></div></div> <br>
<br>
<span class="tag-color tag-color-named" data-value="gray" style="color: gray"><span class='tag-size' data-value='7' style='font-size:7pt;'>Добавлено <time class="tag-mergetime" datetime="2006-08-04T12:15:54+00:00">04.08.06, 12:15</time></span></span><br>
<span class="tag-color tag-color-named" data-value="gray" style="color: gray">(щас связь ужость :ph34r: ) описание выложу позднее</span>]]></description>
        <author>Djoser</author>
        <category>Visual Basic: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1203535</guid>
        <pubDate>Thu, 03 Aug 2006 20:53:56 +0000</pubDate>
        <title>Отправка по ссылке</title>
        <link>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1203535</link>
        <description><![CDATA[B.V.: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=150244&view=findpost&p=1203522'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Djoser &#064; <time class="tag-quote__quoted-time" datetime="2006-08-03T20:33:05+00:00">03.08.06, 20:33</time></span><div class='quote '>А ссылку проверил?</div></div><br>
<br>
На MSDN? Да.]]></description>
        <author>B.V.</author>
        <category>Visual Basic: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1203522</guid>
        <pubDate>Thu, 03 Aug 2006 20:33:05 +0000</pubDate>
        <title>Отправка по ссылке</title>
        <link>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1203522</link>
        <description><![CDATA[Djoser: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=150244&view=findpost&p=1203170'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>B.V. &#064; <time class="tag-quote__quoted-time" datetime="2006-08-03T14:58:14+00:00">03.08.06, 14:58</time></span><div class='quote '>а) Объедени примеры в одну функцию. Они различаются только параметрами вызова ShellExecute.</div></div><br>
Каждый пример отвечает на свой конкретный вопрос. Объединять все в одну функцию не вижу смасла, если кому-то это будет надо, то на данной (которая уже изложена в статейке) основе сможет легко реализовать задуманное.<br>
<div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=150244&view=findpost&p=1203256'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>B.V. &#064; <time class="tag-quote__quoted-time" datetime="2006-08-03T15:49:31+00:00">03.08.06, 15:49</time></span><div class='quote '>Думаю, нет.</div></div><br>
А ссылку проверил?]]></description>
        <author>Djoser</author>
        <category>Visual Basic: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1203256</guid>
        <pubDate>Thu, 03 Aug 2006 15:49:31 +0000</pubDate>
        <title>Отправка по ссылке</title>
        <link>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1203256</link>
        <description><![CDATA[B.V.: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=150244&view=findpost&p=1203245'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Djoser &#064; <time class="tag-quote__quoted-time" datetime="2006-08-03T15:39:14+00:00">03.08.06, 15:39</time></span><div class='quote '>с кодом на ВБ(если такое конечно есть)</div></div><br>
<br>
Думаю, нет.]]></description>
        <author>B.V.</author>
        <category>Visual Basic: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1203245</guid>
        <pubDate>Thu, 03 Aug 2006 15:39:14 +0000</pubDate>
        <title>Отправка по ссылке</title>
        <link>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1203245</link>
        <description><![CDATA[Djoser: <strong class='tag-b'>B.V.</strong>, сенкс за отзыв.<br>
У меня щас инет тормознутый, если не сложно, то проверь, плиз, ссылку на MSDN. И, если не трудно, то можешь поискать на msdn статью про эту ф-ию, но с кодом на ВБ(если такое конечно есть). <br>
<br>
<span class="tag-color tag-color-named" data-value="gray" style="color: gray"><span class='tag-size' data-value='7' style='font-size:7pt;'>Добавлено <time class="tag-mergetime" datetime="2006-08-03T15:41:02+00:00">03.08.06, 15:41</time></span></span><br>
<div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=150244&view=findpost&p=1203170'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>B.V. &#064; <time class="tag-quote__quoted-time" datetime="2006-08-03T14:58:14+00:00">03.08.06, 14:58</time></span><div class='quote '>Не вижу примеров с &#39;print&#39;</div></div><br>
Сорри, но у мну принтер на ремонте... Может так попробую...]]></description>
        <author>Djoser</author>
        <category>Visual Basic: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1203170</guid>
        <pubDate>Thu, 03 Aug 2006 14:58:14 +0000</pubDate>
        <title>Отправка по ссылке</title>
        <link>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1203170</link>
        <description><![CDATA[B.V.: а) Объедени примеры в одну функцию. Они различаются только параметрами вызова ShellExecute.<br>
б) Не вижу обработки возвращамых значений<br>
в) Не вижу ссылки на MSDN<br>
г) Не вижу примеров с &#39;print&#39;<br>
<br>
От меня:<br>
<div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">Option Explicit</div><div class="code_line">&nbsp;</div><div class="code_line">Private Declare Function ShellExecute Lib &quot;shell32.dll&quot; Alias &quot;ShellExecuteA&quot; (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long</div><div class="code_line">Private Declare Function FormatMessage Lib &quot;kernel32.dll&quot; Alias &quot;FormatMessageA&quot; (ByVal dwFlags As Long, ByRef lpSource As Any, ByVal dwMessageId As Long, ByVal dwLanguageId As Long, ByVal lpBuffer As String, ByVal nSize As Long, ByRef Arguments As Long) As Long</div><div class="code_line">&nbsp;</div><div class="code_line">Private Const SW_SHOWNORMAL As Long = 1</div><div class="code_line">Private Const FORMAT_MESSAGE_FROM_SYSTEM As Long = &amp;H1000</div><div class="code_line">Private Const MAX_SIZE As Long = 255</div><div class="code_line">&nbsp;</div><div class="code_line">Private Sub Form_Load()</div><div class="code_line">&nbsp;&nbsp; &nbsp;Dim lRetval As Long</div><div class="code_line">&nbsp;&nbsp; &nbsp;</div><div class="code_line">&nbsp;&nbsp; &nbsp;&#39;&#62; explore</div><div class="code_line">&nbsp;&nbsp; &nbsp;</div><div class="code_line">&nbsp;&nbsp; &nbsp;&#39;В lRetval должен быть возвращен Instance запущенного приложения</div><div class="code_line">&nbsp;&nbsp; &nbsp;lRetval = ShellExecute(Me.hwnd, &quot;explore&quot;, Environ$(&quot;WinDir&quot;) &amp; _</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;Chr$(92), vbNullString, vbNullString, SW_SHOWNORMAL)</div><div class="code_line">&nbsp;&nbsp; &nbsp;&#39;Если значение меньше или равно 32 - произошла ошибка</div><div class="code_line">&nbsp;&nbsp; &nbsp;If lRetval &#60;= 32 Then</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;MsgBox GetErrorString(lRetval), vbExclamation Or vbApplicationModal, &quot;Error&quot;</div><div class="code_line">&nbsp;&nbsp; &nbsp;End If</div><div class="code_line">&nbsp;&nbsp; &nbsp;</div><div class="code_line">&nbsp;&nbsp; &nbsp;&#39;&#62; find</div><div class="code_line">&nbsp;&nbsp; &nbsp;</div><div class="code_line">&nbsp;&nbsp; &nbsp;lRetval = ShellExecute(Me.hwnd, &quot;find&quot;, Environ$(&quot;Temp&quot;) &amp; _</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;Chr$(92), vbNullString, vbNullString, SW_SHOWNORMAL)</div><div class="code_line">&nbsp;</div><div class="code_line">&nbsp;&nbsp; &nbsp;If lRetval &#60;= 32 Then</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;MsgBox GetErrorString(lRetval), vbExclamation Or vbApplicationModal, &quot;Error&quot;</div><div class="code_line">&nbsp;&nbsp; &nbsp;End If</div><div class="code_line">&nbsp;&nbsp; &nbsp;</div><div class="code_line">&nbsp;&nbsp; &nbsp;&#39;&#62; edit</div><div class="code_line">&nbsp;&nbsp; &nbsp;</div><div class="code_line">&nbsp;&nbsp; &nbsp;lRetval = ShellExecute(Me.hwnd, &quot;edit&quot;, &quot;C:\Picture.bmp&quot;, vbNullString, _</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;vbNullString, SW_SHOWNORMAL)</div><div class="code_line">&nbsp;</div><div class="code_line">&nbsp;&nbsp; &nbsp;If lRetval &#60;= 32 Then</div><div class="code_line">&nbsp;&nbsp; &nbsp; &nbsp; &nbsp;MsgBox GetErrorString(lRetval), vbExclamation Or vbApplicationModal, &quot;Error&quot;</div><div class="code_line">&nbsp;&nbsp; &nbsp;End If</div><div class="code_line">End Sub</div><div class="code_line">&nbsp;</div><div class="code_line">&#39;Текст ошибки</div><div class="code_line">Public Function GetErrorString(ByVal lErr As Long) As String</div><div class="code_line">&nbsp;&nbsp; &nbsp;Dim strBuffer As String, lRetval As Long</div><div class="code_line">&nbsp;&nbsp; &nbsp;strBuffer = Space$(MAX_SIZE)</div><div class="code_line">&nbsp;&nbsp; &nbsp;lRetval = FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, ByVal 0, lErr, 0, strBuffer, MAX_SIZE, 0)</div><div class="code_line">&nbsp;&nbsp; &nbsp;strBuffer = Left$(strBuffer, lRetval)</div><div class="code_line">&nbsp;&nbsp; &nbsp;GetErrorString = strBuffer</div><div class="code_line">End Function</div></ol></div></div></div></div><br>
<br>
<span class="tag-color tag-color-named" data-value="gray" style="color: gray"><span class='tag-size' data-value='7' style='font-size:7pt;'>Добавлено <time class="tag-mergetime" datetime="2006-08-03T15:12:02+00:00">03.08.06, 15:12</time></span></span><br>
Перевод на лету:<br>
<br>
<div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=150244&view=findpost&p=1203028'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Djoser &#064; <time class="tag-quote__quoted-time" datetime="2006-08-03T14:02:24+00:00">03.08.06, 14:02</time></span><div class='quote '>This window receives any message boxes that an application produces. For example, an application may report an error by producing a message box.</div></div><br>
<br>
Это окно получит любые окна сообщений, которые приложение выведет. Например, приложение может сообщить об ошибке выводом окна сообщения.<br>
<br>
<div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=150244&view=findpost&p=1203028'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Djoser &#064; <time class="tag-quote__quoted-time" datetime="2006-08-03T14:02:24+00:00">03.08.06, 14:02</time></span><div class='quote '>An application should specify this flag when restoring a minimized window.</div></div><br>
<br>
Приложение должно установить этот флаг, когда восстанавливает минимизированное окно.<br>
<br>
<div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=150244&view=findpost&p=1203028'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Djoser &#064; <time class="tag-quote__quoted-time" datetime="2006-08-03T14:02:24+00:00">03.08.06, 14:02</time></span><div class='quote '>Sets the show state based on the SW_ flag specified in the STARTUPINFO structure passed to the CreateProcess function by the program that started the application. An application should call ShowWindow with this flag to set the initial show state of its main window.</div></div><br>
<br>
Ой, сложное предложение...<br>
<br>
Устанавливает состояние показа, основанное на SW_ флаге, указанном в STARUPINFO типе (или структуре), переданной CreateProcess функции программой, которая запустила приложение. Приложение должно вызывать ShowWindow с этим флагом для установки изначального состояния показа его основного окна.<br>
<br>
<div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=150244&view=findpost&p=1203028'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Djoser &#064; <time class="tag-quote__quoted-time" datetime="2006-08-03T14:02:24+00:00">03.08.06, 14:02</time></span><div class='quote '>Displays the window as a minimized window. The active window remains active.</div></div><br>
<br>
Показывает окно как минимизированное окно. Активное окно остается активным.<br>
<br>
<div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=150244&view=findpost&p=1203028'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Djoser &#064; <time class="tag-quote__quoted-time" datetime="2006-08-03T14:02:24+00:00">03.08.06, 14:02</time></span><div class='quote '>Displays the window in its current state. The active window remains active.</div></div><br>
<br>
Показывает окно в текущем его состоянии. Активное окно остается активным.<br>
<br>
<div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=150244&view=findpost&p=1203028'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Djoser &#064; <time class="tag-quote__quoted-time" datetime="2006-08-03T14:02:24+00:00">03.08.06, 14:02</time></span><div class='quote '>Displays a window in its most recent size and position. The active window remains active.</div></div><br>
<br>
Показывает окно с его самой последней позицией и размером.  Активное окно остается активным.]]></description>
        <author>B.V.</author>
        <category>Visual Basic: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1203028</guid>
        <pubDate>Thu, 03 Aug 2006 14:02:24 +0000</pubDate>
        <title>Отправка по ссылке</title>
        <link>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1203028</link>
        <description><![CDATA[Djoser: <div class='tag-quote'><a class='tag-quote-link' href='https://forum.sources.ru/index.php?showtopic=150244&view=findpost&p=1202586'><span class='tag-quote-prefix'>Цитата</span></a> <span class='tag-quote__quote-info'>Змей(Чёрный) &#064; <time class="tag-quote__quoted-time" datetime="2006-08-03T11:05:13+00:00">03.08.06, 11:05</time></span><div class='quote '>ShellExecute рулит...</div></div><br>
Действительно рулит. Не только в програмистских разделах можно встретить упоминания о ней.<br>
<br>
<em class='tag-i'>Думаю стоит добавить заметку по этой функции в ФАК.</em> <br>
<br>
(см. пост №12)]]></description>
        <author>Djoser</author>
        <category>Visual Basic: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1202721</guid>
        <pubDate>Thu, 03 Aug 2006 12:05:13 +0000</pubDate>
        <title>Отправка по ссылке</title>
        <link>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1202721</link>
        <description><![CDATA[Beast666: <strong class='tag-b'>Змей(Чёрный)</strong>, вдобавок :P <br>
вот конкретный пример<br>
<div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">ShellExecute 0, &quot;open&quot;, &quot;http://AnapolisGame.jino-net.ru/&quot;, &quot;&quot;, &quot;&quot;, 1</div></ol></div></div></div></div><br>
 ;)]]></description>
        <author>Beast666</author>
        <category>Visual Basic: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1202586</guid>
        <pubDate>Thu, 03 Aug 2006 11:05:13 +0000</pubDate>
        <title>Отправка по ссылке</title>
        <link>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1202586</link>
        <description><![CDATA[Змей(Чёрный): <div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <span class='tag-quote__quote-info'>f33l, 03.08.2006, 11:39:17, 1202261</span><div class='quote '>Имхо, правильнее всего смотреть какой браузер помечен &quot;по умолчанию&quot;,</div></div><br>
ShellExecute рулит...<br>
<div class='tag-quote'><span class='tag-quote-prefix'>Цитата</span> <span class='tag-quote__quote-info'>f33l, 03.08.2006, 11:39:17, 1202261</span><div class='quote '><br>
 но открывать вручную, т.е. напрямую запускать его с параметром, т.к., например, при простом открытии ссылки она будет открыта в активном окне браузера, а не в новом.</div></div>Это в ИЕ, в случае, когда глупый юзер не поставил в настройках галку. Это исключительно проблема глупого юзера.<br>
<br>
Автор темы, юзай ShellExecute]]></description>
        <author>Змей(Чёрный)</author>
        <category>Visual Basic: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1202261</guid>
        <pubDate>Thu, 03 Aug 2006 08:39:17 +0000</pubDate>
        <title>Отправка по ссылке</title>
        <link>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1202261</link>
        <description><![CDATA[f33l: Имхо, правильнее всего смотреть какой браузер помечен &quot;по умолчанию&quot;, но открывать вручную, т.е. напрямую запускать его с параметром, т.к., например, при простом открытии ссылки она будет открыта в активном окне браузера, а не в новом.]]></description>
        <author>f33l</author>
        <category>Visual Basic: Общие вопросы</category>
      </item>
	
      <item>
        <guid isPermaLink='true'>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1202221</guid>
        <pubDate>Thu, 03 Aug 2006 08:14:45 +0000</pubDate>
        <title>Отправка по ссылке</title>
        <link>https://forum.sources.ru/index.php?showtopic=150244&amp;view=findpost&amp;p=1202221</link>
        <description><![CDATA[Spectr-7: В общем проблема не открыть сайт определенный по нажатию на кнопку, а открыть его через браузер который стоит по умолчанию.<br>
<br>
У меня такой код:<br>
<div class='tag-code'><span class='pre_code'></span><div class='code  code_collapsed ' title='Подсветка синтаксиса доступна зарегистрированным участникам Форума.' style=''><div><div><ol type="1"><div class="code_line">Shell &quot;C:\Program Files\Internet Explorer\IEXPLORE.EXE http://AnapolisGame.jino-net.ru/&quot;</div></ol></div></div></div></div><br>
Без указания программы она не сработает. Так же как и если винда будет на D. Но с этим то я справлюсь, важнее просто открыть ссылку в браузере стоящем по умолчанию.<br>
<br>
Подскажите как решить.]]></description>
        <author>Spectr-7</author>
        <category>Visual Basic: Общие вопросы</category>
      </item>
	
      </channel>
      </rss>
	