Print Screen kodu

[Ʌüsal]

uses sətrinə JPEG əlavə edirsiz.

 

Forma 1 ədəd Button əlavə edin və aşağıdakı kodu əlavə edin.

 

procedure TForm1.spSkinXFormButton1Click(Sender: TObject);

Var

DeskHWnd : Hwnd;

dc: HDC;

ScreenWidth, ScreenHeight: Integer;

TheBmp : TBitmap;

jpeg1 :Tjpegimage;

 

begin

DeskHWnd := GetDeskTopWindow;

dc := GetDC(DeskHWnd);

ScreenWidth := GetDeviceCaps(dc,HORZRES);

ScreenHeight := GetDeviceCaps(dc,VERTRES);

TheBmp := TBitmap.Create;

TheBmp.Width := ScreenWidth;

TheBmp.Height := ScreenHeight;

BitBlt(TheBmp.Canvas.Handle, 0,0,ScreenWidth,ScreenHeight,dc, 0,0,SRCCOPY);

Image1.Picture.Bitmap := TheBmp;

Application.ProcessMessages;

Jpeg1:=TjpegImage.Create;

jpeg1.Assign(Image1.Picture.Bitmap);

jpeg1.Smoothing:=true;

Jpeg1.compress;

Jpeg1.SaveToFile('Sekil.JPG');

end;

 

end.

[Guest Musa_]

Çox sağ ol Vüsal.Gələcəkdə bəlkə lazım oldu:)

[Ʌüsal]

deymez

[Huseyn.]

Vusal wekili hara elave edileceyini bawa duwmedim ..

[Ʌüsal]

uses bolmune yazirsan formun bas sehifesindekiu uses bolmesi var ora yazirsan

[Mr.ScReaM]

melumat ucun sagol amma delphiden basim cixmir biraz Pascal bilirdim oda uje yaddan cixib)