v1.2.9 (prevent screensaver while slideshow)

Author: torum

ufullscreen.pas

@@ -391,6 +391,11 @@ procedure TfrmFullscreen.FormClose(Sender: TObject;
     frmMain.DoneFullscreen(FstrCurr);
   end;
 
+  // Re-enabling the Screensaver
+  {$IFDEF Windows}
+  SetThreadExecutionState(ES_CONTINUOUS);
+  {$ENDIF}
+
   //ShowFullScreen(false);
 end;
 

umain.pas

@@ -245,7 +245,7 @@ procedure TfrmMain.FormCreate(Sender: TObject);
   folderfiles:TStringlist;
   fileSearchMask,fileFolder:string;
 begin
-  FstrAppVer:='1.2.7';
+  FstrAppVer:='1.2.9';
   // Init Main form properties.
   self.Caption:=ReplaceStr(ExtractFileName(ParamStr(0)),ExtractFileExt(ParamStr(0)),'');
   self.Visible:=false;