Se for win32
function GetFileInfo(
var aInternalName, aFileVersion: String; FileName: AnsiString
): Boolean;
var
VersionInfoSize, VerInfoSize, GetInfoSizeJunk: DWORD;
VersionInfo, Translation, InfoPointer: Pointer;
VersionValue: AnsiString;
begin
Result := False;
VerInfoSize :=
function GetFileInfo(
var aInternalName, aFileVersion: String; FileName: AnsiString
): Boolean;
var
VersionInfoSize, VerInfoSize, GetInfoSizeJunk: DWORD;
VersionInfo, Translation, InfoPointer: Pointer;
VersionValue: AnsiString;
begin
Result := False;
VerInfoSize :=
Quem procura, acha! ;)
Retrieve version information for a specified file
http://www.swissdelphicenter.ch/en/showcode.php?id=1047
Read the version of a file
http://www.swissdelphicenter.ch/en/showcode.php?id=27
Obtain DLL-specific version information
3 matches
Mail list logo