LPPROGRESS_ROUTINE

type LPPROGRESS_ROUTINE = function(

  TotalFileSize: LARGE_INTEGER;

  TotalBytesTransferred: LARGE_INTEGER;

  StreamSize: LARGE_INTEGER;

  StreamBytesTransferred: LARGE_INTEGER;

  dwStreamNumber: DWORD;

  dwCallbackReason: DWORD;

  hSourceFile: HANDLE;

  hDestinationFile: HANDLE;

  lpData: LPVOID

):DWORD;