트라이아이콘 과 타이머.. 컴퍼넌트를 사용해서..
항상 시스템에 상주시키면되겠네요..

해당컴프넌트는 자료실에 보면 있습니다....

Copy 방법과. 네트웍드라이버 잡는 방법등은 답변난에 보면 많이 있어니까 참고하시고요..

그리고 이런질문을 하기전에 자료실을 열심히 찾아보는 습관을 가지면 이런작업은 그리 어렵지 않을것 같네요.... 항상 즐코하세요...

팁정보 강민주님이 올리신 겁니다..그런데
아래에 isDir가 있는데 어떻게 사용하는건지 자꾸 여기서 에러가 나는데

[Error] Unit1.pas(38): Undeclared identifier: 'IsDir'

뭘 어떻게 해줘야 할지 잘 몰라서요 정말 초짜 맞죠...

아시는분 쉽게 좀 알려주세요..모르니까 답답하기만하네요..

초보자의 비애입니다..


Function copyFile(FromFile,ToFile:String): Boolean;
Var
FromF, ToF: file;
{$IFDEF WIN32}
NumRead, NumWritten: Integer;
{$ELSE}
NumRead, NumWritten: Word;
{$ENDIF}
Buf: array[1..2048] of Char;
Begin
If IsDir(FromFile) Then
Begin
{MessageDlg('Problem! There Was A Problem copying '+FromFile,
mtWarning, [mbOk], 0);}
Result := False;
End
Else
Begin
AssignFile(FromF, FromFile);
AssignFile(ToF, ToFile);
Try
FileMode := 0; {Sets Reset To ReadOnly}
Reset(FromF, 1);{ Record size = 1 }
FileMode := 2; {Sets Reset To ReadWrite}
Rewrite(ToF, 1);{ Record size = 1 }
repeat
BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
BlockWrite(ToF, Buf, NumRead, NumWritten);
until (NumRead = 0) or (NumWritten <> NumRead);
System.CloseFile(FromF);
System.CloseFile(ToF);
Result := True;
Except
On EInOutError Do
Begin
Result := False;
End;
Else Result := False;
End;
If Result = False Then
MessageDlg('Problem! There Was A Problem copying '+FromFile,
mtWarning, [mbOk], 0);
End;
End;