0/5 (1 avis)
Vue 4 866 fois - Téléchargée 467 fois
procedure TForm1.Button2Click(Sender: TObject); begin OpenDialog1.InitialDir:='c:\'; OpenDialog1.Execute; if OpenDialog1.FileName='' then Edit1.Text:='Vous n''avez sélectionné aucun fichier' else Edit1.Text:= OpenDialog1.FileName; OpenDialog1.FileName; end; procedure TForm1.Button1Click(Sender: TObject); var path : string; var i: integer; begin path:=edit1.text; windows.DeleteFile(PAnsiChar(path)); edit1.Text:=''; end;
16 août 2004 à 17:58
if windows.DeleteFile(PAnsiChar(path)) then
edit1.Text:=''
else
ShowMessage('Impossible d''effacer le fichier');
Pour le cas où le fichier à effacer serait en Lecture seule (Read Only), on ne sait jamais... ;)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.