Hallo,
Delphi-Quellcode:
procedure TForm_X.SetVersionInfo;
var
szFileName : array[0..255] of Char;
sFileName : String;
sBuild : String;
begin
if GetModuleFileName(HInstance, szFileName, SizeOf(szFileName))>0 then
begin
sFileName:= StrPas(szFileName);
sBuild:= GetVersionString(sFileName);
if sBuild<>'' then
begin
Caption:= Caption+' '+sBuild;
end;
end;
end; { SetVersionInfo }
GetVersionString lädt bei mir einen speziellen Versions-Eintrag (Build),
aber der Code zum Versionsauslesen ist über die Suche hier einfach zu finden.
Heiko