Jak zrobić ScreenShoot

0

programowo?, i wstawić go do Image?

Oj chyba wiem, ale nie jestem pewien.--Delphi 2 , 6 i 5
Ciekawe pomysły i poszukiwanie rozwiązań.

0

Zobacz sobie w dziale delphi\Kody źródłowe\Bat.zip - tam są ten tego kody do robienia screenshotów a jeżeli nie umiesz z TBitmap przenieść na TImage :D to co pomoge!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

0

ludzie kiedy wy zaczniecie czytac FAQ????????????
a jak nie umiesz czytac FAQ to popatrz na kod ponizej :-)

var
Obraz: TBitmap;
Can : TCanvas;
begin
try
Obraz:=TBitmap.Create;
Obraz.Height:=Screen.Height;
Obraz.Width:=Screen.Width;
Can := TCanvas.Create;
Can.Handle := GetWindowDC( GetDesktopWindow );

Obraz.Canvas.CopyRect(Rect(0,0, Screen.Width,Screen.Height),
Can, Rect(0,0, Screen.Width, Screen.Height));

Image1.Picture.Bitmap := Obraz;

finally
Obraz.Free;
Can.Free;
end;
end;---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

0

Dzięki za odpowiedzi, ale analazłe stare faq i tam znalazłem kod.--Delphi 2 , 6 i 5
Ciekawe pomysły i poszukiwanie rozwiązań.

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0