Bonjour,

Je veux copier un fichier vers un lecteur réseau. J'ai trouver cette fonction ici
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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Function ConnecteLecteurReseauTest(Lecteur,Chemin,MotPasse:String):Boolean;
Var LocalNameAZT   :Array[0..79]Of Char;
    RemoteNameAZT  :Array[0..80]Of Char;
    Longueur       :Cardinal;
    Retour         :Integer;
Begin
  // Recherche du chemin existant si existant
  Longueur:=80;
  Retour:=WNetGetConnection(StrPCopy(LocalNameAZT,Lecteur),RemoteNameAZT,Longueur);
  If Retour=NO_ERROR
  Then Begin // Lecteur déjà défini
    If UpperCase(StrPas(RemoteNameAZT))=UpperCase(Chemin)
    Then Begin  // Lecteur déjà existant
      Result:=True;
    End
    Else Begin  // Lecteur exitant mais chemin incorrect
      Retour:=WNetCancelConnection2(StrPCopy(LocalNameAZT,Lecteur),CONNECT_UPDATE_PROFILE,False);
      If Retour=NO_ERROR
      Then Begin // Deconnection du précédent lecteur OK => Connection du nouveau
        Result:=ConnecteLecteurReseau(Lecteur,Chemin,MotPasse);
      End
      Else Begin
        AffErreurLecteur(Retour);
        Result:=False;
      End;
    End;
  End
  Else Begin
    If Retour=ERROR_Not_CONNECTED
    Then Begin // Lecteur non connecté => Connection du nouveau
      Result:=ConnecteLecteurReseau(Lecteur,Chemin,MotPasse);
    End
    Else Begin
      AffErreurLecteur(Retour);
      Result:=False;
    End;
  End;
End;
Pour copier j'ai cette fonction dans la faq
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
function CopyFile(Source, Destination: String ) : boolean;
var
  fos : TSHFileOpStruct;
begin
  FillChar(fos, SizeOf(fos),0);
  with fos do
  begin
    wFunc := FO_COPY;
    pFrom := PChar(Source+#0); 
    pTo   := PChar(Destination+#0); 
    fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION or FOF_SILENT;
  end;
  result := (0 = ShFileOperation(fos));
end;
Dans un bouton j'ai :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
procedure TForm1.Button1Click(Sender: TObject);
begin
    if CopyFile('c:\dossier1\test.exe', 'ici')then
     ShowMessage('Copie effectuée avec succès') else
     ShowMessage('Copie non effectuée');
end;
la fonction ConnecteLecteurReseauTest renvoie boolean. Qu'est ce que je dois mettre dans if CopyFile('c:\dossier1\test.exe', 'ici') ?.
Merci d'vance.