Syntax

code

Function: SaveScreenShot(const FileName: WideString; Prompt: WordBool): WordBool;

Description

Save a screenshot of the active monitor to a specified filespec.

Code Reference

  • 1. Create a New Form application
  • 2. Add a button to the form
  • 3. add Planswift to reference (Planswift9_tlb in the uses)
  • 4. copy code to button onclick event

code

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

procedure TForm1.psSaveScreenShowt(Sender: TObject);

var

  ps: IPlanSwift;

  sdialog: TSaveDialog;

begin

//Create Planswift Interface

  ps := coPlanswift.Create;

  //Create a Save Dialog

  sdialog := TSaveDialog.Create(form1);

  try

  if sdialog.Execute then

    //Save Screenshot to dialog selected location

    ps.SaveScreenShot(sdialog.FileName,true);

  finally

    //Free the dialog

    sdialog.Free;

  end;

  //Free Planswift

  ps := nil;

end;