Delphi de Print Screen Yapma

[krmej]

Arkadaşlar ben delphi de buttonu tıklayınca bilgisayarın ya da aktif programın ekran görüntüsünü almasını istiyorum.Ve bunu C diskinde bir yere kaydetmesini istiyorum.Bunu delphi de nasıl yapabilirim?

[Battosai]

Google da print screen delphi diye araman yeterliydi sonuç için.
http://delphi.about.com/od/adptips2004/ ... 0604_4.htm
http://www.swissdelphicenter.ch/torry/s ... php?id=259

[d4erth]

Kod: Tümünü seç

var DCDesk: HDC; // hDC of Desktop
  bmp: TBitmap;
begin
bmp := TBitmap.Create;
bmp.Height := Screen.Height;
bmp.Width := Screen.Width;
DCDesk := GetWindowDC(GetDesktopWindow);
BitBlt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
         DCDesk, 0, 0, SRCCOPY);
  bmp.SaveToFile('c:\ScreenShot.bmp');


  ReleaseDC(GetDesktopWindow, DCDesk);


  bmp.Free;

Buyur kardeşim ama keşke bi aratsaydın gerçekten forumumuz dört dörtlük bir kaynak. Sağlıcakla...