var
objInput: WInput;
objResult: WResult;
hwnd, x1 x2 y1 y2 ContextWordsLeft ContextWordsRight: integer;
Begin
objInput := CoWInput.Create;
objResult := CoWResult.Create;
hwnd := 0;
x1 := 0;
x2 := 0;
y1 := 0;
y2 := 0;
ContextWordsLeft := 0;
ContextWordsRight := 0;
{Set this values}
...
opjInput.Hwnd := hwnd;
opjInput.StartX := x1;
opjInput.StartY := y1;
opjInput.EndX := x2;
opjInput.EndY := y2;
opjInput.ContextWordsLeft := ContextWordsLeft;
opjInput.ContextWordsRight := ContextWordsRight;
try
opjResult := capture.Capture(opjInput);
finally
End;
End.
| 