Discussion :

[yoghisan]

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;

[cpdump]

Pour plus d'info regarde dans le msdn les docs sur ShFileOperation

www.msdn.com

[yoghisan]

Chui pas tres copain avec l'anglais...

[yoghisan]

Je suis quand meme arrive merci...

il suffisait de ne pas mettre FOF_SILENT. La réponse etait dans la question...

[cpdump]

il faut ajouter le flag FOF_SIMPLEPROGRESS pour afficher une boite de dialogue de progression, lpszProgressTitle est le titre de cette boite.

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/structures/shfileopstruct.asp