Tag Archives: ekran

Delphi ekran görüntüsü alma

delphi_screen_capture

Merhaba arkadaşlar,

Aşağıda yer alan CaptureScreen prosedürü ile ekran görüntüsü alabilirsiniz. Gerekli açıklamalar açıklama satırlarında yazılmıştır

procedure CaptureScreen(ABitmap: TBitmap);
var
vDesktopDC: HDC; // Masaüstü penceresinin aygıt içerik tanıtıcısı saklamak için değişken
bmp : TBitmap;
r : TRect;

begin
// mevcut masaüstü penceresinin aygıt içerik tanıtıcısını al
vDesktopDC := GetWindowDC(GetDesktopWindow);
try
// Tbitmap parametresi ile oluşturulacak resmin piksel kalitesi ve boyutları ayarlanıyor
ABitmap.PixelFormat := pf24bit;
ABitmap.Height := Screen.Height;
ABitmap.Width := Screen.Width;
// ABitmap içine masaüstünün resmini çizer
BitBlt(ABitmap.Canvas.Handle, 0, 0, ABitmap.Width, ABitmap.Height, vDesktopDC, 0, 0,SRCCOPY);
finally
// Bunun masaüstü aygıtı ile yapılmış olduğunun işareti
ReleaseDC(GetDesktopWindow, vDesktopDC);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
vBmp: TBitmap;

begin
// boş bir bitmap oluşturduk
vBmp := TBitmap.Create;
try

CaptureScreen(vBmp);
vBmp.SaveToFile(“hasandedeoglu.bmp”); //programın exe dosyasının yanına ekran görüntüsünü kaydettik
finally
vBmp.Free; //vBmp nesnesini bellekten yok ettik
end;
end;



Ekran karardı, ekran parlaklığı ayarlanmıyor

Merhaba,
Geçen gün Lenovo Ideapad Z500 markalı bir dizüstü bilgisayar arızalı olarak geldi. Arızası ise kısaca şuydu, ekran parlaklığı en düşük seviyede, ne yaparsanız yapın parlaklık ayarı yapılamıyordu. Yarım saatlik bir beyin fırtınasından sonra sorun çözüldü.
Bilgisayarınızın ekran parlaklığı en düşün seviyede ve Güç Seçenekleri –> Ekran Parlaklığı ayarla yoluyla ayarlayamıyorsanız, fonksiyon tuşları üzerindeki ekran parlaklığı ayarlama düğmeleri ile ayarlayamıyorsanız, ekran parlaklığını açıyorsunuz kapatıyorsunuz ancak parlaklık değişmiyorsa doğru makaledesiniz ve çözümü öğrenmek üzeresiniz. Read more

Bilgisayar çalışırken aniden kapanıyor

Bilgisayar çalışırken aniden kapanıyorsa bunun iki sebebi olabilir. Birinci sebep işlemci kaynaklı ikinci sebep ise ekran kartı kaynaklıdır.

Bilgisayarınız eğer taşınabilir bir bilgisayar ise ve çalışırken aniden kapanıyorsa yapmanız gereken şey bir teknik servise götürmektir. Çünkü taşınabilir bir bilgisayarı daha önce hiç açmadıysanız, tecrübe sahibi değilseniz, açtıktan sonra tekrar toplayamayabilirsiniz. En iyisi hiç uğraşmadan bir teknik servise götürün ve sorunu anlatırken teknik servise az çok bilgi sahibi olduğunuzu kanıtlamak için “işlemci veya ekran kartı ısınıyor galiba bilgisayar çalışırken aniden kapanıyor bir temizlik yapıp termal macununu yeniler misiniz?” Tarzında bir soruyla giderseniz teknik servisin size karşı tavrı olumlu yönde değişecektir. (Ücret 80-100TL civarında olabilir). Böyle bir sorunda teknik destek için iletişim bölümünü kullanabilirsiniz. Read more