'If uFlags is the following constant, the string from the last-run program will not appear in the dialogs combo box
Const shrdNoMRUString = &H2 '2nd bit is set
Private Declare Function SHRunDialog Lib "shell32" Alias "#61" (ByVal hOwner As Long, ByVal Unknown1 As Long, ByVal Unknown2 As Long, ByVal szTitle As String, ByVal szPrompt As String, ByVal uFlags As Long) As Long
Private Sub Form_Load()
'KPD-Team 1999
'URL: http://www.allapi.net/
'E-Mail: [email protected]
SHRunDialog Me.hWnd, 0, 0, "开始...", "Type the name of a program ...", 0
End Sub
Const shrdNoMRUString = &H2 '2nd bit is set
Private Declare Function SHRunDialog Lib "shell32" Alias "#61" (ByVal hOwner As Long, ByVal Unknown1 As Long, ByVal Unknown2 As Long, ByVal szTitle As String, ByVal szPrompt As String, ByVal uFlags As Long) As Long
Private Sub Form_Load()
'KPD-Team 1999
'URL: http://www.allapi.net/
'E-Mail: [email protected]
SHRunDialog Me.hWnd, 0, 0, "开始...", "Type the name of a program ...", 0
End Sub
换图标:改变Unknown1的值:例如:
SHRunDialog Me.hWnd, 5, 0, "开始...", "Type the name of a program ...", 0
我用工具找shell32.dll也没找着。
就是不知道怎么定位对话框出现得位置