Bonjour
j'ai récupéré ce script pour supprimer un répertoire non vide mais j'ai une erreur dans delphi à la fin du code de mon application
avec ce message d'erreur : BEGIN attendu mais end. reçu à la ligne.... auriez vous une idée?
Merci d'avance.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 procedure TForm3.Suppressiondurpertoiretablette1Click(Sender: TObject); function DelDir(Dir: String): Boolean; var fos: TSHFileOpStruct; begin ZeroMemory(@fos, SizeOf(fos)); with fos do begin wFunc := FO_DELETE; fFlags := FOF_SILENT or FOF_NOCONFIRMATION; pFrom := PChar(Dir + #0); end; Result := (0=ShFileOperation(fos)); end;
Partager