Sprawdzenie wersji

0

Hej mam mały problemik.
Nie bardzo wiem jak się do tego zabrać,no ale... Mam aplikację i na serwerze mam umieszczoną jej aktualną wersję,natomiast u siebie- lokalnie- mogę mieć którąkolwiek wersję problem jest taki , że potrzebuję zczytać z serwera nr aktualnej wersji,który znajduje się normalnie we właściwościach exe'ka w zakładce wersje.
Ma ktoś chociaż jakiś pomysł??

Z góry serdecznie dziękuję za propozycje.

0

No nie dokładnie o to mi chodziło,ale spoko poradzę sobie.

0

a jednak sobie poradziłam ;)

function TFMain.GetFileVersion(const Filename: string; var Version: string): string;
var
  VerBlk: VS_FIXEDFILEINFO;
  InfoSize,puLen : DWord;
  Pt,InfoPtr : Pointer;
begin
  Version := '';
  InfoSize := GetFileVersionInfoSize(PChar(Filename), puLen);
  FillChar(VerBlk, SizeOf(VS_FIXEDFILEINFO),0);
  if InfoSize > 0 then
  begin
    GetMem(Pt, InfoSize);
    GetFileVersionInfo(PChar(Filename), 0, InfoSize, Pt);
    VerQueryValue(Pt, '\', InfoPtr, puLen);
    move(InfoPtr^, VerBlk, SizeOf(VS_FIXEDFILEINFO));
    Version := Format('%d.%d.%d.%d',[VerBlk.dwFileVersionMS shr 16,
      VerBlk.dwFileVersionMS and 65535,
      VerBlk.dwFileVersionLS shr 16,
      VerBlk.dwFileVersionLS and 65535]);
    FreeMem(Pt);
    Result := Version;
  end else
    Result := 'Błąd odczytu wersji';
end;

Jak się chce to się da :D

1 użytkowników online, w tym zalogowanych: 0, gości: 1