سلام به دوستان و اساتید عزیز من هم همین مشکل رو دارم واقعا نمیدونم باید چه کار کنم ... اگر ممکنه یک نفر راهنمایی کنه ...
- - - Updated - - -
یک نفر این قطعه کد رو پیشنهاد داده ... به نظرتون میشه استفاده کرد ... مشخص نیست دقیقا چیه ... ممنونم
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
علاقه مندی ها (Bookmarks)