mirror of
https://github.com/ShareX/ShareX.git
synced 2024-09-18 18:47:17 +12:00
24 lines
601 B
Text
24 lines
601 B
Text
|
[Code]
|
||
|
function GetFullVersion(VersionMS, VersionLS: cardinal): string;
|
||
|
var
|
||
|
version: string;
|
||
|
begin
|
||
|
version := IntToStr(word(VersionMS shr 16));
|
||
|
version := version + '.' + IntToStr(word(VersionMS and not $ffff0000));
|
||
|
|
||
|
version := version + '.' + IntToStr(word(VersionLS shr 16));
|
||
|
version := version + '.' + IntToStr(word(VersionLS and not $ffff0000));
|
||
|
|
||
|
Result := version;
|
||
|
end;
|
||
|
|
||
|
function fileversion(file: string): string;
|
||
|
var
|
||
|
versionMS, versionLS: cardinal;
|
||
|
begin
|
||
|
if GetVersionNumbers(file, versionMS, versionLS) then
|
||
|
Result := GetFullVersion(versionMS, versionLS)
|
||
|
else
|
||
|
Result := '0';
|
||
|
end;
|