Declare PtrSafe

eliubing

请教一下,“Private Declare PtrSafe Function ShellExecute 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) As Long”
这句话是什么意思啊，谢谢。

ione_fox

1. Option Explicit
   
2. 
   
3. Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
   
4. ByVal hwnd As Long, _
   
5. ByVal lpszOp As String, _
   
6. ByVal lpszFile As String, _
   
7. ByVal lpszParams As String, _
   
8. ByVal LpszDir As String, _
   
9. ByVal FsShowCmd As Long) _
   
10. As Long
    
11. 'hwnd
    
12. '标识父窗口。该窗口可以接收任何 消息框的应用程序产生（例如，用于错误报告).
    
13. 'lpszOp
    
14. '指向一个空结束的字符串，指定执行的操作。这个字符串可以是“open”或“打印”。如果这个参数为""，“open”是默认值。
    
15. 'lpszFile
    
16. '指向一个空结束的字符串，指定文件
    
17. 'lpszParams
    
18. '指向一个空结束的字符串指定参数 传递给应用程序时lpszFile参数所 指定一个可执行文件。如果lpszFile指向一个文档文件，该参数为""。
    
19. 'LpszDir
    
20. '指向一个空结束的字符串指定默认目录?
    
21. 'FsShowCmd
    
22. '指定应用程序窗口是否被显示时 该应用程序被打开.
    
23. 
    
24. 'FsShowCmd参数可选
    
25. 'SW_HIDE = 0; {隐藏}
    
26. 'SW_SHOWNORMAL = 1; {用最近的大小和位置显示, 激活}
    
27. 'SW_NORMAL = 1; {同 SW_SHOWNORMAL}
    
28. 'SW_SHOWMINIMIZED = 2; {最小化, 激活}
    
29. 'SW_SHOWMAXIMIZED = 3; {最大化, 激活}
    
30. 'SW_MAXIMIZE = 3; {同 SW_SHOWMAXIMIZED}
    
31. 'SW_SHOWNOACTIVATE = 4; {用最近的大小和位置显示, 不激活}
    
32. 'SW_SHOW = 5; {同 SW_SHOWNORMAL}
    
33. 'SW_MINIMIZE = 6; {最小化, 不激活}
    
34. 'SW_SHOWMINNOACTIVE = 7; {同 SW_MINIMIZE}
    
35. 'SW_SHOWNA = 8; {同 SW_SHOWNOACTIVATE}
    
36. 'SW_RESTORE = 9; {同 SW_SHOWNORMAL}
    
37. 'SW_SHOWDEFAULT = 10; {同 SW_SHOWNORMAL}
    
38. 'SW_MAX = 10; {同 SW_SHOWNORMAL}
    
39. 
    
40. 
    
41. '返回值大于32表示执行成功
    
42. '返回值小于32表示执行错误
    
43. '返回值可能的错误有: = 0 {内存不足}
    
44. 'ERROR_FILE_NOT_FOUND = 2; {文件名错误}
    
45. 'ERROR_PATH_NOT_FOUND = 3; {路径名错误}
    
46. 'ERROR_BAD_FORMAT = 11; {EXE 文件无效}
    
47. 'SE_ERR_SHARE = 26; {发生共享错误}
    
48. 'SE_ERR_ASSOCINCOMPLETE = 27; {文件名不完全或无效}
    
49. 'SE_ERR_DDETIMEOUT = 28; {超时}
    
50. 'SE_ERR_DDEFAIL = 29; {DDE 事务失败}
    
51. 'SE_ERR_DDEBUSY = 30; {正在处理其他 DDE 事务而不能完成该 DDE 事务}
    
52. 'SE_ERR_NOASSOC = 31; {没有相关联的应用程序}
    
53. 
    
54. 
    
55. 
    
56. Private Sub Command1_Click()
    
57. Dim r As Long
    
58. r = ShellExecute(0, "open", "http://www.microsoft.com", 0, 0, 2)
    
59. End Sub

复制代码