Discussion :

[21247692]

slt a ts

comment faire copier coller un exectutabe

voila un exemple sur un fichier .TXT
copyfile('chemin_original','distination'false)

merci a ts

[cincap]

@ 21247692, ceci ne fonctionnerait pas ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
var
  fileSource, fileDest: string;
begin
  fileSource := 'C:\SourceFile.exe';
  fileDest := 'C:\SourceFile_2.exe';
  CopyFile(PChar(fileSource), PChar(fileDest), true);
ou
CopyFile('C:\SourceFile.exe', 'C:\SourceFile_2.exe', true);
 
end;

Tu peux tester si le fichier existe et créer un dossier pour copier le même fichier ou le renommé.

Ou utiliser une fonction :

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
 
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;

@+,

Cincap