Procedure ScreenShot(WidthCF,HeightCF:Integer);
Var
Bmp : TBitmap;
DC : HDC;
NameFile:string[20];
Today : TDateTime;
x1,x2,x3:integer;
Color_1 : TColor;
Begin
DateSeparator:='.';
TimeSeparator:='.';
Today:=Now;
NameFile:=DateToStr(Today)+'_'+TimeToStr(Today);
//--------------------------------------------------
Bmp := Tbitmap.Create;
Bmp.Height := HeightCF;
Bmp.Width := WidthCF;
DC := GetDC(Wnd);
Bitblt(Bmp.Canvas.Handle, 0, 0, WidthCF, HeightCF, DC, 0, 0, SRCCOPY);
Try
Color_1 := Bmp.Canvas.Pixels[Икс),Игрик)];// вот тут как бы 000000...
Bmp.SaveToFile('C:\'+ NameFile + '.bmp');// а тут все норм )
Except
End;
Bmp.Free;
End;
|