CPU 使用百分比 图形界面

; AutoHotkey Version: 1.x ; Language: English ; Platform: Win9x/NT ; Author: A.N.Other <myemail@nowhere.com> #NoEnv #SingleInstance, Force ListLines, Off OnExit, GuiClose OnMessage( 0xF, "WM_PAINT") Gui +AlwaysOnTop Gui, Margin, 10, 10 Gui, Font, s8, Verdana Loop, % 11 + ( Y := 15 ) - 15 ; Loop 11 times Gui, Add, Text, xm y%y% w22 h10 0x200 Right, % 125 - (Y += 10) ColumnW := 10 hBM := XGraph_MakeGrid( ColumnW, 10, 40, 12, 0x008000, 0, GraphW, GraphH ) Gui, Add, Text, % "xm+25 ym w" ( GraphW + 2 ) " h" ( GraphH + 2 ) " 0x1000" ; SS_SUNKEN := 0x1000 Gui, Add, Text, xp+1 yp+1 w%GraphW% h%GraphH% hwndhGraph gXGraph_GetVal 0xE, pGraph pGraph := XGraph( hGraph, hBM, ColumnW, "1,10,0,10", 0x00FF00, 1, True ) Gui, Add, StatusBar SB_SetParts( 100, 150 ) Gui, Show,, CPU Load Monitor ( One minute window ) SetTimer, XGraph_Plot, 1500 GoTo, XGraph_Plot F1::MsgbOx, 0x1040, XGraph, % XGraph_Info( pGraph ) ; // end of auto-execute section // F2::MsgbOx, 0x1040, XGraph - Array, % XGraph_Info( pGraph, "0.2" ) XGraph_GetVal: Value := XGraph_GetVal( pGraph ) If ( Col := ErrorLevel ) SB_SetText( "`tColumn : " Col, 1 ), SB_SetText( "`tValue : " Value, 2 ) Return XGraph_Paint: Sleep -1 XGraph_Plot( pGraph ) Return XGraph_Plot: CPUL := CPULoad() XGraph_Plot( pGraph, 100 - CPUL, CPUL ) Return GuiClose: OnExit ExitApp ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - WM_PAINT() { IfEqual, A_GuiControl, pGraph, SetTimer, XGraph_Paint, -1 } ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - CPULoad() { ; By SKAN, CD:22-Apr-2014 / MD:05-May-2014. Thanks to ejor, Codeproject: http://goo.gl/epYnkO Static PIT, PKT, PUT ; http://ahkscript.org/boards/viewtopic.php?p=17166#p17166 IfEqual, PIT,, Return 0, DllCall( "GetSystemTimes", "Int64P",PIT, "Int64P",PKT, "Int64P",PUT ) DllCall( "GetSystemTimes", "Int64P",CIT, "Int64P",CKT, "Int64P",CUT ) , IdleTime := PIT - CIT, KernelTime := PKT - CKT, UserTime := PUT - CUT , SystemTime := KernelTime + UserTime Return ( ( SystemTime - IdleTime ) * 100 ) // SystemTime, PIT := CIT, PKT := CKT, PUT := CUT } ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ; #Include xGraph.ahk ; ; AutoHotkey Version: 1.x ; Language: English ; Platform: Win9x/NT ; Author: A.N.Other <myemail@nowhere.com> ; ; Script Function: ; Template script (you can customize this template by editing "ShellNew\Template.ahk" in your Windows folder) ; /* __ __ __ __ __ __ __ _ __ / /_ / /_/ /_____ _ / // /____ _/ /_ / /________________(_)___ / /_ ____ _______ / __ \/ __/ __/ __ \(_) // // __ '/ __ \/ //_/ ___/ ___/ __/ / __ \/ __// __ \/ __/ _ \ / / / / /_/ /_/ /_/ / / // // /_/ / / / / ,< (__ ) /__/ / / / /_/ / /__/ /_/ / / / // / /_/ /_/\__/\__/ .___(_) // / \__,_/_/ /_/_/|_/____/\___/_/ /_/ .___/\__(_)____/_/ \__ / /_/ /_//_/ /_/ (___/ Script : XGraph v1.1.1.0 : Real time data plotting. http://ahkscript.org/boards/viewtopic.php?t=3492 Created: 24-Apr-2014, Last Modified: 09-May-2014 Description : Easy to use, Light weight, fast, efficient GDI based function library for graphically plotting real time data. Author : SKAN - Suresh Kumar A N ( arian.suresh@gmail.com ) Demos : CPU Load Monitor > http://ahkscript.org/boards/viewtopic.php?t=3413 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */ XGraph( hCtrl, hBM := 0, ColumnW := 3, LTRB := "0,2,0,2", PenColor := 0x808080, PenSize := 1, SV := 0 ) { Static WM_SETREDRAW := 0xB, STM_SETIMAGE := 0x172, PS_SOLID := 0, cbSize := 136, SRCCOPY := 0x00CC0020 , GPTR := 0x40, OBJ_BMP := 0x7, LR_CREATEDIBSECTION := 0x2000, LR_COPYDELETEORG := 0x8 ; Validate control WinGetClass, Class, ahk_id %hCtrl% Control, Style, +0x5000010E,, ahk_id %hCtrl% ControlGet, Style, Style,,, ahk_id %hCtrl% ControlGet, ExStyle, ExStyle,,, ahk_id %hCtrl% ControlGetPos,,, CtrlW, CtrlH,, ahk_id %hCtrl% If not ( Class == "Static" and Style = 0x5000010E and ExStyle = 0 and CtrlW > 0 and CtrlH > 0 ) Return 0, ErrorLevel := -1 ; Validate Bitmap If ( DllCall( "GetObjectType", "Ptr",hBM ) <> OBJ_BMP ) hTargetBM := DllCall( "CreateBitmap", "Int",2, "Int",2, "UInt",1, "UInt",16, "Ptr",0, "Ptr" ) , hTargetBM := DllCall( "CopyImage", "Ptr",hTargetBM, "UInt",0, "Int",CtrlW, "Int",CtrlH , "UInt",LR_CREATEDIBSECTION|LR_COPYDELETEORG, "Ptr" ) else hTargetBM := hBM VarSetCapacity( BITMAP,32,0 ) DllCall( "GetObject", "Ptr",hTargetBM, "Int",( A_PtrSize = 8 ? 32 : 24 ), "Ptr",&BITMAP ) If NumGet( BITMAP, 18, "UInt" ) < 16 ; Checking if BPP < 16 Return 0, ErrorLevel := -2 Else BitmapW := NumGet( BITMAP, 4, "UInt" ), BitmapH := NumGet( BITMAP, 8, "UInt" ) If ( BitmapW <> CtrlW or BitmapH <> CtrlH ) Return 0, ErrorLevel := -3 ; Validate Margins and Column width StringSplit, M, LTRB, `, , %A_Space% ; Left,Top,Right,Bottom MarginL := ( M1+0 < 0 ? 0 : M1 ), MarginT := ( M2+0 < 0 ? 0 : M2 ) MarginR := ( M3+0 < 0 ? 0 : M3 ), MarginB := ( M4+0 < 0 ? 0 : M4 ) ColumnW := ( ColumnW+0 < 0 ? 3 : ColumnW & 0xff ) ; 1 - 255 ; Derive Columns, BitBlt dimensions, Movement coords for Lineto() and MoveToEx() Columns := ( BitmapW - MarginL - MarginR ) // ColumnW BitBltW := Columns * ColumnW, BitBltH := BitmapH - MarginT - MarginB MX1 := BitBltW - ColumnW, MY1 := BitBltH - 1 MX2 := MX1 + ColumnW - ( PenSize < 1 ) ; MY2 := < user defined > ; Initialize Memory Bitmap hSourceDC := DllCall( "CreateCompatibleDC", "Ptr",0, "Ptr" ) hSourceBM := DllCall( "CopyImage", "Ptr",hTargetBM, "UInt",0, "Int",ColumnW * 2 + BitBltW , "Int",BitBltH, "UInt",LR_CREATEDIBSECTION, "Ptr" ) DllCall( "SaveDC", "Ptr",hSourceDC ) DllCall( "SelectObject", "Ptr",hSourceDC, "Ptr",hSourceBM ) hTempDC := DllCall( "CreateCompatibleDC", "Ptr",0, "Ptr" ) DllCall( "SaveDC", "Ptr",hTempDC ) DllCall( "SelectObject", "Ptr",hTempDC, "Ptr",hTargetBM ) If ( hTargetBM <> hBM ) hBrush := DllCall( "CreateSolidBrush", UInt,hBM & 0xFFFFFF, "Ptr" ) , VarSetCapacity( RECT, 16, 0 ) , NumPut( BitmapW, RECT, 8, "UInt" ), NumPut( BitmapH, RECT,12, "UInt" ) , DllCall( "FillRect", "Ptr",hTempDC, "Ptr",&RECT, "Ptr",hBrush ) , DllCall( "DeleteObject", "Ptr",hBrush ) DllCall( "BitBlt", "Ptr",hSourceDC, "Int",ColumnW * 2, "Int",0, "Int",BitBltW, "Int",BitBltH , "Ptr",hTempDC, "Int",MarginL, "Int",MarginT, "UInt",SRCCOPY ) DllCall( "BitBlt", "Ptr",hSourceDC, "Int",0, "Int",0, "Int",BitBltW, "Int",BitBltH , "Ptr",hTempDC, "Int",MarginL, "Int",MarginT, "UInt",SRCCOPY ) ; Validate Pen color / Size PenColor := ( PenColor + 0 <> "" ? PenColor & 0xffffff : 0x808080 ) ; Range: 000000 - ffffff PenSize := ( PenSize + 0 <> "" ? PenSize & 0xf : 1 ) ; Range: 0 - 15 hSourcePen := DllCall( "CreatePen", "Int",PS_SOLID, "Int",PenSize, "UInt",PenColor, "Ptr" ) DllCall( "SelectObject", "Ptr",hSourceDC, "Ptr",hSourcePen ) DllCall( "MoveToEx", "Ptr",hSourceDC, "Int",MX1, "Int",MY1, "Ptr",0 ) hTargetDC := DllCall( "GetDC", "Ptr",hCtrl, "Ptr" ) DllCall( "BitBlt", "Ptr",hTargetDC, "Int",0, "Int",0, "Int",BitmapW, "Int",BitmapH , "Ptr",hTempDC, "Int",0, "Int",0, "UInt",SRCCOPY ) DllCall( "RestoreDC", "Ptr",hTempDC, "Int",-1 ) DllCall( "DeleteDC", "Ptr",hTempDC ) DllCall( "SendMessage", "Ptr",hCtrl, "UInt",WM_SETREDRAW, "Ptr",False, "Ptr",0 ) hOldBM := DllCall( "SendMessage", "Ptr",hCtrl, "UInt",STM_SETIMAGE, "Ptr",0, "Ptr",hTargetBM ) DllCall( "SendMessage", "Ptr",hCtrl, "UInt",WM_SETREDRAW, "Ptr",True, "Ptr",0 ) DllCall( "DeleteObject", "Ptr",hOldBM ) ; Create / Update Graph structure DataSz := ( SV = 1 ? Columns * 8 : 0 ) pGraph := DllCall( "GlobalAlloc", "UInt",GPTR, "Ptr",cbSize + DataSz, "UPtr" ) NumPut( DataSz, pGraph + cbSize - 8 ) VarL := "cbSize / hCtrl / hTargetDC / hSourceDC / hSourceBM / hSourcePen / ColumnW / Columns / " . "MarginL / MarginT / MarginR / MarginB / MX1 / MX2 / BitBltW / BitBltH" Loop, Parse, VarL, /, %A_Space% NumPut( %A_LoopField%, pGraph + 0, ( A_Index - 1 ) * 8 ) Return pGraph } ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - XGraph_Info( pGraph, FormatFloat := "" ) { Static STM_GETIMAGE := 0x173 IfEqual, pGraph, 0, Return "", ErrorLevel := -1 T := "`t", TT := "`t:`t", LF := "`n", SP := " " pData := pGraph + NumGet( pGraph + 0 ), DataSz := Numget( pData-8 ) If ( FormatFloat <> "" and DataSz ) GoTo, XGraph_Info_Data VarL := "cbSize / hCtrl / hTargetDC / hSourceDC / hSourceBM / hSourcePen / ColumnW / Columns / " . "MarginL / MarginT / MarginR / MarginB / MX1 / MX2 / BitBltW / BitBltH" Loop, Parse, VarL, /, %A_Space% Offset := ( A_Index - 1 ) * 8, %A_LoopField% := NumGet( pGraph + 0, OffSet ) , RAW .= SubStr( Offset SP,1,3 ) T SubStr( A_LoopField SP,1,16 ) T %A_LoopField% LF hTargetBM := DllCall( "SendMessage", "Ptr",hCtrl, "UInt",STM_GETIMAGE, "Ptr",0, "Ptr",0 ) VarSetCapacity( BITMAP,32,0 ) DllCall( "GetObject", "Ptr",hTargetBM, "Int",( A_PtrSize = 8 ? 32 : 24 ), "Ptr",&BITMAP ) TBMW := NumGet( BITMAP, 4, "UInt" ), TBMH := NumGet( BITMAP, 8, "UInt" ) TBMB := NumGet( BITMAP, 12, "UInt" ) * TBMH, TBMZ := Round( TBMB/1024,2 ) TBPP := NumGet( BITMAP, 18, "UShort" ) Adj := ( Adj := TBMW - MarginL - BitBltW - MarginR ) ? " (-" Adj ")" : "" DllCall( "GetObject", "Ptr",hSourceBM, "Int",( A_PtrSize = 8 ? 32 : 24 ), "Ptr",&BITMAP ) SBMW := NumGet( BITMAP, 4, "UInt" ), SBMH := NumGet( BITMAP, 8, "UInt" ) SBMB := NumGet( BITMAP, 12, "UInt" ) * SBMH, SBMZ := Round( SBMB/1024,2 ) SBPP := NumGet( BITMAP, 18, "UShort" ) Return "GRAPH Properties" LF LF . "Screen BG Bitmap " TT TBMW ( Adj ) "x" TBMH " " TBPP "bpp ( " TBMZ " KB )" LF . "Margins ( L,T,R,B )" TT MarginL "," MarginT "," MarginR "," MarginB LF . "Client Area " TT MarginL "," MarginT "," MarginL+BitBltW-1 "," MarginT+BitBltH-1 LF LF . "Memory Bitmap " TT SBMW "x" SBMH " " SBPP "bpp ( " SBMZ " KB )" LF . "Graph Width " TT BitBltW " px ( " Columns " cols x " ColumnW " px )" LF . "Graph Height (MY2) " TT BitBltH " px ( y0 to y" BitBltH - 1 " )" LF . "Graph Array " TT ( DataSz=0 ? "NA" : Columns " cols x 8 bytes = " DataSz " bytes" ) LF LF . "Pen start position " TT MX1 "," BitBltH - 1 LF . "LineTo position " TT MX2 "," "MY2" LF . "MoveTo position " TT MX1 "," "MY2" LF LF . "STRUCTURE ( Offset / Variable / Raw value )" LF LF RAW XGraph_Info_Data: AFF := A_FormatFloat SetFormat, FloatFast, %FormatFloat% Loop % DataSz // 8 Values .= SubStr( A_Index " ", 1, 4 ) T NumGet( pData - 8, A_Index * 8, "Double" ) LF SetFormat, FloatFast, %AFF% StringTrimRight, Values, Values, 1 Return Values } ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - XGraph_Plot( pGraph, MY2 := "", SetVal := "", Draw := 1 ) { Static SRCCOPY := 0x00CC0020 IfEqual, pGraph, 0, Return "", ErrorLevel := -1 pData := pGraph + NumGet( pGraph + 0 ), DataSz := Numget( pData - 8 ) , hSourceDC := NumGet( pGraph + 24 ), BitBltW := NumGet( pGraph + 112 ) , hTargetDC := NumGet( pGraph + 16 ), BitBltH := NumGet( pGraph + 120 ) , ColumnW := NumGet( pGraph + 48 ) , MarginL := NumGet( pGraph + 64 ), MX1 := NumGet( pGraph + 096 ) , MarginT := NumGet( pGraph + 72 ), MX2 := NumGet( pGraph + 104 ) If not ( MY2 = "" ) DllCall( "BitBlt", "Ptr",hSourceDC, "Int",0, "Int",0, "Int",BitBltW + ColumnW, "Int",BitBltH , "Ptr",hSourceDC, "Int",ColumnW, "Int",0, "UInt",SRCCOPY ) , DllCall( "LineTo", "Ptr",hSourceDC, "Int",MX2, "Int",MY2 ) , DllCall( "MoveToEx", "Ptr",hSourceDC, "Int",MX1, "Int",MY2, "Ptr",0 ) If ( Draw = 1 ) DllCall( "BitBlt", "Ptr",hTargetDC, "Int",MarginL, "Int",MarginT, "Int",BitBltW, "Int",BitBltH , "Ptr",hSourceDC, "Int",0, "Int",0, "UInt",SRCCOPY ) If not ( MY2 = "" or SetVal = "" or DataSz = 0 ) DllCall( "RtlMoveMemory", "Ptr",pData, "Ptr",pData + 8, "Ptr",DataSz - 8 ) , NumPut( SetVal, pData + DataSz - 8, 0, "Double" ) Return 1 } ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - XGraph_SetVal( pGraph, Double := 0, Column := "" ) { IfEqual, pGraph, 0, Return "", ErrorLevel := -1 pData := pGraph + NumGet( pGraph + 0 ), DataSz := Numget( pData - 8 ) IfEqual, DataSz, 0, Return 0 If ( Column = "" ) DllCall( "RtlMoveMemory", "Ptr",pData, "Ptr",pData + 8, "Ptr",DataSz - 8 ) , pNumPut := pData + DataSz else Columns := NumGet( pGraph + 56 ) , pNumPut := pData + ( Column < 0 or Column > Columns ? Columns * 8 : Column * 8 ) Return NumPut( Double, pNumPut - 8, 0, "Double" ) - 8 } ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - XGraph_GetVal( pGraph, Column := "" ) { Static RECT If not VarSetCapacity( RECT ) VarSetCapacity( RECT, 16, 0 ) IfEqual, pGraph, 0, Return "", ErrorLevel := -1 pData := pGraph + NumGet( pGraph + 0 ), DataSz := Numget( pData - 8 ) Columns := NumGet( pGraph + 56 ) If not ( Column = "" or DataSz = 0 or Column < 1 or Column > Columns ) Return NumGet( pData - 8, Column * 8, "Double" ), ErrorLevel := Column hCtrl := NumGet( pGraph + 8 ), ColumnW := NumGet( pGraph + 48 ) , BitBltW := NumGet( pGraph + 112 ), MarginL := NumGet( pGraph + 64 ) , BitBltH := NumGet( pGraph + 120 ), MarginT := NumGet( pGraph + 72 ) , Numput( MarginL, RECT, 0, "Int" ), Numput( MarginT, RECT, 4, "Int" ) , DllCall( "ClientToScreen", "Ptr",hCtrl, "Ptr",&RECT ) , DllCall( "GetCursorPos", "Ptr",&RECT + 8 ) , MX := NumGet( RECT, 8, "Int" ) - NumGet( RECT, 0, "Int" ) , MY := NumGet( RECT,12, "Int" ) - NumGet( RECT, 4, "Int" ) , Column := ( MX >= 0 and MY >= 0 and MX < BitBltW and MY < BitBltH ) ? MX // ColumnW + 1 : 0 Return ( DataSz and Column ) ? NumGet( pData - 8, Column * 8, "Double" ) : "", ErrorLevel := Column } ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - XGraph_GetMean( pGraph, TailCols := "" ) { IfEqual, pGraph, 0, Return "", ErrorLevel := -1 pData := pGraph + NumGet( pGraph + 0 ), DataSz := Numget( pData - 8 ) IfEqual, DataSz, 0, Return 0, ErrorLevel := 0 Columns := NumGet( pGraph + 56 ) pDataEnd := pGraph + NumGet( pGraph + 0 ) + ( Columns * 8 ) TailCols := ( TailCols = "" or TailCols < 1 or Tailcols > Columns ) ? Columns : TailCols Loop %TailCols% Value += NumGet( pDataEnd - ( A_Index * 8 ), 0, "Double" ) Return Value / TailCols, ErrorLevel := TailCols } ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - XGraph_Detach( pGraph ) { IfEqual, pGraph, 0, Return 0 VarL := "cbSize / hCtrl / hTargetDC / hSourceDC / hSourceBM / hSourcePen" Loop, Parse, VarL, /, %A_Space% %A_LoopField% := NumGet( pGraph + 0, ( A_Index - 1 ) * 8 ) DllCall( "ReleaseDC", "Ptr",hCtrl, "Ptr",hTargetDC ) DllCall( "RestoreDC", "Ptr",hSourceDC, "Int",-1 ) DllCall( "DeleteDC", "Ptr",hSourceDC ) DllCall( "DeleteObject", "Ptr",hSourceBM ) DllCall( "DeleteObject", "Ptr",hSourcePen ) Return DllCall( "GlobalFree", "Ptr",pGraph, "Ptr" ) } ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - XGraph_MakeGrid( CellW, CellH, Cols, Rows, GLClr, BGClr, ByRef BMPW := "", ByRef BMPH := "" ) { Static LR_Flag1 := 0x2008 ; LR_CREATEDIBSECTION := 0x2000 | LR_COPYDELETEORG := 8 , LR_Flag2 := 0x200C ; LR_CREATEDIBSECTION := 0x2000 | LR_COPYDELETEORG := 8 | LR_COPYRETURNORG := 4 , DC_PEN := 19 BMPW := CellW * Cols + 1, BMPH := CellH * Rows + 1 hTempDC := DllCall( "CreateCompatibleDC", "Ptr",0, "Ptr" ) DllCall( "SaveDC", "Ptr",hTempDC ) If ( DllCall( "GetObjectType", "Ptr",BGClr ) = 0x7 ) hTBM := DllCall( "CopyImage", "Ptr",BGClr, "Int",0, "Int",BMPW, "Int",BMPH, "UInt",LR_Flag2, "UPtr" ) , DllCall( "SelectObject", "Ptr",hTempDC, "Ptr",hTBM ) Else hTBM := DllCall( "CreateBitmap", "Int",2, "Int",2, "UInt",1, "UInt",24, "Ptr",0, "Ptr" ) , hTBM := DllCall( "CopyImage", "Ptr",hTBM, "Int",0, "Int",BMPW, "Int",BMPH, "UInt",LR_Flag1, "UPtr" ) , DllCall( "SelectObject", "Ptr",hTempDC, "Ptr",hTBM ) , hBrush := DllCall( "CreateSolidBrush", "UInt",BGClr & 0xFFFFFF, "Ptr" ) , VarSetCapacity( RECT, 16 ) , NumPut( BMPW, RECT, 8, "UInt" ), NumPut( BMPH, RECT, 12, "UInt" ) , DllCall( "FillRect", "Ptr",hTempDC, "Ptr",&RECT, "Ptr",hBrush ) , DllCall( "DeleteObject", "Ptr",hBrush ) hPenDC := DllCall( "GetStockObject", "Int",DC_PEN, "Ptr" ) DllCall( "SelectObject", "Ptr",hTempDC, "Ptr",hPenDC ) DllCall( "SetDCPenColor", "Ptr",hTempDC, "UInt",GLClr & 0xFFFFFF ) Loop, % Rows + 1 + ( X := Y := 0 ) DllCall( "MoveToEx", "Ptr",hTempDC, "Int",X, "Int",Y, "Ptr",0 ) , DllCall( "LineTo", "Ptr",hTempDC, "Int",BMPW, "Int",Y ), Y := Y + CellH Loop, % Cols + 1 + ( X := Y := 0 ) DllCall( "MoveToEx", "Ptr",hTempDC, "Int",X, "Int",Y, "Ptr",0 ) , DllCall( "LineTo", "Ptr",hTempDC, "Int",X, "Int",BMPH ), X := X + CellW DllCall( "RestoreDC", "Ptr",hTempDC, "Int",-1 ) DllCall( "DeleteDC", "Ptr",hTempDC ) Return hTBM } ; - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -