Print Screen Dengan aplikasi Buatan

Uantuk latihan Selanjutnya saya coba shara membuat aplikasi print Scren menggunakan delphi.
langsung ajah yach dah g sabar nech...

Untuk Komponen nya mudah k....

1. 3 buah Button
2. 1 buah image

Untuk Design lihat designnya di bawah ini :

Untuk Image nya di taruh aja di bawah komponen itu :

Sekarang tinggal aja Atur propertiesnya

Form Autoscrol : False trus Tinggal tulis ajah source code nya di bawah ini :

function GetScreenShot: TBitmap;

var

  Desktop: HDC;

begin

  Result  := TBitmap.Create;

  Desktop := GetDC(0);

  try

    try

      Result.PixelFormat := pf32bit;

      Result.Width := Screen.Width;

      Result.Height := Screen.Height;

      BitBlt(Result.Canvas.Handle, 0,0, Result.Width, Result.Height, Desktop, 0,0, SRCCOPY);

      Result.Modified := True;

    finally

      ReleaseDC(0, Desktop);

    end;

  except

    Result.Free;

    Result := nil;

  end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Image1.Picture.Bitmap := GetScreenShot;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Image1.Picture:=nil;

WindowState:=wsNormal;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

WindowState:=wsMaximized;

end;

end.

Untuk lebih detailnya Download ajah Source code nya di bawah ini :

.: Disini :.