من معمولا از این قطعه کد استفاده میکنم, میتونید اونو بعد یا قبل از جاهایی که حافظه زیادی نیاز دارید صدا بزنید
Option Explicit
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function GetProcessWorkingSetSize Lib "kernel32" (ByVal hProcess As Long, lpMinimumWorkingSetSize As Long, lpMaximumWorkingSetSize As Long) As Long
Private Declare Function SetProcessWorkingSetSize Lib "kernel32" (ByVal hProcess As Long, ByVal dwMinimumWorkingSetSize As Long, ByVal dwMaximumWorkingSetSize As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Public Sub MemoryCleanup()
'
Dim lRetVal As Long
Dim hProcess As Long
Dim lpMinimumWorkingSetSize As Long
Dim lpMaximumWorkingSetSize As Long
Const PROCESS_ALL_ACCESS = &H1F0FFF
hProcess = OpenProcess(PROCESS_ALL_ACCESS, False, GetCurrentProcessId)
lRetVal = GetProcessWorkingSetSize(hProcess, lpMinimumWorkingSetSize, lpMaximumWorkingSetSize)
lpMinimumWorkingSetSize = -1
lpMaximumWorkingSetSize = -1
lRetVal = SetProcessWorkingSetSize(hProcess, lpMinimumWorkingSetSize, lpMaximumWorkingSetSize)
hProcess = CloseHandle(hProcess)
'
End Sub
پاسخ با نقل قول
