通過Delphi更換桌面壁紙和啟動、關閉屏保

通過Delphi更換桌面壁紙和啟動、關閉屏保，本程序可以在Delphi7下順利編譯，通過編譯生成的EXE文件，你可以指定一張漂亮的圖片作為windows的桌面壁紙，同時還可以打開、關閉Windows屏幕保護。

vIEw source print? 01 unit MainUnit; 02 interface 03 uses 04   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 05   StdCtrls, FileCtrl, ExtCtrls, JPEG; 06 type 07   TMainForm = class(TForm) 08     Button1: TButton; 09     DriveComboBox1: TDriveComboBox; 10     DirectoryListBox1: TDirectoryListBox; 11     FileListBox1: TFileListBox; 12     Image1: TImage; 13     procedure Button1Click(Sender: TObject); 14     procedure FileListBox1Click(Sender: TObject); 15   private 16     { Private declarations } 17   public 18     { Public declarations } 19   end; 20 var 21   MainForm: TMainForm; 22 implementation 23 {$R *.DFM} 24 procedure TMainForm.Button1Click(Sender: TObject); 25 var 26   sParam: PChar; 27 begin 28   sParam:= PChar(FileListBox1.FileName); 29   SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, sParam, SPIF_SENDWININICHANGE); 30 end; 31 procedure TMainForm.FileListBox1Click(Sender: TObject); 32 var S: String; 33 begin 34   S:= UpperCase(ExtractFileExt(FileListBox1.FileName)); 35   if (S= '.BMP') or (S= '.JPEG')or (S= '.JPG') then 36     Image1.Picture.LoadFromFile( FileListBox1.FileName); 37 end; 38 end.