Difference between revisions of "GetCurrentVersion/de"
From Free Pascal wiki
Jump to navigationJump to searchm |
m |
||
| Line 42: | Line 42: | ||
<br> | <br> | ||
--[[User:Olaf|Olaf]] 05:27, 2 May 2013 (UTC) | --[[User:Olaf|Olaf]] 05:27, 2 May 2013 (UTC) | ||
| − | [[Category:Code Parts/de]] | + | [[Category:Code Parts/de]]{{AutoCategory}} |
Revision as of 11:40, 19 August 2013
Dieser Artikel behandelt ausschließlich Windows.
Siehe auch: Multiplatform Programming Guide/de
│
Deutsch (de) │
English (en) │
Dieser Artikel beschäftigt sich mit der Windowsprogrammierung.
Die Funktion ermittelt die aktuelle Version des eigenen Programms.
uses
Windows, SysUtils, ...;
...
function funGetCurrentVersion: string;
var
lwdVerInfoSize: longword;
lwdVerValueSize: longword;
lwdDummy: longword;
ptrVerInfo: Pointer;
VersionsInformationen: PVSFixedFileInfo;
begin
lwdVerInfoSize := GetFileVersionInfoSize(PChar(ParamStr(0)), lwdDummy);
GetMem(ptrVerInfo, lwdVerInfoSize);
GetFileVersionInfo(PChar(ParamStr(0)), 0, lwdVerInfoSize, ptrVerInfo);
VerQueryValue(ptrVerInfo, '\', Pointer(VersionsInformationen), lwdVerValueSize);
with VersionsInformationen^ do
begin
Result := IntToStr(dwFileVersionMS shr 16);
Result := Result + '.' + IntToStr(dwFileVersionMS and $FFFF);
Result := Result + '.' + IntToStr(dwFileVersionLS shr 16);
Result := Result + '.' + IntToStr(dwFileVersionLS and $FFFF);
end;
FreeMem(ptrVerInfo, lwdVerInfoSize);
end;
...
--Olaf 05:27, 2 May 2013 (UTC)
