function CopyProgressRoutine(TotalFileSize, TotalBytesTransferred, 
                                  StreamSize, StreamBytesTransferred: LongInt; 
                                  dwStreamNumber, dwCallbackReason: DWORD; 
                                  hSourceFile,  hDestinationFile: THandle; 
                                  lpData: Pointer): DWORD; stdcall; 
begin 
  Result := PROGRESS_CONTINUE; 
end;