Ĺadny brzuch
Witam!
Chciałbym się zapytać jak pobrać fragment zasłoniętego ekranu przez program (np. mój program zasłania okno notatnika i kawałek pulpitu - jak to pobrać?)
Musisz ukryć okno programu na czas robienia screena ;)
/edit:procedure TForm1.Button1Click(Sender: TObject); var r:trect; c:tcanvas; b:tbitmap; begin ShowWindow(Handle,SW_HIDE); Sleep(100); c:=tcanvas.Create; c.Handle:=GetWindowDC(GetDesktopWindow); b:=tbitmap.Create; GetWindowRect(Handle,r); b.Width:=Width; b.Height:=Height; b.Canvas.CopyRect(Rect(0,0,Width,Height),c,r); b.SaveToFile('c:\plik.bmp'); b.Free; c.Free; ShowWindow(Handle,SW_SHOW); end;
Użytkownik Cyrkiel edytował ten post 29 sierpień 2006, 19:32
Raczej pokazać na wierzch to okno programu, z którego chcesz pobrać zrzut. Bo jak będziesz miał to okno na samym dole, pod innymi oknami to ci nie to co chcesz wyjdzie. ;)
Użytkownik Maciek J. edytował ten post 29 sierpień 2006, 18:55
Dzięki Cyrkiel :D
EOT
Użytkownik JaCkObS edytował ten post 29 sierpień 2006, 21:10
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Chciałbym się zapytać jak pobrać fragment zasłoniętego ekranu przez program (np. mój program zasłania okno notatnika i kawałek pulpitu - jak to pobrać?)
Musisz ukryć okno programu na czas robienia screena ;)
/edit:procedure TForm1.Button1Click(Sender: TObject); var r:trect; c:tcanvas; b:tbitmap; begin ShowWindow(Handle,SW_HIDE); Sleep(100); c:=tcanvas.Create; c.Handle:=GetWindowDC(GetDesktopWindow); b:=tbitmap.Create; GetWindowRect(Handle,r); b.Width:=Width; b.Height:=Height; b.Canvas.CopyRect(Rect(0,0,Width,Height),c,r); b.SaveToFile('c:\plik.bmp'); b.Free; c.Free; ShowWindow(Handle,SW_SHOW); end;
Użytkownik Cyrkiel edytował ten post 29 sierpień 2006, 19:32
Raczej pokazać na wierzch to okno programu, z którego chcesz pobrać zrzut. Bo jak będziesz miał to okno na samym dole, pod innymi oknami to ci nie to co chcesz wyjdzie. ;)
Użytkownik Maciek J. edytował ten post 29 sierpień 2006, 18:55
Dzięki Cyrkiel :D
EOT
Użytkownik JaCkObS edytował ten post 29 sierpień 2006, 21:10