Kod:
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.