Jump to content
Forum Windows-az.com

Print Screen kodu


Ʌüsal

Recommended Posts

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.

- Laptop ve Desktop Anakartlarin temiri

- BIOS yazilmasi

- Sifreli SuperUser BIOS-larin silinmesi

- Kicik chiplerin deyisidrilmesi

- BGA Chiplerin deyisdirilmesi (GPU/CPU/FCH/PCH/HM ve s)

Link to comment
Share on other sites

Proqramlar telegramda
  • 3 hafta sonra...
  • 3 hafta sonra...

Sohbete katıl

Şimdi mesajını gönderebilir ve daha sonra kayıt olabilirsin. Bir hesabın varsa, hesabınla göndermek için şimdi oturum aç.

Misafir
Bu konuya yanıt ver...

×   Zengin metin olarak yapıştırıldı.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Önceki içeriğiniz geri yüklendi.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • loading...
×
×
  • Create New...