rapi.vb

Programming the .NET Compact Framework with vb 源代码

      End Function

      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Sub CeGlobalMemoryStatus( _
         ByRef lpmst As MEMORYSTATUS _
         )
      End Sub

      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeMountDBVol( _
         ByRef pceguid As System.Guid _
         , ByVal lpszDBVol As String _
         , ByVal dwFlags As Integer _
         ) As Integer
      End Function

      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeMoveFile( _
         ByVal lpExistingFileName As String _
         , ByVal lpNewFileName As String _
         ) As Integer
      End Function

      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeOidGetInfo( _
         ByVal oid As Integer _
         , ByRef poidInfo As CEOIDINFO _
         ) As Integer
      End Function

      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeOidGetInfoEx( _
         ByRef pceguid As System.Guid _
         , ByVal oid As Integer _
         , ByRef poidInfo As CEOIDINFO _
         ) As Integer
      End Function

      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeOpenDatabase( _
         ByRef poid As Integer _
         , ByVal lpszName As String _
         , ByVal propid As CEPROPID _
         , ByVal dwFlags As Integer _
         , ByVal hwndNotify As IntPtr _
         ) As IntPtr
      End Function

      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeOpenDatabaseEx( _
         ByRef pceguid As System.Guid _
         , ByRef poid As Integer _
         , ByVal lpszName As String _
         , ByVal propid As CEPROPID _
         , ByVal dwFlags As Integer _
         , ByRef pRequest As CENOTIFYREQUEST _
         ) As IntPtr
      End Function

      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeRapiFreeBuffer( _
         ByVal pBuffer As IntPtr _
         ) As Integer
      End Function

      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeRapiGetError( _
         ) As Integer
      End Function

      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeRapiInit( _
         ) As Integer
      End Function

      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeRapiInitEx( _
         ByRef pRapiInit As RAPIINIT _
         ) As Integer
      End Function

      ' Block mode  Set ppIRAPIStream to zero
      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeRapiInvoke( _
         ByVal pDllPath As String _
         , ByVal pFunctionName As String _
         , ByVal cbInput As Integer _
         , ByVal pInput As IntPtr _
         , ByRef pcbOutput As Integer _
         , ByRef ppOutput As IntPtr _
         , ByVal Res1 As Integer _
         , ByVal Res2 As Integer _
         ) As Integer
      End Function

      ' Stream interface mode  Set ppIRAPIStream to valid IRAPIStream interface
      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeRapiInvoke( _
         ByVal pDllPath As String _
         , ByVal pFunctionName As String _
         , ByVal cbInput As Integer _
         , ByVal pInput As IntPtr _
         , ByVal Res1 As Integer _
         , ByVal Res2 As Integer _
         , ByRef ppIRAPIStream As IRAPIStream _
         , ByVal Res3 As Integer _
         ) As Integer
      End Function

      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeRapiUninit( _
         ) As Integer
      End Function

      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeReadFile( _
         ByVal hFile As IntPtr _
         , ByVal lpBuffer As IntPtr _
         , ByVal nNumberOfBytesToRead As Integer _
         , ByRef lpNumberOfBytesRead As Integer _
         , ByVal Reserved As Integer _
         ) As Integer
      End Function

      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeReadRecordProps( _
         ByVal hDbase As IntPtr _
         , ByVal dwFlags As Integer _
         , ByRef lpcPropID As Short _
         , ByRef rgPropID As CEPROPID _
         , ByRef lplpBuffer As IntPtr _
         , ByRef lpcbBuffer As Integer _
         ) As Integer
      End Function

      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeReadRecordPropsEx( _
         ByVal hDbase As IntPtr _
         , ByVal dwFlags As Integer _
         , ByRef lpcPropID As Short _
         , ByRef rgPropID As CEPROPID _
         , ByRef lplpBuffer As IntPtr _
         , ByRef lpcbBuffer As Integer _
         , ByVal hHeap As IntPtr _
         ) As Integer
      End Function

      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeRegCloseKey( _
         ByVal hKey As IntPtr _
         ) As Integer
      End Function

      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeRegCreateKeyEx( _
         ByVal hKey As IntPtr _
         , ByVal lpszSubKey As String _
         , ByVal Res1 As Integer _
         , ByVal Res2 As Integer _
         , ByVal Res3 As Integer _
         , ByVal Res4 As Integer _
         , ByVal Res5 As Integer _
         , ByRef phkResult As IntPtr _
         , ByRef lpdwDisposition As Integer _
         ) As Integer
      End Function

      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeRegDeleteKey( _
         ByVal hKey As IntPtr _
         , ByVal lpszSubKey As String _
         ) As Integer
      End Function

      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeRegDeleteValue( _
         ByVal hKey As IntPtr _
         , ByVal lpszValueName As String _
         ) As Integer
      End Function

      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeRegEnumKeyEx( _
         ByVal hKey As IntPtr _
         , ByVal dwIndex As Integer _
         , ByVal lpName As String _
         , ByRef lpcbName As Integer _
         , ByVal Res1 As Integer _
         , ByVal lpClass As String _
         , ByRef lpcbClass As Integer _
         , ByVal Res2 As Integer _
         ) As Integer
      End Function

      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeRegEnumKeyEx( _
         ByVal hKey As IntPtr _
         , ByVal dwIndex As Integer _
         , ByVal lpName As String _
         , ByRef lpcbName As Integer _
         , ByVal Res1 As Integer _
         , ByVal Res2 As Integer _
         , ByVal Res3 As Integer _
         , ByVal Res4 As Integer _
         ) As Integer
      End Function

      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeRegEnumValue( _
         ByVal hKey As IntPtr _
         , ByVal dwIndex As Integer _
         , ByVal lpszValueName As String _
         , ByRef lpcbValueName As Integer _
         , ByVal Res As Integer _
         , ByRef lpType As Integer _
         , ByRef lpData As Byte _
         , ByRef lpcbData As Integer _
         ) As Integer
      End Function

      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeRegOpenKeyEx( _
         ByVal hKey As IntPtr _
         , ByVal lpszSubKey As String _
         , ByVal Res1 As Integer _
         , ByVal Res2 As Integer _
         , ByRef phkResult As IntPtr _
         ) As Integer
      End Function

      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeRegQueryInfoKey( _
         ByVal hKey As IntPtr _
         , ByVal lpClass As String _
         , ByRef lpcbClass As Integer _
         , ByVal Res1 As Integer _
         , ByRef lpcSubKeys As Integer _
         , ByRef lpcbMaxSubKeyLen As Integer _
         , ByRef lpcbMaxClassLen As Integer _
         , ByRef lpcValues As Integer _
         , ByRef lpcbMaxValueNameLen As Integer _
         , ByRef lpcbMaxValueLen As Integer _
         , ByVal Res2 As Integer _
         , ByRef lpftLastWriteTime As FILETIME _
         ) As Integer
      End Function

      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeRegQueryValueEx( _
         ByVal hKey As IntPtr _
         , ByVal lpValueName As String _
         , ByVal Res1 As Integer _
         , ByRef lpType As REGTYPE _
         , ByVal iptrData As IntPtr _
         , ByRef lpcbData As Integer _
         ) As Integer
      End Function

      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeRegQueryValueEx( _
         ByVal hKey As IntPtr _
         , ByVal lpValueName As String _
         , ByVal Res1 As Integer _
         , ByRef lpType As REGTYPE _
         , ByVal strData As String _
         , ByRef lpcbData As Integer _
         ) As Integer
      End Function

      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeRegQueryValueEx( _
         ByVal hKey As IntPtr _
         , ByVal lpValueName As String _
         , ByVal Res1 As Integer _
         , ByRef lpType As REGTYPE _
         , ByRef piData As Integer _
         , ByRef lpcbData As Integer _
         ) As Integer
      End Function

      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeRegSetValueEx( _
         ByVal hKey As IntPtr _
         , ByVal lpValueName As String _
         , ByVal Res1 As Integer _
         , ByVal dwType As REGTYPE _
         , ByVal lpData As IntPtr _
         , ByVal cbData As Integer _
         ) As Integer
      End Function

      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeRegSetValueEx( _
         ByVal hKey As IntPtr _
         , ByVal lpValueName As String _
         , ByVal Res1 As Integer _
         , ByVal dwType As REGTYPE _
         , ByVal strData As String _
         , ByVal cbData As Integer _
         ) As Integer
      End Function

      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeRegSetValueEx( _
         ByVal hKey As IntPtr _
         , ByVal lpValueName As String _
         , ByVal Res1 As Integer _
         , ByVal dwType As REGTYPE _
         , ByRef piData As Integer _
         , ByVal cbData As Integer _
         ) As Integer
      End Function

      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeRemoveDirectory( _
         ByVal lpPathName As String _
         ) As Integer
      End Function

      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeSeekDatabase( _
         ByVal hDatabase As IntPtr _
         , ByVal dwSeekType As Integer _
         , ByVal dwValue As Integer _
         , ByRef lpdwIndex As Integer _
         ) As Integer
      End Function

      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeSetDatabaseInfo( _
         ByVal oidDbase As Integer _
         , ByRef pNewInfo As CEDBASEINFO _
         ) As Integer
      End Function

      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeSetDatabaseInfoEx( _
         ByRef pceguid As System.Guid _
         , ByVal oidDbase As Integer _
         , ByRef pNewInfo As CEDBASEINFO _
         ) As Integer
      End Function

      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeSetEndOfFile( _
         ByVal hFile As IntPtr _
         ) As Integer
      End Function

      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeSetFileAttributes( _
         ByVal lpFileName As String _
         , ByVal dwFileAttributes As Integer _
         ) As Integer
      End Function

      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeSetFilePointer( _
         ByVal hFile As IntPtr _
         , ByVal lDistanceToMove As Integer _
         , ByRef lpDistanceToMoveHigh As Integer _
         , ByVal dwMoveMethod As Integer _
         ) As Integer
      End Function

      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeSetFileTime( _
         ByVal hFile As IntPtr _
         , ByRef lpCreationTime As FILETIME _
         , ByRef lpLastAccessTime As FILETIME _
         , ByRef lpLastWriteTime As FILETIME _
         ) As Integer
      End Function

      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeSHCreateShortcut( _
         ByVal lpszShortcut As String _
         , ByVal lpszTarget As String _
         ) As Integer
      End Function

      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeSHGetShortcutTarget( _
         ByVal lpszShortcut As String _
         , ByVal lpszTarget As String _
         , ByVal cbMax As Integer _
         ) As Integer
      End Function

      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeUnmountDBVol( _
         ByRef pceguid As System.Guid _
         ) As Integer
      End Function

      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeWriteFile( _
         ByVal hFile As IntPtr _
         , ByVal lpBuffer As IntPtr _
         , ByVal nNumberOfBytesToWrite As Integer _
         , ByRef lpNumberOfBytesWritten As Integer _
         , ByVal Reserved As Integer _
         ) As Integer
      End Function

      <DllImport(DllName, CharSet:=CharSet.Unicode)> _
      Public Shared Function CeWriteRecordProps( _
         ByVal hDbase As IntPtr _
         , ByVal oidRecord As Integer _
         , ByVal cPropID As Short _
         , ByRef rgPropVal As CEPROPVAL _
         ) As Integer
      End Function

   End Class ' class Rapi