Delphi趣味编程实例三则

一、隐藏任务栏屏蔽热键 　　在自己的程序中将任务栏隐藏起来，并屏蔽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;
http://develop.csai.cn/delphi/200604280839181838.htm