Действительно, проще со скриншотами...
Если с Дельфи дружите, то вот готовый код:
//---------------------------------------------
uses
Windows,
Graphics,
JPEG,
tlhelp32,
Messages,
SysUtils,
Classes,
Forms,
//---------------------------------------------
function CaptureMyDesktop: TBitmap;
var
Handles: HWND;
ScreenDC: HDC;
Rect: TRect;
lpPal: PLogPalette;
fBitmap: TBitmap;
begin
Handles := GetDesktopWindow();
ScreenDC := GetDC (Handles);
GetWindowRect (Handles, Rect);
fBitmap := TBitmap.Create;;
if (GetDeviceCaps(ScreenDC,RASTERCAPS) and RC_PALETTE = RC_PALETTE) then
begin
GetMem(lpPal,sizeof(TLOGPALETTE) + (255*sizeof(TPALETTEENTRY)));
FillChar ( lpPal^, sizeof ( TLOGPALETTE ) + (255 * sizeof (TPALETTEENTRY ) ), #0);
lpPal^.palVersion := $300;
lpPal^.palNumEntries := GetSystemPaletteEntries (ScreenDC, 0, 256, lpPal^.palPalEntry);
if (lpPal^.PalNumEntries <> 0) then
fBitmap.Palette := CreatePalette ( lpPal^ );
FreeMem (lpPal, sizeof (TLOGPALETTE) + (255 * sizeof (TPALETTEENTRY)));
end;
try
fBitmap.Width := Rect.Right - Rect.Left;
fBitmap.Height := Rect.Bottom - Rect.Top;
BitBlt (fBitmap.Canvas.Handle, 0, 0, fBitmap.Width, fBitmap.Height, ScreenDC, 0, 0, SRCCOPY);
ReleaseDC (Handles, ScreenDC);
Result := TBitmap.Create;
Result.Assign (fBitmap);
finally
ReleaseDC (Handles, ScreenDC);
end;
end;
//-------------------------------------------------------------------------
function SaveMyScreenShot(my_filename : string; my_reservename : string) : boolean;
var
my_bitmap : TBitmap;
my_jpeg : TJPEGImage;
begin
try
begin
my_jpeg := TJPEGImage.Create;
my_jpeg.PixelFormat := jf8bit;
my_jpeg.CompressionQuality := 1;
my_jpeg.Grayscale := true;
my_bitmap := TBitmap.Create;
my_bitmap.PixelFormat := pf1bit;
my_bitmap := CaptureMyDesktop();
my_jpeg.Assign(my_bitmap);
my_bitmap.Free;
try
begin
my_jpeg.SaveToFile(my_filename);
end;
except
begin
my_jpeg.SaveToFile(my_reservename);
end;
end;
my_jpeg.Free;
Result := true;
end;
except
Result:=false;
end;
end;
//------------------------------------------------------------------------------
И в таймере - вызов функции SaveMyScreenShot с интервалом 15000мсек...