Styring af andet kørende program

Hvis du ved hvor det er i relation til desktoppen desktoppen, kan du bruge flg. class:
<SNIP>
  TDxDesktopCanvas = class(TCanvas)
  private
    dcDesktop : hDC;    // Use \"handle\" to access the desktop\'s canvas
  public
    Constructor  Create;
    Destructor  Destroy;  override;
  end;



//--- TDxDesktopCanvas --------------------------------------------------------

Constructor TDxDesktopCanvas.Create;
begin
  inherited Create;
  dcDesktop := GetDC(0);
  handle    := dcDesktop;
end;

Destructor  TDxDesktopCanvas.Destroy;
begin
  handle := 0;
  ReleaseDC(0, dcDesktop);
  inherited Destroy;
end;
</SNIP>

Med hensyn til at \"trykke\" et bestemt sted så hedder det \"Meddelelser\"...

:) Hvis jeg har forstået det ret, kan jeg nogenlunde tage koden ind i et nyt program. Hvorefter jeg har TDxDesktopCanvas som en TCanvas,
hvorså jeg kan bruge copyrect til at få grafik ind. Men er det fra det vindue der ligger oven på desktop der bliver kopieret fra, eller er desktop under vinduet det handler om ?

\"Meddelelser\" ? forklar lige :)

-Dennis

:( Æv... det ser ud som om at jeg kun kan \'skrive\' til TDxDesktopCanvas\'et ? Jeg ville jo gerne læse... tilmed får jeg en slags ulovlig handling.

Okey jeg fandt dette her til at grabbe med....
http://www.eksperten.dk/spm/15319

det kan bruges.... men jeg famne ikke grabbe fra x1,y1,x2,y2 !! HVad skal der til ?

Linien: \"ScreenCap.Canvas.CopyRect(DeskRect, DeskCanvas, DeskRect);\" fortæller netop hvor fra/til der skal kopieres. Hvis du kigger i Delphi\'s hjælp kan du se at:
<SNIP>
Copies part of an image from another canvas into the canvas.

procedure CopyRect(Dest: TRect; Canvas: TCanvas; Source: TRect);

Description

Use CopyRect to transfer part of the image on another canvas to the image of the TCanvas object. Dest specifies the rectangle on the canvas where the source image will be copied. The Canvas parameter specifies the canvas with the source image. Source specifies a rectangle bounding the portion of the source canvas that will be copied.

The portion of the source canvas is copied using the mode specified by CopyMode.
</SNIP>

Det vil sige at det første parameter er \"hvorfra\" (altså din X1,Y1,X2,Y2). Du kan definere en variabel ekstra som du eksempelvis kalder (Var DestRect : TRect). Denne skal du så tildele dine X1,Y2,X2,Y2 værdier, hvilket du gør med:

DestRect := Rect(10,10,100,100);

og den \"færdige linie\" skal således så sådan her ud:

ScreenCap.Canvas.CopyRect(DestRect, DeskCanvas, DeskRect);

Flg. eksempel er fra Delphi\'s hjælp:
<SNIP>
he following code illustrates the differences between CopyRect and BrushCopy. The bitmap graphic ‘TARTAN.BMP’ is loaded into Bitmap and displayed on the Canvas of Form1. BrushCopy replaces the color black in the graphic with the brush of the canvas, while CopyRect leaves the colors intact.

var
  Bitmap: TBitmap;
  MyRect, MyOther: TRect;
begin
  MyRect := Rect(10,10,100,100);
  MyOther := Rect(10,111,100, 201);
  Bitmap := TBitmap.Create;
  Bitmap.LoadFromFile(\'c:\\windows\\tartan.bmp\');
  Form1.Canvas.BrushCopy(MyRect, Bitmap, MyRect, clBlack);
  Form1.Canvas.CopyRect(MyOther,Bitmap.Canvas,MyRect);
  Bitmap.Free;
end;
</SNIP>