Utilisation de copyfile
cs_Champy70
Messages postés
9
Date d'inscription
samedi 7 mai 2005
Statut
Membre
Dernière intervention
23 avril 2006
-
2 août 2005 à 19:36
florenth Messages postés 1023 Date d'inscription dimanche 1 août 2004 Statut Membre Dernière intervention 17 août 2008 - 2 août 2005 à 22:11
florenth Messages postés 1023 Date d'inscription dimanche 1 août 2004 Statut Membre Dernière intervention 17 août 2008 - 2 août 2005 à 22:11
A voir également:
- Delphi copyfile
- Copyfile delphi - Meilleures réponses
- Delphi copy file - Meilleures réponses
- CopyFile ne fait rien ✓ - Forum - Delphi / Pascal
- Probléme avec CopyFile... ✓ - Forum - Delphi / Pascal
- Delphi copyfile example ✓ - Forum - Delphi / Pascal
- Copier un répertoire entier ✓ - Forum - Delphi / Pascal
- Copyfile dans un réseau (sous XE2) - Forum - Delphi / Pascal
1 réponse
florenth
Messages postés
1023
Date d'inscription
dimanche 1 août 2004
Statut
Membre
Dernière intervention
17 août 2008
2
2 août 2005 à 22:11
2 août 2005 à 22:11
Salut,
Ton implémentation de CopyFile() est tout a fait correcte mais il y a un hic: tu ne peux pas copier, ni déplacer ou supprimer un fichier ouvert (limitation de Windows). Résultat: ton application ne peut pas se copier.
Pour outrepasser cette limite, il faut creer un fichier .bat qui copiera ton application une fois fermée.
Tu peux faire comme cela (dans le OnDestroy, obligatoirement).
<hr size= "2" width="100%"> uses
[ ... ], ShellApi;
procedure TForm1.OnDestroy(Sender: TObject);
var
Txt: TextFile;
begin
AssignFile(Txt,ExtractFilePath(Application.ExeName) + 'copy.bat');
ReWrite(Txt);
Writeln(Txt,'@ echo off');
Writeln(Txt,Format('COPY "%s" "%s"',[Application.ExeName,'Chemin de destination']));
CloseFile(Txt);
ShellExecute('OPEN',PChar(ExtractFilePath(Application.ExeName) + 'copy.bat'),nil,nil,0);
end;
<hr size ="2" width="100%">@ ++
Florent
Si tu ne te plantes pas ......
tu ne poussera jamais
Ton implémentation de CopyFile() est tout a fait correcte mais il y a un hic: tu ne peux pas copier, ni déplacer ou supprimer un fichier ouvert (limitation de Windows). Résultat: ton application ne peut pas se copier.
Pour outrepasser cette limite, il faut creer un fichier .bat qui copiera ton application une fois fermée.
Tu peux faire comme cela (dans le OnDestroy, obligatoirement).
<hr size= "2" width="100%"> uses
[ ... ], ShellApi;
procedure TForm1.OnDestroy(Sender: TObject);
var
Txt: TextFile;
begin
AssignFile(Txt,ExtractFilePath(Application.ExeName) + 'copy.bat');
ReWrite(Txt);
Writeln(Txt,'@ echo off');
Writeln(Txt,Format('COPY "%s" "%s"',[Application.ExeName,'Chemin de destination']));
CloseFile(Txt);
ShellExecute('OPEN',PChar(ExtractFilePath(Application.ExeName) + 'copy.bat'),nil,nil,0);
end;
<hr size ="2" width="100%">@ ++
Florent
Si tu ne te plantes pas ......
tu ne poussera jamais
