释放指定程序内存

Public Function QTP_Release_Memory(hwnd)

       Extern.Declare micVoid,"SendMessageA","user32.dll","SendMessageA",micHwnd,micInteger,micInteger,micInteger

       SC_MINIMIZE = &HF020&

       SC_MAXIMIZE = &HF030&

       WM_SYSCOMMAND = &H112

       Extern.SendMessageA hwnd,WM_SYSCOMMAND,SC_MINIMIZE,0

       wait 1

       Extern.SendMessageA hwnd,WM_SYSCOMMAND,SC_MAXIMIZE,0

  End Function

posted @ 2012-12-25 17:05  dushuai  阅读(470)  评论(0)  编辑  收藏  举报