八、如何启动屏幕保护程序。
使用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盘，依此类推。
