title image


Smiley Re: Fortschrittanzeige bei Copy, Z.B. Gauge
Mach es lieber so, dann erscheint die aus dem Explorer bekannte Animation:const NUL = #0; LF = #10; CR = #13;function CopyItems(Quelle,Ziel: string): boolean;var FOS: TSHFileOpStruct;begin ZeroMemory(@FOS,SizeOf(FOS)); with FOS do begin wFunc := FO_COPY; fFlags := FOF_MULTIDESTFILES or FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR; pFrom := PChar(Quelle + NUL); pTo := PChar(Ziel + NUL) end; Result := (0 = SHFileOperation(FOS));end;CopyItems(StringReplace(FromList.Text,CR+LF,NUL,[rfReplaceAll]), StringReplace(ToList.Text,CR+LF,NUL,[rfReplaceAll]));FromList.Add('verein.dbf');ToList.Add('a:/verein.dbf');FromList.Add('verein.mdx');ToList.Add('a:/verein.mdx');FromList und ToList können sowohl Datei- als auch Verzeichnisnamen enthalten.Joachim

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: