![]() |
|
#1
|
|||
|
|||
![]() Добрый день ув. люди
![]() п.с. форум читал, но нужного ответа так и не нашел. п.п.с был бы благодарен примеру получения скрина через directx в данный момент получаю скрин так: Код:
procedure TForm1.FormCreate(Sender: TObject); begin b:=TBitmap.Create; b.Width:=105; b.Height:=105; MainDC:=GetDC(0); end; procedure TForm1.FormDestroy(Sender: TObject); begin b.Free; ReleaseDC(MainDC,0); end; procedure TForm1.Timer1Timer(Sender: TObject); begin BitBlt(b.Canvas.Handle,0,0,105,105,MainDC,0,0,SrcCopy); end; ![]() |