paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 10:29:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ GetFileVersion (win only)

Browse Source 
git-svn-id: trunk@4924 -
This commit is contained in:
florian 2006-10-15 14:36:05 +00:00
parent 557afed6f3
commit b6309075a4
1 changed files with 50 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

59
rtl/win/sysutils.pp
View File

@ -49,20 +49,63 @@ Var
Win32CSDVersion : ShortString; // CSD record is 128 bytes only?
{ Compatibility with Delphi }
function Win32Check(res:boolean):boolean;
function Win32Check(res:boolean):boolean;inline;
function WinCheck(res:boolean):boolean;
function GetFileVersion(const AFileName: string): Cardinal;
implementation
uses
sysconst;
function Win32Check(res:boolean):boolean;
begin
if not res then
RaiseLastOSError;
result:=res;
end;
function WinCheck(res:boolean):boolean;
begin
if not res then
RaiseLastOSError;
result:=res;
end;
function Win32Check(res:boolean):boolean;inline;
begin
result:=WinCheck(res);
end;
function GetFileVersion(const AFileName:string):Cardinal;
var
{ usefull only as long as we don't need to touch different stack pages }
buf : array[0..3071] of byte;
bufp : pointer;
fn : string;
valsize,
size : DWORD;
h : DWORD;
valrec : PVSFixedFileInfo;
begin
result:=$fffffff;
fn:=AFileName;
UniqueString(fn);
size:=GetFileVersionInfoSize(pchar(fn),@h);
if size>sizeof(buf) then
begin
getmem(bufp,size);
try
if GetFileVersionInfo(pchar(fn),h,size,bufp) then
if VerQueryValue(bufp,'\',valrec,valsize) then
result:=valrec^.dwFileVersionMS;
finally
freemem(bufp);
end;
end
else
begin
if GetFileVersionInfo(pchar(fn),h,size,@buf) then
if VerQueryValue(@buf,'\',valrec,valsize) then
result:=valrec^.dwFileVersionMS;
end;
end;
{$define HASCREATEGUID}
@ -418,8 +461,6 @@ var
secs,bytes,
free,total : longint;
qwtotal,qwfree,qwcaller : int64;
begin
if drive=0 then
begin