unit Unit1;

 
interface

 
uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, cxGraphics, cxControls, cxLookAndFeels,

cxLookAndFeelPainters, cxContainer, cxEdit, dxSkinsCore, dxSkinBlack,

dxSkinBlue, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,

dxSkinFoggy, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian,

dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,

dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,

dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,

dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinPumpkin, dxSkinSeven,

dxSkinSharp, dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,

dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue, acPNG, cxImage,

AdvSmartMessageBox, sLabel, sSkinManager;

 
type

TDropForm = class(TForm)

cxImage1: TcxImage;

mesaj: TAdvSmartMessageBox;

sLabelFX1: TsLabelFX;

sSkinManager1: TsSkinManager;

///Memo1: TMemo;

procedure FormCreate(Sender: TObject) ;

procedure cxImage1DblClick(Sender: TObject);

procedure ayristir (var uzanti:string ; filename:string ; dosyaadi:string;dizinmis:string)   ;

private

procedure WMDROPFILES(var msg : TWMDropFiles) ; message WM_DROPFILES;

 
public

{ Public declarations }

end;

 
var

DropForm: TDropForm;

 
implementation

{$R *.dfm}

 
uses ShellApi, Unit2, Unit3;

 
//form’s OnCreate event handler

procedure TDropForm.cxImage1DblClick(Sender: TObject);

begin

form2.show;

end;

 
procedure TDropForm.FormCreate(Sender: TObject) ;

begin

SetWindowPos(dropform.Handle,

HWND_TOPMOST,

0, 0, 0, 0,

SWP_NOMOVE or SWP_NOSIZE or SWP_SHOWWINDOW);

//form is ready to accept files

DragAcceptFiles( Handle, True ) ;

 
end;

 
(* handle files being dropped on a form *)

procedure TDropForm.WMDROPFILES(var msg: TWMDropFiles) ;

const

MAXFILENAME = 255;

var

cnt, fileCount : integer;

fileName : array [0..MAXFILENAME] of char;

uzanti:string;

dosyaadi,dizinler,adsizlar:string;

begin

// how many files dropped?

fileCount := DragQueryFile(msg.Drop, $FFFFFFFF, fileName, MAXFILENAME) ;

 
// query for file names

for cnt := 0 to -1 + fileCount do

begin

DragQueryFile(msg.Drop, cnt, fileName, MAXFILENAME) ;

 
//do something with the file(s)

/// memo1.Lines.Insert(0, fileName) ;

///

uzanti:= ExtractFileExt(filename);

dosyaadi:=ExtractFileName(filename);

dizinler:=ExtractFileDir(filename);

 
ayristir(uzanti,filename,dosyaadi,dizinler);

 
end;

 
//release memory

DragFinish(msg.Drop) ;

end;

 
procedure TDropForm.ayristir (var uzanti:string ; filename:string ; dosyaadi:string ;dizinmis:string) ;

var

i,j,k,l,m,n:integer;

adsizlar:string;

tanımlandı:boolean;

buttonSelected,buttonSelected2 : Integer;

begin

 
adsizlar:=ChangeFileExt(ExtractFileName(FileName), ’’);

 
tanımlandı:=false;

/// showmessage(uzanti) ;

for i := 0 to form2.-----.Items.Count – 1 do

begin

if lowercase(form2.-----.Items)=lowercase(uzanti) then

begin

if FileExists(form2.viddiz.Text+’\\\\\\\\’+dosyaadi) then

begin

showmessage(’Bu dizinde aynı isimli dosya var.Tarih eklenerek kaydedildi’);

MoveFilew(pchar(filename),pchar(form2.viddiz.Text+’\\\\\\\\’+adsizlar+’-’+datetostr(now)+uzanti)) ;

tanımlandı:=true;

break

end

 
else

begin

 
MoveFilew(pchar(filename),pchar(form2.viddiz.Text+’\\\\\\\\’+dosyaadi)) ;

tanımlandı:=true;

mesaj.Messages.Clear;

mesaj.Messages.Add.Text:=(’<B><FONT face=”Arial”>Bu Bir ----- Dosyası Şu anda kopyalanıyor</FONT></B>’);

mesaj.Messages.ShowAll;

 
end;

end;

 
end;

 
for j := 0 to form2.audio.Items.Count – 1 do

begin

if lowercase(form2.audio.Items[j])=lowercase(uzanti) then

begin

if FileExists(form2.sesdiz.Text+’\\\\\\\\’+dosyaadi) then

begin

showmessage(’Bu dizinde aynı isimli dosya var.Tarih eklenerek kaydedildi’);

MoveFilew(pchar(filename),pchar(form2.sesdiz.Text+’\\\\\\\\’+adsizlar+’-’+datetostr(now)+uzanti)) ;

tanımlandı:=true;

break

end

else

begin

 
MoveFilew(pchar(filename),pchar(form2.sesdiz.Text+’\\\\\\\\’+dosyaadi)) ;

tanımlandı:=true;

mesaj.Messages.Clear;

mesaj.Messages.Add.Text:=(’<B><FONT face=”Arial”>Bu Bir Audio Dosyası Şu anda kopyalanıyor</FONT></B>’);

