Soyez le premier à donner votre avis sur cette source.
Vue 17 002 fois - Téléchargée 544 fois
//======================================= //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; //=======================================
24 mars 2017 à 15:49
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.