WINDOWS编程技巧之DELPHI篇

八、如何启动屏幕保护程序。
使用SendMessage或PostMessage函数。
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
sendmessage(HWND_BROADCAST,WM_SYSCOMMAND,SC_SCREENSAVE,0);
end;
启动屏幕保护程序还有一个方法，调用函数SystemParametersInfo,能过其参数设置可以启动或关闭屏幕保护程序。
SystemParametersInfo(SPI_SETSCREENSAVEACTIVE,1,nil,0); //启动屏保
　SystemParametersInfo(SPI_SETSCREENSAVEACTIVE,0,nil,0); 　//关闭屏保

九、检测驱动器是否准备就绪。
在DELPHI中没有提供专门的函数检测驱动器是否准备就绪，也不能直接调用一人API函数来实现这一操作。但是，我们

可以利用DiskSize来检测磁盘容量，如果驱动器不存在或没有准备好，它会返回-1，其它情况下则返回该磁盘或光盘的

容量。

Function DiskSize(Drive:Byte):Int64;
参数为0时，表示指定当前驱动器;为1时表示A盘，2表示B盘，依此类推。

陆续增加中......

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!