mesaj.Messages.ShowAll;

end;

 
end;

end;

 
for k := 0 to form2.image.Items.Count – 1 do

begin

if lowercase(form2.image.Items[k])=lowercase(uzanti) then

begin

if FileExists(form2.imgdiz.Text+’\\\\\\\\’+dosyaadi) then

begin

showmessage(’Bu dizinde aynı isimli dosya var.Tarih eklenerek kaydedildi’);

MoveFilew(pchar(filename),pchar(form2.imgdiz.Text+’\\\\\\\\’+adsizlar+’-’+datetostr(now)+uzanti)) ;   ;

tanımlandı:=true;

break

end

else

begin

 
MoveFilew(pchar(filename),pchar(form2.imgdiz.Text+’\\\\\\\\’+dosyaadi)) ;

tanımlandı:=true;

mesaj.Messages.Clear;

mesaj.Messages.Add.Text:=(’<B><FONT face=”Arial”>Bu Bir İmaj Dosyası Şu anda kopyalanıyor</FONT></B>’);

mesaj.Messages.ShowAll;

end;

 
end;

end;

 
for l := 0 to form2.arch.Items.Count – 1 do

begin

if lowercase(form2.arch.Items[l])=lowercase(uzanti) then

begin

 
if FileExists(form2.arcdiz.Text+’\\\\\\\\’+dosyaadi) then

begin

showmessage(’Bu dizinde aynı isimli dosya var.Tarih eklenerek kaydedildi’);

MoveFilew(pchar(filename),pchar(form2.arcdiz.Text+’\\\\\\\\’+adsizlar+’-’+datetostr(now)+uzanti)) ;

tanımlandı:=true;

break

end

else

begin

 
MoveFilew(pchar(filename),pchar(form2.arcdiz.Text+’\\\\\\\\’+dosyaadi)) ;

tanımlandı:=true;

mesaj.Messages.Clear;

mesaj.Messages.Add.Text:=(’<B><FONT face=”Arial”>Bu Bir Arşiv Dosyası Şu anda kopyalanıyor</FONT></B>’);

mesaj.Messages.ShowAll;

end;

end;

 
end;

 
for m := 0 to form2.wordex.Items.Count – 1 do

begin

if lowercase(form2.wordex.Items[m])=lowercase(uzanti) then

begin

if FileExists(form2.wordexcel.Text+’\\\\\\\\’+dosyaadi) then

begin

showmessage(’Bu dizinde aynı isimli dosya var.Tarih eklenerek kaydedildi’);

MoveFilew(pchar(filename),pchar(form2.wordexcel.Text+’\\\\\\\\’+adsizlar+’-’+datetostr(now)+uzanti)) ;

tanımlandı:=true;

break

end

else

begin

 
MoveFilew(pchar(filename),pchar(form2.wordexcel.Text+’\\\\\\\\’+dosyaadi)) ;

tanımlandı:=true;

mesaj.Messages.Clear;

mesaj.Messages.Add.Text:=(’<B><FONT face=”Arial”>Bu Bir Word-Excel Dosyası Şu anda kopyalanıyor</FONT></B>’);

mesaj.Messages.ShowAll;

end;

end;

 
end;

 
if tanımlandı=false then

begin

ButtonSelected := MessageDlg(’Dosya Uzantısı Tanımlanamadı.Bu bir dizin midir?’,mtWarning, mbyesno, 0);

 
// Show the button type selected

if buttonSelected = mryes     then

klasor.show;

klasor.dizin.caption:=filename;

if buttonSelected = mrno then

ButtonSelected2 := MessageDlg(’Bu bir Dosya olarak işleme alınacaktır Ivır-Zıvır kısmına atılacaktır?’,mtWarning, mbyesno, 0);

if buttonSelected2 = mryes     then

MoveFilew(pchar(filename),pchar(form2.ivirdir.Text+’\\\\\\\\’+dosyaadi)) ;

end;

end;

 
end.

 
unit Unit2;

 
interface

 
uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, sMemo, sListBox, Mask, sMaskEdit, sCustomComboEdit,

sTooledit, sEdit;

 
type

TForm2 = class(TForm)

-----: TsListBox;

arch: TsListBox;

audio: TsListBox;

image: TsListBox;

viddiz: TsDirectoryEdit;

sesdiz: TsDirectoryEdit;

imgdiz: TsDirectoryEdit;

arcdiz: TsDirectoryEdit;

Memo1: TMemo;

ivirdir: TsDirectoryEdit;

wordex: TsListBox;

wordexcel: TsDirectoryEdit;

