Copier des fichiers avec windows progrès

Copier des fichiers avec windows progres

Copier des fichiers avec windows progres : Plusieurs milliers de conseils pour vous faciliter la vie.

Comment faire pour copier plusieurs fichiers volumineux et de montrer la progression windows formulaire.
(assurez-vous que ShellAPI est dans votre liste des UTILISATIONS)
Source et de Destination sont a la fois une liste de fichiers separes par des #0, par exemple
WinCopyFile('c:\1.txt' #0 'c:\2.txt', 'a:\1.txt' #0 'a:\2.txt')
fonction de WinCopyFile(Source, Dest: string): Boolean
var
& nbsp & nbsp & nbsp Struct : TSHFileOpStruct
& nbsp & nbsp & nbsp Resultval: integer
begin
& nbsp & nbsp & nbsp ResultVal := 1
& nbsp & nbsp & nbsp essayer
& ! & ! & ! & ! & nbsp Source: Source = #0#0
& ! & ! & ! & ! & nbsp Dest := Dest #0#0
& ! & ! & ! & ! & nbsp Struct.wnd := 0
& ! & ! & ! & ! & nbsp Struct.wFunc := FO_COPY
& ! & ! & ! & ! & nbsp Struct.pFrom := PChar(Source)
& ! & ! & ! & ! & nbsp Struct.prise de force := PChar(Dest)
& ! & ! & ! & ! & nbsp Struct.fFlags:= FOF_SIMPLEPROGRESS ou FOF_NOERRORUI ou FOF_NOCONFIRMATION
& ! & ! & ! & ! & nbsp Struct.fAnyOperationsAborted := False
& ! & ! & ! & ! & nbsp Struct.hNameMappings := nil
& ! & ! & ! & ! & nbsp Resultval := ShFileOperation(Struct)
& nbsp & nbsp & nbsp enfin
& ! & ! & ! & ! & nbsp Result := (Resultval = 0)
& nbsp & nbsp fin
fin