Ĺadny brzuch
Witam!
Mam dwa pytania.
1. Czy można zrobić zrzut ekranu, aby był na nim kursor i czy jest sposób żeby przechwicił obraz z gry lub filmu?
2. Jest jakaś procedura, która by wskazała czy jest uruchomiony jakiś anty wirus lub zapora sutemu.
ad 2. Poczytaj: http://www.swissdelp...code.php?id=616
ad 1. Mozesz zrobic normalny zrzut ekranu i za pomoca canvas dorysowac kursor.
a jak trzeba wykorzystać te canvas do dorysowania kursora?
a jak trzeba wykorzystać te canvas do dorysowania kursora?
1.procedure TForm1.Button1Click(Sender: TObject); var c:tcanvas; b:tbitmap; i:ticon; p:tpoint; begin c:=tcanvas.Create; b:=tbitmap.Create; c.Handle:=GetWindowDC(GetDesktopWindow); b.Width:=c.ClipRect.Right-c.ClipRect.Left; b.Height:=c.ClipRect.Bottom-c.ClipRect.Top; b.Canvas.CopyRect(c.ClipRect,c,c.ClipRect); i:=ticon.Create; i.Handle:=LoadCursor(0,IDC_ARROW); GetCursorPos(p); b.Canvas.Draw(p.X-10,p.Y-10,i); b.SaveToFile('b.bmp'); i.Free; b.Free; c.Free; end;
dzięki
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Mam dwa pytania.
1. Czy można zrobić zrzut ekranu, aby był na nim kursor i czy jest sposób żeby przechwicił obraz z gry lub filmu?
2. Jest jakaś procedura, która by wskazała czy jest uruchomiony jakiś anty wirus lub zapora sutemu.
ad 2. Poczytaj: http://www.swissdelp...code.php?id=616
ad 1. Mozesz zrobic normalny zrzut ekranu i za pomoca canvas dorysowac kursor.
a jak trzeba wykorzystać te canvas do dorysowania kursora?
a jak trzeba wykorzystać te canvas do dorysowania kursora?
1.procedure TForm1.Button1Click(Sender: TObject); var c:tcanvas; b:tbitmap; i:ticon; p:tpoint; begin c:=tcanvas.Create; b:=tbitmap.Create; c.Handle:=GetWindowDC(GetDesktopWindow); b.Width:=c.ClipRect.Right-c.ClipRect.Left; b.Height:=c.ClipRect.Bottom-c.ClipRect.Top; b.Canvas.CopyRect(c.ClipRect,c,c.ClipRect); i:=ticon.Create; i.Handle:=LoadCursor(0,IDC_ARROW); GetCursorPos(p); b.Canvas.Draw(p.X-10,p.Y-10,i); b.SaveToFile('b.bmp'); i.Free; b.Free; c.Free; end;
dzięki