🚀 go-pugleaf

Hello Bob,

now it works fine. the time which is still need to copy everything looks
great. only the time which the process already runs looks not great. it
seams as the start of this time is 2 hours. but i cant any error here at my
code.

here my code:

AnsiString __fastcall TForm1::FormatTime(SYSTEMTIME *time)
{
   String backtime = AnsiString(time->wHour) + AnsiString(":") +
AnsiString(time->wMinute) + AnsiString(":") + AnsiString(time->wSecond);
   return backtime;
}
//--------------------------------------------------------------------------
-


DWORD WINAPI MyCopyProgressRoutine(LARGE_INTEGER TotalFileSize,LARGE_INTEGER
TotalBytesTransferred,LARGE_INTEGER StreamSize,LARGE_INTEGER
StreamBytesTransferred,DWORD dwStreamNumber,DWORD dwCallbackReason,HANDLE
hSourceFile,HANDLE hDestinationFile,LPVOID lpData)
{
   TForm1 *pForm = (TForm1*) lpData;

   if (TotalFileSize.QuadPart > 0)
   {
      // Aktuellen Dateistatus ermitteln
      unsigned __int64 Percent = (((unsigned
__int64)TotalBytesTransferred.QuadPart)*100) / ((unsigned
__int64)TotalFileSize.QuadPart);
      pForm->CGauge1->Progress = Percent;

      // Aktuellen Status aller Dateien ermitteln
      pForm->tmp = (unsigned __int64)TotalBytesTransferred.QuadPart;
      Percent = ((unsigned
__int64)((pForm->already_copied+pForm->tmp)*100))/(unsigned
__int64)(pForm->size);
      pForm->CGauge2->Progress = Percent;
   }

   // restzeitberechnung
   now.i64 = 0;
   remaining.i64 = 0;
   elapsed.i64 = 0;

   unsigned __int64 BytesRemaining = pForm->size - pForm->already_copied;

   SYSTEMTIME SystemTime;
   GetLocalTime(&SystemTime);
   SystemTimeToFileTime(&SystemTime, &now.ft);
   elapsed.i64 = now.i64 - StartTime.i64;
   FileTimeToSystemTime(&elapsed.ft, &SystemTime);
   pForm->LBisherdauer->Caption = pForm->FormatTime(&SystemTime);

   remaining.i64 = ((BytesRemaining * (elapsed.i64/10000U)) /
(pForm->already_copied+1))*10000U;
   FileTimeToSystemTime(&remaining.ft, &SystemTime);
   pForm->LRestdauer->Caption = pForm->FormatTime(&SystemTime);

   // Updaten
   pForm->Update();
   Application->ProcessMessages();

   return PROGRESS_CONTINUE;
}
//--------------------------------------------------------------------------
-


tommy