En öndeki ekranı print scren yapma

[emrahozten]

MErhaba

fn alt prtsc kodunu bilen var mı?

[Lost Soul]

aktif pencerenin client rect bilgilerini alarak masaüstü resminden kesebilirsiniz.

[emrahozten]

Ben prof değilim, ne dedin bi anlasam Client rec i nasıl alcam. Biraz daha açar mısınız?

[SimaWB]

Kod: Tümünü seç

procedure TForm1.ScreenShotActiveWindow(Bild: TBitMap);
var
  c: TCanvas;
  r, t: TRect;
  h: THandle;
begin
  c := TCanvas.Create;
  c.Handle := GetWindowDC(GetDesktopWindow);
  h := GetForeGroundWindow;
  if h <> 0 then
    GetWindowRect(h, t);
  try
    r := Rect(0, 0, t.Right - t.Left, t.Bottom - t.Top);
    Bild.Width  := t.Right - t.Left;
    Bild.Height := t.Bottom - t.Top;
    Bild.Canvas.CopyRect(r, c, t);
  finally
    ReleaseDC(0, c.Handle);
    c.Free;
  end;
end;

Kullanımı:

Kod: Tümünü seç

var
  bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  try
    ScreenShotActiveWindow(bmp);
    bmp.SaveToFile('DosyaIsmi.bmp');
  finally
    bmp.Free;
  end;
end;

[emrahozten]

çok teşekkür ederim, işe yaradı