Photoshop programına gerek duymadan resim kernarlarını oval yapan bir web sitesidir.İster jpg isterseniz png formatlarında resimleriniz kenarlarını oval yapabilirsiniz.

http://www.roundpic.com/index.php

Adında anlaşılacağı gibi işletim sistemimizi başlattığımızda register da yer alan programları açmak için kullanırız.Örnek olarak kullandığımız virüs programı olabilir.Delphi7 projemizde  Register ile ilgili bir uygulamamız varsa kod perceresinde en üste yer alan Uses kısmına “Registry” yazmayı unutmayalım.Yoksa hata verecektir.Aşağıdaki kod ile bilgisayarımızı her  açtığımızda program çalışacaktır.Kapatmak için ise Başlat->Çalıştır msconfig yazarak işlemi buradan sonladırabilirsiniz.

//Registry (Start-Up Olayı)
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
reg:TRegistry;
ayar:Integer;
begin
reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.LazyWrite:=false;
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',true);
reg.WriteString('Personel','Personel Kayıt Programı');
reg.CloseKey;

System Tray sağ alt köşede yer alan programların olduğu yerdir.Arkaplanda çalışan bütün programlar burada iconları gösterilir.Delphi7 projenizde stystem tray kullanmak istiyorsanız  öncelikle System Tray uygulamamız için kod penceresinin en üstünde yer alan Var bloğun altına “Stray:NOTIFYICONDATA;”  bu kodu yazmamız gerekiyor.Bunun yanında yine aynı şekilde en üste yer alan Uses kısmıda “Shellapi” kütüphanesi çağırmamız gerektiğini de unutmamalıyız.

System Tray Kodu:

procedure TForm1.FormCreate(Sender: TObject);
begin
with stray do
begin
cbsize:=sizeof(stray);
wnd:=form1.handle;
hicon:=Application.icon.Handle;
uID:=0;
sztip:='Borland Yazılım'+chr(13)+'Personel Kayıt Programına Hoşgelginiz...';
uflags:=7;
uCallBackMessage:=$200;//icon üzerine tıklama kontrolu için
Shell_NotifyIcon(0,@stray);//Bu Eğer Değeri ‘0’ise Gösterir

Icon Üzerinde Sağ Tıkladığında Popup Menünün Gelmesi İçin:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
nokta:TPoint;
begin
getCursorPos(nokta);
if (x=$204) then PopupMenu1.Popup(nokta.x,nokta.y);
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 Then//İf Editte İken Enter Tuşuna Basarda İşlet
begin
SpeedButton1Click(Sender);//İşlet
end; end;

Bu Program Delphi 7.0 projesidir.

Muhtar Takip Otomasyon V.0.1  Hakkında
1-)Bu Program Sayesinde Konut ve Kişi Kayıtları Yapabilirsiniz
2-)Daha sonra İster Konut İstersen Kişi Kayıtlarını Excel olarak Kayıt Edebilirsiniz.
3-)Rapor Olarak Çıktı Alabilir veya Kayıt Yapabilirsiniz.
4-)Gelirleri Giderleri Grafik Olarak Gösterip İster Kayıt  İster Rapor İstersende .bmp Olarak Resim Alabilirsiniz.

Projenin tamamını indirmek için tıklayınız. Devamını Oku »