Obtenir un nom de fichier unique |
||||
function GetUniqueFileName(const AFileName, AExt: string): string; var iNum: integer; sFileName: string; beginif FileExists(AFileName + AExt) then begin iNum := 1; sFileName := AFileName +... | ||||
| Delphi - Trucs et astuces - Fichier | le 28/04/2009 | vu 1118 fois | Fobec | |
Vérifier la validité d'un nom de fichier |
||||
function IsValidFileName(Filename : string;IsLong : boolean) : boolean; const ShortForbiddenChars : set of... | ||||
| Delphi - Trucs et astuces - Fichier | le 23/01/2005 | vu 1159 fois | Communauté Delphi | |
Changer la date d'un fichier |
||||
procedure ChangeDateOfFile(FileName: string; NewDate: TDateTime); var TheFile: file; begin AssignFile(TheFile, FileName); Reset(TheFile); FileSetDate(TFileRec(TheFile).Handle, ... | ||||
| Delphi - Trucs et astuces - Fichier | le 17/01/2005 | vu 3350 fois | Communauté Delphi | |
Extraire la grande et la petite icone d'un fichier |
||||
//extraire les petites et grandes icone d'un exe, dll, ... procedure TForm1.Button1Click(Sender: TObject); var LargeIcon: HIcon; SmallIcon: HIcon; IconCount: Integer; i: Integer; FileName:... | ||||
| Delphi - Trucs et astuces - Fichier | le 17/01/2005 | vu 1305 fois | Communauté Delphi | |
Compresser/extraire plusieurs fichiers dans une archive |
||||
{Compresser plusieurs fichiers un derrière l'autre, puis les extraire vers un repertoire donnée. Bref un petit Winzip avec un format propriétaire en quelques lignes} uses Zlib; procedure ... | ||||
| Delphi - Trucs et astuces - Fichier | le 12/01/2005 | vu 2100 fois | Robert Kuhlmann | |
Savoir s'il s'agit d'un fichier binaire ou d'un fichier texte |
||||
function IsTextFile( const sFile: TFileName): boolean;//Created By Marcelo Castro - from Brazil var oIn: TFileStream; iRead: Integer; iMaxRead: Integer; iData: Byte; dummy: string; begin ... | ||||
| Delphi - Trucs et astuces - Fichier | le 02/01/2005 | vu 988 fois | Marcelo Castro | |
Connaitre rapidement le nombre de fichiers d'un répertoire |
||||
function FileCount( const aFolder: string): Integer; var H: THandle; Data: TWin32FindData; begin Result := 0; H := FindFirstFile(PCHAR(aFolder + '*.*'), Data); if H ... | ||||
| Delphi - Trucs et astuces - Fichier | le 18/12/2004 | vu 1136 fois | Communauté Delphi | |
Savoir lorsqu'un nouveau fichier est crée |
||||
function WaitForFile(FileName: string): Boolean;{Wait for a file to be created. Tracks the directory were the file will be created.Returns true if file exists, false on error.} var WaitHandle:... | ||||
| Delphi - Trucs et astuces - Fichier | le 17/12/2004 | vu 953 fois | Communauté Delphi | |
Utiliser les fonctions du Shell (Windows) pour la copie |
||||
uses Shellapi; TSHFileOpStructA = record Wnd:HWnd; wFunc:Uint; pFrom:PAnsiChar; pTo:PAnsiChar; fFlags:FILEOP_FLAGS; fAnyOperatiosAborted:Bool; hNameMappings:Pointer; ... | ||||
| Delphi - Trucs et astuces - Fichier | le 07/12/2004 | vu 1408 fois | SwissDelphiCenter | |
Obtenir rapidement la taille d'un fichier |
||||
function GetFilesize(sFileName: string; iPrecision: integer): string; var i: longint; f: file of byte; isize: extended; begin //desactiver les erreurs les erreurs d'E/S {$I-} ... | ||||
| Delphi - Trucs et astuces - Fichier | le 08/11/2004 | vu 1096 fois | Communauté Delphi | |