thread_screensave.pas

来自「pasa人力资源考勤管理系统」· PAS 代码 · 共 63 行

unit thread_screensave;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, FileCtrl, ExtCtrls, ComCtrls, ToolWin, jpeg, Mask;

type
  Pasa_ScreenSaver = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

implementation

uses screensave,main;
{ Important: Methods and properties of objects in VCL can only be used in a
  method called using Synchronize, for example,

      Synchronize(UpdateCaption);

  and UpdateCaption could look like,

    procedure Pasa_ScreenSaver.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; }

{ Pasa_ScreenSaver }

procedure Pasa_ScreenSaver.Execute;
var
   SearchRec : TSearchRec;
   Res : Integer;
   f:string;
begin
 with formscreensave do
 begin
   if copy(screendir,length(screendir),1)='\' then
     Res := FindFirst(screendir + '*.JPG', faAnyFile, SearchRec)
   else
     Res := FindFirst(screendir + '\*.JPG', faAnyFile, SearchRec);
   while Res = 0 do
   begin
      try
         f:=screendir+'\'+SearchRec.Name;
         formscreensave.image1.Picture.LoadFromFile(f);
         formscreensave.image1.Update;
         sleep(screenint*1000);
      except
      end;
      Res := FindNext(SearchRec);
   end;
   FindClose(SearchRec);
   timer1.enabled:=true;
 end;
end;

end.