Windows Tools

[ertemsoft]

mrb

programın download adresi : http://www.ertemsoft.net/wintsetup.exe
Ekran Görüntüsü : http://www.ertemsoft.net/wintools.jpg


Windows Tools çeşitli windows araçlarını barındıran bir programdır.

Programla başlangıç menünüzü düzenleyebilir,diskinizde oluşan geçici dosyaları ,tanımlama bilgilerini silebilirsiniz.

Klasör Gizle bölümüyle özel klasörlerinizi gizleyebilirsiniz.

Şifrelerinizi saklayabilir büyük boyutlu dosyalarınızı parçalara ayırabilirsiniz.

Windows Kısıtlamaları ile windowsunuzun özel bölümlerine girişleri engelleyebilirisniz. Disklerinizi gizleyebilirsiniz.

Ekran kaydı sayesinde bilgisayarınızda yapılan işlemleri görebilirsiniz.

Belgelerinizi ve önemli dosyalarınızı yedekleyebilirsiniz.

Güvenli dosya silme ile önemli belgelerinizi kurtarılmayacak şekilde silebilirsiniz.

Duvar kağıtlarınızı belirlediğiniz aralıklarla otomatik olarak değiştirebilirsiniz.

Internet bölümünü kullanarak ip adresinizi,başlangıç sayfanızı,virüs veya kötü yazılımların
kilitlediği sayfa değiştirme butonlarını,DNS adreslerinizi değiştirebilirsiniz.

Ağ bölümünde ağdaki tüm bilsiyarları listeleyebilir, ping atabilir,Internet Ip adresinizi öğrenebilir,
Ip ve Host sorgulaması yapabilirsiniz.

Beğeneceğinizi umarım. saygılarımla.

[mkaderoglu]

çok teşekkür ederim. yazılım çok güzel görünüyoru şimdi indiriyor ve deniyorum. ellerine sağlık.

[conari]

Merhaba
ekran kaydı ile ilgili kod paylaşımı yapabilirmisiniz?

[ertemsoft]

slm formunuzun üstüne 1 adet image ve timer ekleyin.

örnek uygulama : http://rapidshare.com/files/408327352/screen.zip

Kod: Tümünü seç

procedure ScreenShot(Bild: TBitMap);
var
  c: TCanvas;
  r: TRect;
begin
  c := TCanvas.Create;
  c.Handle := GetWindowDC(GetDesktopWindow);
  try
    r := Rect(0, 0, Screen.Width, Screen.Height);
    Bild.Width := Screen.Width;
    Bild.Height := Screen.Height;
    Bild.Canvas.CopyRect(r, c, r);
  finally
    ReleaseDC(0, c.Handle);
    c.Free;
  end;
end;


procedure Tmainformf.ekrtTimer(Sender: TObject);
var
wdosya:String
begin
        ScreenShot(Image1.Picture.BitMap);
        wdosya:=Copy(DateTostr(date),1,2)+ Copy(DateTostr(date),4,2) + Copy(DateTostr(date),7,4) + '-' + Copy(timetostr(time),1,2) + Copy(timetostr(time),4,2) + Copy(timetostr(time),7,2) + '.jpg';
        jpg := TJpegImage.Create;
        jpg.Assign(image1.picture.bitmap );
        jpg.CompressionQuality := 40;
        jpg.SaveToFile (c:\ekrdir\wdosya );
        jpg.Free;

end;

not:Lütfen kodlarınızı code tagı arasına yazınız.

[conari]

aslında asıl görmek istediğim sıkıştırmaydı. çünkü JPG error alıyordum hep.

Teşekkürler.

[ertemsoft]

aslında asıl görmek istediğim sıkıştırmaydı. çünkü JPG error alıyordum hep.

Teşekkürler.

rica ederim.