Progression dans TShFileOpStruct (Complément de FAQ)
Bonjour,
J'aimerai ajouter à ces fonctions une option qui permettent de visualiter la progression à l'aide d'un TGauge.
Comment faire ?
La procedure "lpszProgressTitle" a t elle un rapport avec ça ?
Si oui, comment on s'ens ert .
Merci de votre aide.
David.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
| function EffaceDossier(Dossier: string): Boolean;
var FileOpStruct: TShFileOpStruct;
begin
FileOpStruct.Wnd := 0;
FileOpStruct.wFunc := FO_DELETE;
FileOpStruct.pFrom := PChar(Dossier+#0+#0);
FileOpStruct.pTo := nil;
FileOpStruct.fFlags := FOF_NOCONFIRMATION or FOF_SILENT or FOF_ALLOWUNDO;
FileOpStruct.lpszProgressTitle := nil;
Result := ShFileOperation(FileOpStruct) = 0;
end;
function CopieDossier(DossierSource, DossierDestination: string): Boolean;
var FileOpStruct: TShFileOpStruct;
begin
FileOpStruct.Wnd := 0;
FileOpStruct.wFunc := FO_COPY;
FileOpStruct.pFrom := PChar(DossierSource+#0+#0);
FileOpStruct.pTo := PChar(DossierDestination+#0+#0);
FileOpStruct.fFlags := FOF_NOCONFIRMATION or FOF_SILENT;
FileOpStruct.lpszProgressTitle := nil;
Result := ShFileOperation(FileOpStruct) = 0;
end; |
