страницу надо в ресурс загнать - для этого редактор ресурсов в опциях включить надо.

Dim ar() As Byte
//загрузка из ресурса

  ar = LoadResData(102, "CUSTOM")

//запись в файл
Call writearray(App.Path & "\" & FILE_NAME, ar)

дальше Shell запускаешь

когда надо закончить - удаляешь. writearray - лежит в семплах MSDN. если что - мыль

Ответить

2 tiutiunic

А это что за зверь - writearray, что то я с ним не сталкивался, интригует однако.

Ответить

Public Const GENERIC_WRITE = &H40000000
      Public Const GENERIC_READ = &H80000000
      Const FILE_ATTRIBUTE_NORMAL = &H80
      Const CREATE_ALWAYS = 2
      Const OPEN_ALWAYS = 4
      Const INVALID_HANDLE_VALUE = -1
      Public Const FILE_NAME = "TEST.exe"           'This can be any file that does not
                                       'currently exist.

      Type MyType
         'value As Integer
         value As Byte
      End Type

      Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, _
         lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, _
         lpNumberOfBytesRead As Long, ByVal lpOverlapped As Long) As Long

      Private Declare Function CloseHandle Lib "kernel32" ( _
        ByVal hObject As Long) As Long

      Private Declare Function WriteFile Lib "kernel32" ( _
        ByVal hFile As Long, lpBuffer As Any, _
        ByVal nNumberOfBytesToWrite As Long, _
        lpNumberOfBytesWritten As Long, ByVal lpOverlapped As Long) As Long

      Private Declare Function createFile Lib "kernel32" _
        Alias "CreateFileA" (ByVal lpFileName As String, _
        ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, _
        ByVal lpSecurityAttributes As Long, _
        ByVal dwCreationDisposition As Long, _
        ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) _
        As Long

      Declare Function FlushFileBuffers Lib "kernel32" ( _
        ByVal hFile As Long) As Long

      Sub fillArray(anArray() As Integer)   'MyType)
         Dim x As Integer
         For x = 0 To UBound(anArray)
            anArray(x) = x
         Next x
      End Sub

      Sub Main()
         Dim fHandle As Integer
         Dim T(1000) As Integer  'MyType            'Define a large array of data
         Dim S(1000) As Integer  'MyType            'Define another large array

         fillArray T                      'Fill the array with some values
         writearray FILE_NAME, T          'Write the entire array to disk
         readArray FILE_NAME, S           'Read into a different array
      End Sub

Public Sub readArray(Fname As String, anArray() As Byte)   'MyType)
         Dim fHandle As Long
         Dim fSuccess As Long
         Dim sTest As String
         Dim lBytesRead As Long
         Dim BytesToRead As Long

         'Get size of data to write
         BytesToRead = (UBound(anArray) + 1) * LenB(anArray(0))
         'Get a handle to a file Fname.
         fHandle = createFile(Fname, GENERIC_WRITE Or GENERIC_READ, _
                              0, 0, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0)
         'Here you should test to see if you get a file handle or not.
         'CreateFile returns INVALID_HANDLE_VALUE if it fails.
         If fHandle <> INVALID_HANDLE_VALUE Then
            fSuccess = ReadFile(fHandle, anArray(LBound(anArray)), _
                                BytesToRead, lBytesRead, 0)
            'ReadFile returns a non-zero value if it is successful.
            'Now you just close the file.
            fSuccess = CloseHandle(fHandle)
         End If
      End Sub

Public Sub writearray(Fname As String, anArray() As Byte)   'MyType)
         Dim fHandle As Long
         Dim fSuccess As Long
         Dim sTest As String
         Dim lBytesWritten As Long
         Dim BytesToWrite As Long
         'Get the length of data to write
         BytesToWrite = (UBound(anArray) + 1) * LenB(anArray(

Ответить

Ответить