21-04-2007, 23:36
|
|
|
חבר מתאריך: 09.12.04
הודעות: 83
|
|
קוד:
Private Declare Function SetProcessWorkingSetSize Lib "kernel32.dll" (ByVal process As IntPtr, ByVal minimumWorkingSetSize As Integer, ByVal maximumWorkingSetSize As Integer) As Integer
Private Sub FlushMemory()
GC.Collect()
GC.WaitForPendingFinalizers()
If (Environment.OSVersion.Platform = PlatformID.Win32NT) Then
SetProcessWorkingSetSize(Process.GetCurrentProcess ().Handle, -1, -1)
End If
End Sub
פונקציה שמצאתי שמחייבת את VB.NET לעשות Garbage Collection. אני קורא לפונקציה הזאת ב-Dispose של הפורם, וה-RAM ירד מ-21 מגה ל-980 ק"ב.
בהצלחה.
|