CRÉATION DE FICHIERS TEMPORAIRES DANS LE DOSSIER TEMPORAIRE COURANT.(API)

//=======================================
//on cherche le dossier temporaire courant
//dans l'ordre : variable d'environnement TMP
//             : variable d'environnement TEMP (si pas TMP)
//             : dossier courant sinon
function DossierTMP: string;
  var bdir: array[0..255] of char;
begin
  FillChar(bdir,sizeof(bdir),0);
  GetTempPath(sizeof(bdir),bdir);
  Result:= bdir
end;
//=======================================
//crée dans dir, un fichier unique de la forme ppphhhh.tmp
//avec ppp sont les 3 premiers caractères de prefixe
//  et hhhh est une chaine héxadécimale
//rem : si _n = 0 le fichier est créé (et son unicité est vérifiée)
//      sinon le nom est construit mais l'unicité n'est pas vérifiée
//                                      et le fichier n'est pas créé
//en sortie : nom est le nom complet (ou 'ERREUR')
//          : numero est la valeur de la chaine héxa
function CreerFichierTMP(dir,prefixe: string; var nom: string; var numero: integer): boolean;
  const _n = 0;
  var buf: array[0..255] of char;
begin
  FillChar(buf,sizeof(buf),0);
  numero:= GetTempFileName(PChar(dir),PChar(prefixe),_n,buf);
  Result:= (0 <> numero);
  if Result
  then nom:= buf
  else nom:= 'ERREUR';
end;
//=======================================

Télécharger le zip