Slik kopierer flere /store filer og vise form vinduer fremgang (Sørg ShellAPI er på din liste BRUK) Kilde og dest er både en liste over filer adskilt med # 0, for exampleWinCopyFile ('c:. \\ 1.txt '+ # 0 +' c: \\ 2.txt ',' a: \\ 1.txt '+ # 0 +' a: \\ 2.txt '); funksjon WinCopyFile (Kilde, Mål: string): Boolean; Var Struct: TSHFileOpStruct; Resultval: integer; begynne ResultVal: = 1; prøv Kilde: = Kilde + # 0 # 0; Mål: = dest + # 0 # 0; Struct.wnd: = 0; Struct.wFunc: = FO_COPY; Struct.pFrom: = PChar (Kilde); Struct.pTo: = PChar (dest); Struct.fFlags: = FOF_SIMPLEPROGRESS eller FOF_NOERRORUI eller FOF_NOCONFIRMATION; Struct.fAnyOperationsAborted: = False; Struct.hNameMappings: = null; Resultval: = ShFileOperation (Struct); endelig Resultat: = (Resultval = 0); end, end; Anmeldelser