Wie kann ich die Versions-Info aus der Delphi-IDE in meinem Programm nutzen?
function GetVersionString: string; var Filename: string; Size, Size2: integer; Buffer, Buffer2: pointer; begin Result:= '?'; Filename:= Application.ExeEame; Size := GetFileVersionInfoSize(pchar(Filename), integer(Buffer)); GetMem(Buffer,Size); try if GetFileVersionInfo(pchar(Filename), 0, Size, Buffer) then begin if VerQueryValue(Buffer, '\', Buffer2, Size2) then begin with TVSFixedFileInfo(Buffer2^) do begin Result := inttostr(pword(integer(@dwFileVersionMS)+2)^)+'.'+ inttostr(pword(integer(@dwFileVersionMS)+0)^)+'.'+ inttostr(pword(integer(@dwFileVersionLS)+2)^)+' Buildnr: '+ inttostr(pword(integer(@dwFileVersionLS)+0)^); end; end; end; finally Dispose(Buffer); end; end;
Delphi 1 | Delphi 2 | Delphi 3 | Delphi 4 |
nicht getestet | Version nicht betroffen | getestet |
siehe auch: