/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Filversionsnummer i AboutBox ???
Fra : Jan Fich


Dato : 07-03-01 23:50

Hej

Jeg har lidt problemer med, at finde (forstå) hvordan man kan finde/vise
en applikations Filversionsnummer i f.eks. en AboutBox.
Kan nogen af alle jer guruer hjælpe ?

På forhånd tak

mvh. Jan Fich
jan.fich@mail.dk



 
 
Jacob Kjer (11-03-2001)
Kommentar
Fra : Jacob Kjer


Dato : 11-03-01 00:54


"Jan Fich" <jan.fich@mail.dk> skrev i en meddelelse
news:986dur$k5e$1@news.inet.tele.dk...
> Hej
>
> Jeg har lidt problemer med, at finde (forstå) hvordan man kan finde/vise
> en applikations Filversionsnummer i f.eks. en AboutBox.
> Kan nogen af alle jer guruer hjælpe ?
>
> På forhånd tak
>
> mvh. Jan Fich
> jan.fich@mail.dk
>
> procedure GetBuildInfo(var V1,V2,V3,V4:Word); (*Versionsnummer*)
var
VerInfoSize : DWord;
VerInfo : pointer;
VerValueSize : DWord;
VerValue : PVSFixedFileInfo;
Dummy : DWord;
begin
VerInfoSize := GetFileVersionInfoSize(PChar(ParamStr(0)),Dummy);
GetMem(VerInfo,VerInfoSize);
GetFileVersionInfo(PChar(ParamStr(0)),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;
FreeMem(VerInfo,VerInfoSize);
end;



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408849
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste