Print Screen facility in a Delphi Application 5

[Stretchwickster]

I recently needed to automate an Alt-PrintScreen key press and, after much digging, found the following single-line does the job very well.

To simulate the ALT-PRINTSCREEN keyboard combination use this line i.e. to capture the active window:

  keybd_event(VK_SNAPSHOT, 1, 0, 0);

To simulate the PRINTSCREEN keyboard button press use this line i.e. to capture the entire screen:

  keybd_event(VK_SNAPSHOT, 0, 0, 0);

The Windows unit must be included to use this procedure.
For more info on this check out:

http://www.bcbdev.com/faqs/faq77.htm#keybd_event

Hope people find this useful!