- procedure screenshot(f:string);
- var
- Scr: TBitmap;
- dc: HDC;
- w, h: integer;
- Begin
- w := Screen.Width;
- h := Screen.Height;
- Scr := TBitmap.Create;
- Scr.Width := w;
- Scr.Height := h;
- dc:=GetDc(0);
- BitBlt(Scr.canvas.handle, 0, 0, w, h, dc, 0, 0, SRCCOPY);
- Scr.SaveToFile(f);
- ReleaseDc(0, dc);
- Scr.Free;
- end;