somoon wrote:

>

> 델에서

> button1을 클릭하면 copy file하는 초보코딩좀

>

> copy sourcefile destination하는 방법을 알려주십시오.

>

> 도스창 안뜨고

> 카피하는 방법 좀



안녕하세요??



참고가 되었으면 하네요...



procedure TForm1.Button1Click(Sender: TObject);



begin

if Messagedlg('copy를 하시겠습니까?',mtinformation,[mbyes,mbno],0)= mryes then

CopyFile(PChar('C:datadata.mdb'),

PChar('c:datadata.bak'),False);



end;

somoon wrote:

>

> 델에서

> button1을 클릭하면 copy file하는 초보코딩좀

>

> copy sourcefile destination하는 방법을 알려주십시오.

>

> 도스창 안뜨고

> 카피하는 방법 좀



안녕하세요. ^^

CopyFile('원본파일', '복사파일', True);

하면되구요. 마지막 True인자는.. 중복파일이 있음.. 덮어씌우겠는지 여부있습니다.

True이면 덮어씌웁니당.



그럼..20000.

somoon wrote:

>

> 델에서

> button1을 클릭하면 copy file하는 초보코딩좀

>

> copy sourcefile destination하는 방법을 알려주십시오.

>

> 도스창 안뜨고

> 카피하는 방법 좀



아래프로그램은 제가 급하게 만든거라서 소스가 지저분하긴 하지만

SDK 써서 제작한 것이므로 이해해주세요~

특정 Network에 fileServer PC(여기서는 BOSS라는 PC)에 새롭게 올라온 파일들만 모든 클라이언트들이

자동으로 가져오는 프로그램입니다.



procedure TForm1.dll_search;

var

hfind:Thandle;

fd:Twin32finddata;

xd:boolean;

i,j:smallint;

gb:smallint;

begin

sleep(600);

i:=0;

hfind := findfirstfile('bossc저장하세요*.dll',fd);

listbox1.items.add(fd.cfilename);

while (i = 0) do

begin

xd:=findnextfile(hfind,fd);

for j:=0 to listbox1.Items.Count-1 do

begin

if listbox1.Items[j] = fd.cfilename then

begin

gb:=1;

end

else

begin

gb:=0;

end;

end;

if gb = 0 then

begin

listbox1.items.add(fd.cfilename);

end

else

begin

exe_search;

ini_search;

timer1.enabled:=true;

break;

end;

end;

windows.findclose(hfind);

end;







procedure TForm1.exe_search;

var

hfind:Thandle;

fd:Twin32finddata;

xd:boolean;

i,j:smallint;

gb:smallint;

begin

i:=0;

gb:=0;

hfind := findfirstfile('bossc저장하세요*.exe',fd);

if copy(fd.cfilename,length(fd.cfilename)-2,3) = 'exe' then

listbox1.items.add(fd.cfilename);

while (i = 0) do

begin

xd:=findnextfile(hfind,fd);

for j:=0 to listbox1.Items.Count-1 do

begin

if listbox1.Items[j] = fd.cfilename then

begin

gb:=1;

end

else

begin

gb:=0;

end;

end;

if gb = 0 then

begin

listbox1.items.add(fd.cfilename);

end

else

begin

break;

end;

end;

windows.findclose(hfind);

end;



procedure TForm1.ini_search;

var

hfind:Thandle;

fd:Twin32finddata;

xd:boolean;

i,j:smallint;

gb:smallint;

begin

i:=0;

gb:=0;

hfind := findfirstfile('bossc저장하세요*.ini',fd);

if copy(fd.cfilename,length(fd.cfilename)-2,3) = 'ini' then

listbox1.items.add(fd.cfilename);

while (i = 0) do

begin

xd:=findnextfile(hfind,fd);

for j:=0 to listbox1.Items.Count-1 do

begin

if listbox1.Items[j] = fd.cfilename then

begin

gb:=1;

end

else

begin

gb:=0;

end;

end;

if gb = 0 then

begin

listbox1.items.add(fd.cfilename);

end

else

begin

break;

end;

end;

windows.findclose(hfind);

end;



procedure TForm1.hwp_search;

var

hfind:Thandle;

fd:Twin32finddata;

xd:boolean;

i,j:smallint;

gb:smallint;

begin

i:=0;

gb:=0;

hfind := findfirstfile('bossc저장하세요*.hwp',fd);

if copy(fd.cfilename,length(fd.cfilename)-2,3) = 'hwp' then

listbox2.items.add(fd.cfilename);

while (i = 0) do

begin

xd:=findnextfile(hfind,fd);

for j:=0 to listbox2.Items.Count-1 do

begin

if listbox2.Items[j] = fd.cfilename then

begin

gb:=1;

end

else

begin

gb:=0;

end;

end;

if gb = 0 then

begin

listbox2.items.add(fd.cfilename);

end

else

begin

break;

end;

end;

windows.findclose(hfind);

end;





procedure TForm1.prg_copy;

var i:smallint;

f_name:string;

c_name:string;

begin

timer1.enabled:=false;

for i:=0 to listbox1.items.count-1 do

begin

f_name:='bossc저장하세요'+listbox1.Items[i];

c_name:='c:bimss_ii'+listbox1.Items[i];

label2.caption:=listbox1.items[i];

copyfile(pchar(f_name),pchar(c_name),false);

end;

i:=0;

for i:=0 to listbox2.items.count-1 do

begin

f_name:='bossc저장하세요'+listbox2.Items[i];

c_name:='c:hnc'+listbox2.Items[i];

label2.caption:=listbox2.items[i];

copyfile(pchar(f_name),pchar(c_name),false);

end;

end;



procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

case key of

vk_escape : close;

end;

end;



procedure TForm1.FormActivate(Sender: TObject);

begin

dll_search;

exe_search;

hwp_search;

end;



procedure TForm1.Timer1Timer(Sender: TObject);

begin

prg_copy;

timer1.enabled:=false;

close;

end;