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ń.
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ń.
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!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
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] ]=-
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ń.