winapi getwidowsdirectory

Question

Dim strSysDirPath As String
      Dim vRetval As Double      Private Sub Form_Load()
         'Setup the string to receive the name of the system directory
         strSysDirPath = String$(145, Chr$(0))
         strSysDirPath = Left$(strSysDirPath, _
                         GetSystemDirectory(strSysDirPath, _
                         Len(strSysDirPath)))         'Run the Mail Control Panel
         vRetval = Shell(strSysDirPath & "\control.exe mlcfg32.cpl", 1)         'Do the rest of your work here. Note: Most developers will
         'likely want to pause their application here until returning from
         'the Control Panel
         MsgBox vRetval      End Sub这是MSDN里的东东。：）

Answer 1

你看看就明白了，一样的道理