cpusage.pas

系統硬件測試,主板的型號

unit CPUsage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MSI_CPUUsage,ActiveX,ComObj, Menus, ComCtrls, Gauges, RzStatus,
  JvExControls, JvComponent, JvSimPID, ExtCtrls, StdCtrls, MSI_GUI;

type
  TfrmDropBin = class(TForm,IDropTarget)
    Panel1: TPanel;
    Panel2: TPanel;
    MCPUUsage1: TMCPUUsage;
    procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Panel2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure MCPUUsage1Interval(Sender: TObject; Value: Cardinal);
    procedure Panel1DblClick(Sender: TObject);
    procedure Panel2DblClick(Sender: TObject);
  private
    { Private declarations }
 procedure WMNCHitTest(var Msg:TWMNCHitTest); message WM_NCHITTEST;
  protected
    procedure CreateParams(var Params: TCreateParams); override;
    procedure CreateWnd; override;
    procedure DestroyWnd; override;
    procedure DoClose(var Action: TCloseAction); override;
    function  DragEnter(const dataObj: IDataObject; grfKeyState: Longint; pt: TPoint; var dwEffect: Longint): HResult; stdcall;
    function  IDropTarget_DragOver(grfKeyState: Longint; pt: TPoint; var dwEffect: Longint): HResult; stdcall;
    function  IDropTarget.DragOver = IDropTarget_DragOver;  // 秆? IDropTarget.DragOver 蒓 TForm.DragOver ?