Info-Fenster von Windows anzeigen

[Helmi]

meinst du so?

Delphi-Quellcode:

type
  TVersionInfo = packed record
    Major  : DWORD;
    Minor  : DWORD;
    Release: DWORD;
    Build  : DWORD;
  end;

{...}

var
  S          : String;
  VersionInfo: TVersionInfo;

begin
  VersionInfo := GetFileVersion(PWideChar(Application.ExeName));

  S := Format('Copyright by me!' + #13 + 'Version: %d.%d.%d.%d',
              [VersionInfo.Major, VersionInfo.Minor, VersionInfo.Release, VersionInfo.Build]);

  ShellAbout(self.Handle, PWideChar(Text), PWideChar(S), Application.Icon.Handle);
end;