Как открыть «Помощник по поиску Windows» или «Основной поиск Windows» для определенной папки в приложении с помощью Visual Basic?
Я нашел эту статью, но это не то, что я хотел м ищу.
Как открыть «Помощник по поиску Windows» или «Основной поиск Windows» для определенной папки в приложении с помощью Visual Basic?
Я нашел эту статью, но это не то, что я хотел м ищу.
Как это?
Код VBA/VB6
Option Explicit
'~~> API declaration for the windows "Search Results" dialog
Private Declare Function ShellSearch& Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long)
Private Const SW_SHOWNORMAL = 1
Const drv As String = "C:\"
Sub Sample()
ShellSearch 0, "Find", drv, "", "", SW_SHOWNORMAL
End Sub
Проверено в VBA
В Win XP
В Win 7
VB.NET (проверено на 64-разрядной версии Visual Studio Ultimate)
'~~> API declaration for the windows "Search Results" dialog
Private Declare Function ShellSearch Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Integer, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Integer) As Integer
Private Const SW_SHOWNORMAL = 1
Const drv As String = "C:\"
Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click
ShellSearch(0, "Find", drv, "", "", SW_SHOWNORMAL)
End Sub
find
? - person Deanna   schedule 16.04.2013