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 : Sélectionner tout - Visualiser dans une fenêtre à part
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;