Utiliser les fonctions du Shell (Windows) pour la copie

uses Shellapi;

TSHFileOpStructA = record
Wnd:HWnd;
wFunc:Uint;
pFrom:PAnsiChar;
pTo:PAnsiChar;
fFlags:FILEOP_FLAGS;
fAnyOperatiosAborted:Bool;
hNameMappings:Pointer;
lpszProgressTitle:PAnsiChar;
end;

procedure TForm1.Button1Click(Sender:TObject);
begin
with shellinfo do
begin
wnd:=handle;
wFunc:=FO_COPY; //or FO_MOVE or FO_DELETE
pFrom:='C:Autoexec.bat';
pTo:='c:windowssystem';
end;
SHFileOperation(shellinfo);
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour07/12/2004
VisualisationVu 1591 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Fichier
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur