procedure SShot(H: Cardinal;SSDir: String);
var
TimeS : String;
Rect: TRECT;
Bitmap : TBitmap;
Jpg: TJpegImage;
begin
if not DirectoryExists(SSDir) then createdir(SSDir);
 GetWindowRect(H,Rect);
 Bitmap := TBitmap.Create;
 Jpg := TJpegImage.Create;
 with Bitmap do
 begin
   Width :=  Rect.Right-Rect.Left+1;
   Height := Rect.Bottom-Rect.Top;
 end;

 BitBlt(Bitmap.Canvas.Handle,0,0,Bitmap.Width,Bitmap.Height,GetDC(h),-4,-43,SRCcopy);
 jpg.Assign(bitmap);
 jpg.CompressionQuality := 100;
 jpg.Compress;
 TimeS := FormatDateTime('dd',Date)+FormatDateTime('mm',Date)+FormatDateTime('yyyy',Date)+'_'+
        FormatDateTime('hh',Time)+FormatDateTime('nn',Time)+FormatDateTime('ss',Time);

 jpg.SaveToFile(SSDir+TimeS+'.jpg');
 jpg.Destroy;
 bitmap.Destroy;
end;