procedure FormDblClick(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure viddizChange(Sender: TObject);

procedure sesdizChange(Sender: TObject);

procedure imgdizChange(Sender: TObject);

procedure arcdizChange(Sender: TObject);

procedure dizinkaydet;

procedure FormCreate(Sender: TObject);

procedure ivirdirChange(Sender: TObject);

procedure wordexcelChange(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 
var

Form2: TForm2;

 
implementation

 
{$R *.dfm}

 
procedure TForm2.arcdizChange(Sender: TObject);

begin

memo1.Lines.Strings[3]:=arcdiz.text    ;

//memo1.Lines.ValueFromIndex[3]=arcdiz.Text;

dizinkaydet;

end;

 
procedure TForm2.FormCreate(Sender: TObject);

begin

if FileExists(’C:\\\\\\\\Program Files\\\\\\\\ayristirici\\\\\\\\dirlist.lst’) then

form2.Memo1.Lines.LoadFromFile(’C:\\\\\\\\Program Files\\\\\\\\ayristirici\\\\\\\\dirlist.lst’);

viddiz.text:=memo1.Lines.Strings[0];

sesdiz.text:=memo1.Lines.Strings[1];

imgdiz.text:=memo1.Lines.Strings[2];

arcdiz.text:=memo1.Lines.Strings[3];

ivirdir.text:=memo1.Lines.Strings[4];

wordexcel.text:=memo1.Lines.Strings[5];

end;

 
procedure TForm2.FormDblClick(Sender: TObject);

begin

form2.Show;

 
end;

 
procedure TForm2.FormShow(Sender: TObject);

begin

//viddiz.Text:=memo1.Lines.ValueFromIndex[0];

//sesdiz.Text:=memo1.Lines.ValueFromIndex[1];

//imgdiz.Text:=memo1.Lines.ValueFromIndex[2];

//arcdiz.Text:=memo1.Lines.ValueFromIndex[3];

end;

 
procedure TForm2.imgdizChange(Sender: TObject);

begin

memo1.Lines.Strings[2]:=imgdiz.Text;

dizinkaydet;

end;

 
procedure TForm2.ivirdirChange(Sender: TObject);

begin

memo1.Lines.Strings[4]:=ivirdir.Text;

dizinkaydet;

end;

 
procedure TForm2.sesdizChange(Sender: TObject);

begin

memo1.Lines.Strings[1]:=sesdiz.Text;

dizinkaydet;

end;

 
procedure TForm2.viddizChange(Sender: TObject);

begin

memo1.Lines.Strings[0]:=viddiz.Text;

dizinkaydet;

end;

 
procedure TForm2.wordexcelChange(Sender: TObject);

begin

memo1.Lines.Strings[5]:=wordexcel.Text;

dizinkaydet;

end;

 
procedure tform2.dizinkaydet;

begin

memo1.Lines.SaveToFile(’C:\\\\\\\\Program Files\\\\\\\\ayristirici\\\\\\\\dirlist.lst’);

end;

 
end.

 
unit Unit3;

 
interface

 
uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls,shellapi;

 
type

Tklasor = class(TForm)

Button1: TButton;

ComboBox1: TComboBox;

dizin: TLabel;

procedure Button1Click(Sender: TObject);

function CopyDir(const fromDir, toDir: string): Boolean;

function MoveDir(const fromDir, toDir: string): Boolean;

function DelDir(dir: string): Boolean;

private

{ Private declarations }

public

{ Public declarations }

end;

 
var

klasor: Tklasor;

 
implementation

 
uses Unit2, Unit1;

 
{$R *.dfm}

 
function tklasor.CopyDir(const fromDir, toDir: string): Boolean;

var

fos: TSHFileOpStruct;

begin

ZeroMemory(@fos, SizeOf(fos));

with fos do

begin

wFunc := FO_COPY;

fFlags := FOF_FILESONLY;

pFrom := PChar(fromDir + #0);

pTo    := PChar(toDir)

end;

Result := (0 = ShFileOperation(fos));

end;

 
function tklasor.MoveDir(const fromDir, toDir: string): Boolean;

var

fos: TSHFileOpStruct;

begin

ZeroMemory(@fos, SizeOf(fos));

with fos do

begin

wFunc := FO_MOVE;

fFlags := FOF_FILESONLY;

pFrom := PChar(fromDir + #0);

pTo    := PChar(toDir)

end;

Result := (0 = ShFileOperation(fos));

end;

 
function tklasor.DelDir(dir: string): Boolean;

var

fos: TSHFileOpStruct;

begin

ZeroMemory(@fos, SizeOf(fos));

with fos do

begin

wFunc := FO_DELETE;

fFlags := FOF_SILENT or FOF_NOCONFIRMATION;

pFrom := PChar(dir + #0);

end;

Result := (0 = ShFileOperation(fos));

end;

 
procedure tklasor.Button1Click(Sender: TObject);

var

dir:string;

begin

//

//-----

//Image

//Audio

//Archive

 
if ComboBox1.ItemIndex=0 then

dir:=form2.viddiz.text;

if ComboBox1.ItemIndex=1 then

dir:=form2.imgdiz.text;

if ComboBox1.ItemIndex=2 then

dir:=form2.sesdiz.text;

if ComboBox1.ItemIndex=3 then

dir:=form2.arcdiz.text;

if combobox1.ItemIndex=4 then

dir:=form2.ivirdir.Text;

if combobox1.ItemIndex=5 then

dir:=form2.wordexcel.Text;

 
if CopyDir(dizin.Caption,dir ) = True then

begin

DelDir(dizin.Caption);

klasor.close;

end;

end;

 
end.