Run dialog

[solotoo]

I have this great little bit of code which creates a dialog box, from which you can select a program to run.
However Im not happy with the "I dont know" parameters.
Also the strings dont show up correctly, they just show square boxes, as if the correct font cant be found.

Private Declare Function SHRunDialog Lib "shell32" Alias "#61" (ByVal hwnd _
As Long, ByVal I_dont_know_1 As Long, ByVal I_dont_know_2 As Long, ByVal _
dTitle As String, ByVal dPrompt As String, ByVal uFlags As Long) As Long

Private Sub Form_Load()

SHRunDialog hwnd, 0, 1, "This is Run dialog", "Please select the program to run", 2 'Normal Run Dialog
End
End Sub

 

[ghudson]

Not sure about the function you are using.

Check out the OpenFile function in my Browse [Find a directory or file] sample. It will allow you to select any file and open it.

 

[solotoo]

Cannot view!

Thanks,
Unfortunately the firewall on our intranet wont allow me to download the attachment!
grrr