我的程序CPU占用率达30%！！！谁能帮忙改改？100分！(100分)

iCANK · 2002-01-18

是个屏幕取色的程序。另外，我想加入捕捉鼠标点击和鼠标移动，鼠标点击然后禁止 Timer1，把当前颜色copy到剪贴板，这段代码这么写？查过一些资料，说必须要用 mouse hook？但我不懂hook啊，而且，好像hook要在dll里调用，我不想再带一个dll， 就一个exe多好！：）有没有不用hook的方法就可以捕捉鼠标点击？捕捉鼠标移动是如果 鼠标没有在移动，就禁止Timer1，这样可能CPU占用率要小一些！ 源程序： unit ColorSpy_betaP; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   ExtCtrls, StdCtrls, Buttons, regions, VCLBase, EPLabels, epMorph; type   TForm1 = class(TForm)     Label1: TLabel;     Timer1: TTimer;     Label2: TLabel;     Label3: TLabel;     DisColor: TShape;     epRegionForm1: TepRegionForm;     WndCaption: TepLabel;     CloseBtn: TepMorphButton;     Timer2: TTimer;     procedure Timer1Timer(Sender: TObject);     procedure FormCreate(Sender: TObject);     procedure FormClose(Sender: TObject; var Action: TCloseAction);     procedure CloseBtnClick(Sender: TObject);     procedure Timer2Timer(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Timer1Timer(Sender: TObject); var   MousePos: TPoint;    //鼠标位置指针   MousePosX,MousePosY: string;   //鼠标位置X轴，鼠标位置Y轴   MousePosColor,MousePosColorRed,MousePosColorGreen,MousePosColorBlue: longint;   //鼠标位置颜色   MousePosColorRedH,MousePosColorGreenH,MousePosColorBlueH: string;      //颜色16进制 begin   GetCursorPos(MousePos);                 //得到鼠标坐标   MousePosX := IntToStr(MousePos.x);   MousePosY := IntToStr(MousePos.y);   Label1.Caption := Format('鼠标位置：[ %s，%s ]',[MousePosX,MousePosY]);   MousePosColor := GetPixel(GetDC(0),MousePos.x,MousePos.y);    //得到颜色。   MousePosColorRed := MousePosColor and $FF;                    //分离出红色   MousePosColorGreen := (MousePosColor and 65280) div 256;      //分离出绿色   MousePosColorBlue := (MousePosColor and $FF0000) div 65536;   //分离出蓝色   Label2.Caption := Format('RGB 颜色：[ %d，%d，%d ]',[MousePosColorRed,MousePosColorGreen,MousePosColorBlue]);   //方块显示颜色   DisColor.Brush.Color := RGB(MousePosColorRed,MousePosColorGreen,MousePosColorBlue);   //网页颜色16进制，不足8位的补齐8位。   MousePosColorRedH := Format('%x',[MousePosColorRed]);   if Length(MousePosColorRedH) = 1 then MousePosColorRedH := '0' + MousePosColorRedH;   MousePosColorGreenH := Format('%x',[MousePosColorGreen]);   if Length(MousePosColorGreenH) = 1 then MousePosColorGreenH := '0' + MousePosColorGreenH;   MousePosColorBlueH := Format('%x',[MousePosColorBlue]);   if Length(MousePosColorBlueH) = 1 then MousePosColorBlueH := '0' + MousePosColorBlueH;   Label3.Caption := Format('网页颜色：[ #%s%s%s ]',[MousePosColorRedH,MousePosColorGreenH,MousePosColorBlueH]); end; procedure TForm1.FormCreate(Sender: TObject); begin   SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);   Form1.Width := 178;   Form1.Height := 16; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin   Application.MessageBox('这是icank的软件！！！：P','提醒！：-）',MB_ICONINFORMATION+MB_OK); end; procedure TForm1.CloseBtnClick(Sender: TObject); begin   Close(); end; procedure TForm1.Timer2Timer(Sender: TObject); const   WndCreateSpeed = 10;       //定义窗口打开和关闭时的步长 begin   Timer2.Enabled := True;   with Form1 do     Width := Width + WndCreateSpeed;     Height := Height + WndCreateSpeed;     Top := Screen.Height div 2 - Height div 2;     Left := Screen.Width div 2 - Width div 2;     if Height > 76 then Timer2.Enabled := False; end; end.

yhaochuan · 2002-01-18

我试了，不到3%，有时候只有1%。 我的环境：D5+W2K 下面的过程我没让它执行 FormCreate Timer2Timer

我的程序CPU占用率达30%！！！谁能帮忙改改？100分！(100分)

iCANK

Unregistered / Unconfirmed

yhaochuan

Unregistered / Unconfirmed

Similar threads