Delphi/꿀팁
파일복사 진행상황 보여주기
TCopyInfo = packed record Source: String[255]; Dest: String[255]; Handle: THandle; end; PCopyInfo = ^TCopyInfo; const //사용자정의 메시지 COPY_CANCEL = WM_USER + 1; COPY_CONTINUE = WM_USER + 2; COPY_MAXBYTES = WM_USER + 3; COPY_FAIL = WM_USER + 4; var bCancel : Boolean = False; function CopyFileProgress(TotalFileSize, TotalBytesTransferred, StreamSize, StreamBytesTransferred: LARGE_INTEGER; dwStreamNumb..