unit1.~pas

Delphi实效编程百例的随书源代码 这是其中的操作系统部分

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  FileCtrl, StdCtrls, ExtCtrls, Menus;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    FileListBox1: TFileListBox;
    Panel3: TPanel;
    FileListBox2: TFileListBox;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure FileListBox1DblClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FileListBox1Click(Sender: TObject);
    procedure FileListBox2Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
var
  buf : array[0..256] of char;
begin
  GetSystemDirectory(buf, sizeof(buf) - 1);
  FileListBox1.directory := strpas(buf);
  FileListBox2.directory := strpas(buf);
end;

procedure TForm1.FileListBox1DblClick(Sender: TObject);
begin
  WinExec(PChar(FileListBox1.FileName + ' /s ' + inttostr(Panel2.handle)), SW_Show);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, pChar(FileListBox2.Filename),
                          SPIF_UPDATEINIFILE);
end;

procedure TForm1.FileListBox1Click(Sender: TObject);
begin
  //预览屏保
  WinExec(PChar(FileListBox1.FileName + ' /p ' + inttostr(Panel2.handle)), SW_Show);
end;

procedure TForm1.FileListBox2Click(Sender: TObject);
var
  bmp: TBitmap;
  rect: TRect;
begin
  //预览墙纸
  bmp := TBitmap.Create;
  bmp.LoadFromFile( FileListBox2.FileName );
  rect := Image1.ClientRect;
  Image1.Canvas.StretchDraw(rect, bmp);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  WinExec(PChar(FileListBox1.FileName + ' /s ' + inttostr(Panel2.handle)), SW_Show);
end;

end.