antp Super Administrateur Champion des excuses bidons | en Delphi :
Code :
- type
- PFixedFileInfo = ^TFixedFileInfo;
- TFixedFileInfo = record
- Signature: DWord;
- StrucVersion: DWord;
- Minor: Word;
- Major: Word;
- Build: Word;
- Release: Word;
- FileFlagsMask: DWord;
- FileFlags: DWord;
- FileOS: DWord;
- FileType: DWord;
- FileSubtype: DWord;
- FileDateMS: DWord;
- FileDateLS: DWord;
- end;
- function GetFileInfo(const AFileName: string): TFixedFileInfo;
- var
- Handle, VersionSize: DWORD;
- SubBlock: string;
- Temp: Pointer;
- Data: Pointer;
- begin
- SubBlock := '\';
- VersionSize := GetFileVersionInfoSize(PChar(AFileName), Handle);
- if VersionSize > 0 then
- begin
- GetMem(Temp, VersionSize);
- try
- if GetFileVersionInfo(PChar(AFileName), Handle, VersionSize, Temp) then
- if VerQueryValue(Temp, PChar(SubBlock), Data, VersionSize) then
- Result := PFixedFileInfo(Data)^;
- finally
- FreeMem(Temp);
- end;
- end else
- RaiseLastOSError;
- end;
- function GetBuild(const AFileName: TFileName): string;
- begin
- with GetFileInfo(AFileName) do
- Result := Format('%d.%d.%d.%d', [Major, Minor, Release, Build]);
- end;
|
Message édité par antp le 14-11-2003 à 14:49:28 ---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
|