vous trouverez dans le code ci dessous une bibliotheque que j'utilise regulierement dans mes applications.
Je complete cette unité au fur et à mesure de mes besoins.

function GetFileInfo(path : string) : TFileInformation;
function IsPrevInstance: HWND;
function DiskInDrive(Drive: Char): Boolean;
procedure BltTBitmapAsDib(DestDc : hdc; {Handle of where to blt}
x : word; {Bit at x}
y : word; {Blt at y}
Width : word; {Width to stretch}
Height : word; {Height to stretch}
bm : TBitmap); {the TBitmap to Blt}
procedure ListDLLExports(const FileName: string; List: TStrings);
function AddPathDelimiter( path : string ) : string;
//procedure CopyFileOrDirectory(Source, Desti : string; var Remplace : TypeReplaceFile);
Procedure CountFiles(Source : string;var TheList : CountList);
//Function ViewCopyFile(Src,Desti: string): Boolean;
Procedure MakeFileList(Source : string;var List :TstringList; Filter: string;Gauge :TGauge);
procedure CopyFileDate(const Source, Dest: String);
function GetFileListDataObject(Files: TStrings): IDataObject;
function IsTextFile(const sFile: TFileName): boolean;
function GetFileOwner(FileName: string; var Domain, Username: string): Boolean;
function TrouverNomFichierLnk(FicSource:string):string;
function IsFileInUse(fName : string) : boolean;
function Mince(PathToMince :String; InSpace :Integer): String;
function GetShortenPathName(LongPath:String):String;
function CutPath(Path:String;MaxLen:Integer):String;
function FileInUse(FileName: string): Boolean;
function GetIconIndex(Extension: String; Attribus: DWORD; var TypeFichier :string):Integer;
function GetIEFavourites:TStrings;
function ReadVerInfo(const Filename :String):String;
function realtime(value:longint;format : boolean):string;
function InString(StartPosition: Cardinal; const Source, Pattern: string): Cardinal; stdcall;
function IsAdmin: Boolean;
function MatchStrings(source, pattern: String): Boolean;
procedure CreateLinkprivate(SourceFile, ShortCutName: String);
function GetDiskSize(drive: Char; var free_size, total_size: Int64): Boolean;
function GetNbObjects(const ADirectory: string): integer;
function FileSizeToStr(Sz: int64; id : byte): string;
function GetIcon(FileName: PChar; Directory: Boolean): TIcon;
function SmBiosGetEntryPoint(var Dump: TRomBiosDump; out SmEP: TSmBiosEntryPoint): PSmBiosEntryPoint;
function SmBiosGetNextEntry(var Dump: TRomBiosDump; Entry: Pointer): Pointer;
function SmBiosGetString(var Dump: TRomBiosDump; Entry: Pointer;
Index: Byte): string;
procedure DisplayBiosMessage;
function GetTextfileType(filename : string) : TxFileType;
function UTFToStr(Value: String): String;
function DeleteKeyTree(Root: HKey; Key: string): Boolean; overload;
function DeleteKeyTree(reg: TRegistry; Key: string): Boolean; overload;
function RemoveSlash(const S: string): string;
procedure DecStrLen(var S: string; DecBy: Integer);
function FileTimeToDt(Ft: TFileTime): string;
function CompareDate(const S1, S2: string): Integer;

Vous trouverez cette unité ici :



et le fichier bioshelp.pas nécessaire ici :
Â