نحوه بهینه کردن حافظه رم

سلام.
من چطور میتونم حافظه رم رو فشرده سازی یا همون (Optimiz) کنم.
یه کدی خودم دارم ولی کار نمیکنه.
توی زبان vb.net

کد:

---

Declare Function a Lib "Kernel32.dll" (ByVal proccess As IntPtr, ByVal minimumWorkingSetSize As Integer, ByVal maximumWorkingSetSize As Integer) As Integer
 
 
 
 Public Sub compmemory()
    Try
        GC.Collect()
        GC.WaitForPendingFinalizers()
        If (Environment.OSVersion.Platform = PlatformID.Win32NT) Then
            a(Process.GetCurrentProcess().Handle, 1, 1)
            Dim mproc As Process() = Process.GetProcessesByName("ApplicationName")
            Dim mproc1 As Process
            For Each mproc1 In mproc
                a(mproc1.Handle, 1, 1)
 
            Next mproc1
        End If
    Catch ex As Exception
    End Try
End Sub

---

سلام
کدی که شما دست و پا شکسته اش را یافته اید، چنین است:

کد:

---

Private Declare Function SetProcessWorkingSetSize Lib "kernel32.dll" (ByVal hProc As IntPtr, ByVal MinSize As Integer, ByVal MaxSize As Integer) As Integer

Public Shared Sub FlushMemory()
    System.GC.Collect()
    System.GC.WaitForPendingFinalizers()
    If (System.Environment.OSVersion.Platform <> System.PlatformID.Win32NT) Then Return

    For Each p As System.Diagnostics.Process In System.Diagnostics.Process.GetProcesses()

          SetProcessWorkingSetSize(p.Handle, -1, -1)

    Next
End Sub

---

این کد صرفاً فضای خالی مازاد نیاز و بلا استفاده برنامه ها را آزاد میکند.