ITPub博客

首页 > 应用开发 > IT综合 > Delphi趣味编程实例三则

Delphi趣味编程实例三则

原创 IT综合 作者:xinxinhg 时间:2007-06-25 09:10:43 0 删除 编辑

一、隐藏任务栏屏蔽热键

二、动态调整显示器分辨率

三、鼠标滚轮如何编程

[@more@]

一、隐藏任务栏屏蔽热键

  在自己的程序中将任务栏隐藏起来,并屏蔽Ctrl+Alt+Del和Alt+Tab等系统热键,也是很有趣的。要实现它们比较容易,但千万别忘了恢复正常,另外,本例中使用了3个API函数:FindWindow、ShowWindow和SystemParametersInfo,在使用它们之前一定要进行申明。

  Implementation

  var Hwnd:THandle;

  Tmp:integer;

  procedure TForm1.Button1Click(Sender: TObject);

  begin

  Hwnd:=FindWindow('Shell_TrayWnd',nil);

  if Hwnd<>0 then ShowWindow(Hwnd,SW_HIDE); //隐藏任务栏

  SystemParametersInfo(SPI_SCREEN

  SAVERRUNNING,1,@Tmp,0); //屏蔽系统热键

  end;

  procedure TForm1.Button2Click(Sender: TObject);

  begin

  Hwnd:=FindWindow('Shell_TrayWnd',nil);

  ShowWindow(Hwnd,SW_SHOW); //恢复任务栏

  SystemParametersInfo(SPI_SCR

  EENSAVERRUNNING,0,@Tmp,0);

  //恢复系统热键

  end;


  二、动态调整显示器分辨率

  Delphi提供了可以动态改变屏幕分辨率的函数,分别是EnumDisplaySettings()和ChangeDisplaySettings()。有了它们,编程时可以随时改变分辨率以适应要求。下面的CRTReset函数能方便实现这一功能:

  implementation

  function CRTReset(X, Y: Word): Boolean;

  var

   lpDevMode: TDeviceMode;

  begin

   Result:= EnumDisplaySettings(nil, 0, lpDevMode); //获取显示模式

   if Result then begin

  lpDevMode.dmFields := DM_PELSWID

  TH Or DM_PELSHEIGHT;

  lpDevMode.dmPelsWidth := X;

  lpDevMode.dmPelsHeight := Y; //设置屏幕的宽度和高度

  Result:= ChangeDisplaySettings(lpDevMode, 0) = DISP_CHANGE_SUCCESSFUL;

   //改变屏幕分辨率并返回成功与否

  end;

  end;

  procedure TForm1.Button1Click(Sender: TObject);

  begin

  if CRTReset(800, 600) then ShowMessage('Now is 800*600'); //调用函数,设置分辨率为800×600

  end;


  三、鼠标滚轮如何编程

  我们使用的鼠标,很多都带有一个滚轮,方便用户的操作。但遗憾的是,平时编程多数只利用到鼠标的左、右两键,如果将滚轮操作功能也加进你的程序,定能使其增色不少。

  当鼠标指针指向窗体中时,Delphi为滚轮滚动提供OnMouseWheel事件,我们可以对它进行相应的处理。本例中,在窗体内放置一标签Label1,用于显示滚轮滚动的效果。

  implementation

  var i:integer;

  procedure TForm1.FormCreate(Sender: TObject);

  begin

   i:=0;

   Label1.Caption:=inttostr(i);

  end;

  procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;

   WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);

  begin

   if WheelDelta>0 then i:=i+1 else i:=i-1;

   //wheelDelta参数表示滚动一格的值,向上滚动为正数,向下滚动则为负数

   Label1.Caption:=inttostr(i);

  end;

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/166555/viewspace-920947/,如需转载,请注明出处,否则将追究法律责任。

下一篇: 没有了~
请登录后发表评论 登录
全部评论

注册时间:2008-09-28

  • 博文量
    43
  • 访问量
    1926832