<?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=159659&amp;view=findpost&amp;p=1324025</guid>
        <pubDate>Tue, 31 Oct 2006 19:05:21 +0000</pubDate>
        <title>Поиск файлов с помощью Проводника</title>
        <link>https://forum.sources.ru/index.php?showtopic=159659&amp;view=findpost&amp;p=1324025</link>
        <description><![CDATA[rikitikitavi: <span class='tag-size' data-value='14' style='font-size:14pt;'>Поиск файлов с помощью програмы Проводник</span><br>
Можно дать возможность воспользоваться диалогом поиска файлов и папок, имеющимся в программе Проводник. Вызывается этот диалог с помощью технологии DDE. Можно создать в приложении временный обьект класса TDDEClientConv, связать его с программой Проводник (explorer.exe)как с сервером DDE и выполнить требуемый макрос. Всё это может выглядеть следующим образом :<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">Uses ddeman;</div><div class="code_line">…</div><div class="code_line">&nbsp;&nbsp;with TDdeClientConv.Create(self) do &nbsp;</div><div class="code_line">&nbsp;&nbsp;try</div><div class="code_line">&nbsp;&nbsp; &nbsp;ServiceApplication := &#39;explorer.exe&#39;;</div><div class="code_line">&nbsp;&nbsp; &nbsp;SetLink(&#39;Folder&#39;,&#39;AppProperties&#39;);</div><div class="code_line">&nbsp;&nbsp; &nbsp;OpenLink;</div><div class="code_line">&nbsp;&nbsp; &nbsp;ExecuteMacro(&#39;[findfolder(,c:\windows)]&#39;,false);</div><div class="code_line">&nbsp;&nbsp; &nbsp;CloseLink;</div><div class="code_line">&nbsp;&nbsp;finally</div><div class="code_line">&nbsp;&nbsp; &nbsp;Free;</div><div class="code_line">&nbsp;&nbsp;end;</div></ol></div></div></div></div><script>preloadCodeButtons('1');</script><br>
В данном примере в качестве начального каталога поиска задаётся каталог C:&#092; windows.]]></description>
        <author>rikitikitavi</author>
        <category>ActiveX, COM, DCOM, CORBA, MIDAS, интерфейсы, OLE, DDE</category>
      </item>
	
      </channel>
      </rss>
	