Difference between revisions of "GetCurrentVersion/de"
From Lazarus wiki
Jump to navigationJump to searchm |
m (Fixed syntax highlighting) |
||
| (4 intermediate revisions by 3 users not shown) | |||
| Line 1: | Line 1: | ||
{{GetCurrentVersion}} | {{GetCurrentVersion}} | ||
| − | + | ||
| − | Zurück zur Seite [[ | + | |
| − | + | Zurück zur Seite [[code examples/de|Code Beispiele]]. | |
| − | Dieser Artikel beschäftigt sich mit der Windowsprogrammierung. | + | |
| − | Die Funktion ermittelt die aktuelle Version des eigenen Programms. | + | |
| − | <syntaxhighlight> | + | Dieser Artikel beschäftigt sich mit der Windowsprogrammierung. |
| + | |||
| + | Die Funktion ermittelt die aktuelle Version des eigenen Programms. | ||
| + | |||
| + | <syntaxhighlight lang=pascal> | ||
uses | uses | ||
Windows, SysUtils, ...; | Windows, SysUtils, ...; | ||
| Line 41: | Line 45: | ||
</syntaxhighlight> | </syntaxhighlight> | ||
| − | |||
| − | |||
| − | |||
| − | |||
Latest revision as of 12:13, 16 February 2020
Dieser Artikel behandelt ausschließlich Windows.
Siehe auch: Multiplatform Programming Guide/de
│
Deutsch (de) │
English (en) │
Zurück zur Seite Code Beispiele.
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;
...
