Désolé mais le TfSupp devant le nom de la fonction est une erreur de ma part. car à l'origine cette fonction faisait partie d'un objet qui me permettait de supprimer le contenue des répertoire (recent et cookies), j'ai donc laissé sans faire exprés le nom de la classe devant.

Tu écrit une fonction qui suppression récurcive qui supprime tous les fichiers et sous répertoire du répertoire renvoyé par litChemRepRegist.

Exemple : SupprDossier(litChemRepRegist('Recent'))

Cela supprime tous le contenu du répertoire 'recent' de l'utilisateur courant. (répertoire qui contient tous les liens des derniers document ouvert)

La procedure UnLockFichier attend en paramètre le handle du fichier vérrouillé par LockFichier. Le type hFile est un LongWord.
Alors que toi tu lui passes un string. A la procedure UnLockFichier tu n'as qu'a lui paaser ce que renvoie la fonction  LockFichie.

Cela ne doit pas fonctionner sous W2000 problème 'Violation NTDLL.DLL' + rien ne s'affiche dans les controle une fois saisie, les valeurs disparaisse.
Si tu a envie de débuter en prog et de faire un log de gestion de compte sans base de donnée essayé plutot XML.

J'ai ajouter le lien par la suite.

Etant donner que le grand conseil de l'inquisition à déjà son idée sur la chose, je ne vais pas gaspiller mon temps en de veine explication. Vive le partage des connaissance !!

Désolé de te decevoir mais je n'ai pas pomper le code source, j'ai monté ces deux fonctions à partir de divers renseignement glaner sur le net (fonctionnement de LockFile et OpenFile), de plus je ne vais casiment jamais sur les site anglophone étant d'un niveau extrêmement médiocre. Et lorsque je pompe du code ce qui arrive (dans notre travaille cela est monnaie courante, délai oblige) je l'indique .

Fonction proposé suite à un problème de Manu00

Pour infos les '*.~pas', *.~dfm', *.~dpr' et compagnie sont des sauvegardes des paramètrages et des sources du projet, donc si ils sont présents c'est que tu as choisi de les avoir par sécurité alors pourquoi les supprimés réguliérement. Si tu ne veux pas les avoir il suffit de désactiver la sauvegarde automatique

Voici un exemple pour mcgyver  :
procedure TForm1.Button1Click(Sender: TObject);
var
ExportDataSet: TExportDataSet;
begin
Table1.Active:= true;
ExportDataSet:= TExportDataSet.Create;
  try
   ExportDataSet.Dataset:= Table1;
    ExportDataSet.FileName:= 'c:Table.txt';
    ExportDataSet.Separateur:= ';';
    ExportDataSet.ExportData;
  finally
   ExportDataSet.free;
  end;
end;