PlanSwift Code:
var
bSS : boolean;
begin
bSS := PlanSwift.SaveScreenShot('C:\SS.bmp');
end;
FreshDesk Code:
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; |