Arkada$Lar Sizden istedigim a$agıda yazacağım kodLarı eksiksiz ßir ßicimde yazmanız veya eksikLeri tamamLamanız..

unit UnitScreenCapture;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;

type
TForm1 = class(TForm)
Image1: TImage;
procedure FormCreate(Sender: TObject);
private

public

end;

var
Form1: TForm1;
DCDesk: HDC;

implementation



procedure TForm1.FormCreate(Sender: TObject);
begin
DCDesk:=GetWindowDC(GetDesktopWindow);
BitBlt(Image1.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,DCDesk, 0, 0,SRCCOPY);
ReleaseDC(GetDesktopWindow, DCDesk);
end;


end.

Ya da isterseniz File/New/Application dan acıp ßo$ formun uzerine cift tıkLayıp a$agıdaki Kodu gireßiLirsiniz orası size kaLmı$..

var
DCDesk: HDC; kısmına ßu kodu yazdıktan sonra cift tıkLadıgımızda acıLacak yere :

DCDesk:=GetWindowDC(GetDesktopWindow);
BitBlt(Image1.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,DCDesk, 0, 0,SRCCOPY);
ReleaseDC(GetDesktopWindow, DCDesk);
end;

ßu kadar koLay geLsin..
__________________