mainunit.pas

来自「Delphi7编程80例(完全版)」· PAS 代码 · 共 81 行

unit MainUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, JPEG;

type
  TMainForm = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;
  AppPath: String;
  i: Integer;
const sCount= 3;   //设置屏保图片总数
implementation

uses PWFormUnit;

{$R *.DFM}

procedure TMainForm.Timer1Timer(Sender: TObject);   //设置屏保图片循环
begin
  if i< sCount then
    begin
      i:= i+ 1;
      Image1.Picture.LoadFromFile(AppPath+ IntToStr(i)+ '.jpg');   //读取屏保图片
    end
  else
    i:= 0;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  i:= 0;
  AppPath:= ExtractFilePath(ParamStr(0));
  Image1.Picture.LoadFromFile(AppPath+ '3.jpg');
  ShowCursor(False);   //隐藏鼠标
end;

procedure TMainForm.Image1Click(Sender: TObject);
begin
  Application.CreateForm(TPWForm, PWForm);
  PWForm.ShowModal;
  PWForm.Free;
  ShowCurSor(True);   //显示鼠标
end;

procedure TMainForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
  Application.CreateForm(TPWForm, PWForm);
  PWForm.ShowModal;
  PWForm.Free;
  ShowCurSor(True);

end;

procedure TMainForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if(Key=VK_F4) and ([ssAlt]=shift) then    //屏蔽Alt+F4键让程序不能被关闭
    Key:=0;

end;

end.