Send2FTP

[toms]

Zitat von smallsmoker:

okay überredet
also das im compiler kenne ich aber gibt es eine einfach anweisung ala label1.caption := readversioninfo(application.exename) oder so ?

Delphi-Quellcode:

var
  V1, V2, V3, V4: Word;

  GetBuildInfo(ParamStr(0), V1, V2, V3, V4);
  Label1.Caption := Format('Version %u.%u.%u.%u', [V1, V2, V3, V4]);

Delphi-Quellcode:

function GetBuildInfo(ParamStr: string; var V1, V2, V3, V4: Word): Boolean;
var
  VerInfoSize: DWORD;
  VerInfo: Pointer;
  VerValueSize: DWORD;
  VerValue: PVSFixedFileInfo;
  Dummy: DWORD;
begin
  Result := False;
  VerInfoSize := GetFileVersionInfoSize(PChar(ParamStr), Dummy);
  if VerInfoSize = 0 then
  begin
    Dummy := GetLastError;
  end; {if}
  GetMem(VerInfo, VerInfoSize);
  try
    GetFileVersionInfo(PChar(ParamStr), 0, VerInfoSize, VerInfo);
    VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize);
    with VerValue^ do
    begin
      V1 := dwFileVersionMS shr 16;
      V2 := dwFileVersionMS and $FFFF;
      V3 := dwFileVersionLS shr 16;
      V4 := dwFileVersionLS and $FFFF;
    end;
    Result := True;
  finally
    FreeMem(VerInfo, VerInfoSize);
  end;
end;