/ 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
Hive program version ud
Fra : Øh... det er bare mi~


Dato : 28-12-00 14:43

Hej NG!

Hvordan hiver jeg min version af programmet ud af programmet altså det man
angiver inde i project options og det skal være som en string så det kommer
til at se nogenlunde sådan ud: 1.0.1.23 bare som eksempel.

På forhånd tak.

--
Øh... det er bare mig

WHO NOWS WHO I AM??????



 
 
N/A (28-12-2000)
Kommentar
Fra : N/A


Dato : 28-12-00 20:07



Niels (niLLer) (28-12-2000)
Kommentar
Fra : Niels (niLLer)


Dato : 28-12-00 20:07

Just as I expected, "P.L." <jessie-peter@get2net.dk> came up with
this:

>Nedenstående kan du bruge, MEN JEG MENER DU BURDE SKRIVE ET NAVN OG IKKE BARE: "Øh... det er bare
>mig". Du behøver da ikke at skamme dig, vi har da alle et eller flere spørgsmål i ny og næ !!

Nu har Kasper jo afsløret ham som Micki Dines Jensen, så det skal man
bare vide! *<

<snip kode jeg ikke gad finde frem :->

Niels (aka. niLLer)
--
e-mail: nmartin at iname dot com ICQ UIN: 50187323
http://xoasis.com/~niller/ - niLLer's pages (My programs, in English)
http://whitehat.dk/g4s/ - The G4S Page (Personlig side, på dansk)
-- I've been Windozed!

Øh... det er bare mi~ (30-12-2000)
Kommentar
Fra : Øh... det er bare mi~


Dato : 30-12-00 20:09

Det gør jeg skam ikke

--
Øh... det er bare mig

WHO KNOWS WHO I AM??????



Jacob Kjer (28-12-2000)
Kommentar
Fra : Jacob Kjer


Dato : 28-12-00 22:11


"Øh... det er bare mig" <me@cyberguys.dk> skrev i en meddelelse
news:92fmpc$e9j$1@news.inet.tele.dk...
> Hej NG!
>
> Hvordan hiver jeg min version af programmet ud af programmet altså det man
> angiver inde i project options og det skal være som en string så det
kommer
> til at se nogenlunde sådan ud: 1.0.1.23 bare som eksempel.
>
> På forhånd tak.
>
> --
> Øh... det er bare mig
>
> WHO NOWS WHO I AM??????
>
>
Hej Mig!
Prøv dette:

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;




Jacob Kjer (28-12-2000)
Kommentar
Fra : Jacob Kjer


Dato : 28-12-00 22:21


"Øh... det er bare mig" <me@cyberguys.dk> skrev i en meddelelse
news:92fmpc$e9j$1@news.inet.tele.dk...
> Hej NG!
>
> Hvordan hiver jeg min version af programmet ud af programmet altså det man
> angiver inde i project options og det skal være som en string så det
kommer
> til at se nogenlunde sådan ud: 1.0.1.23 bare som eksempel.
>
> På forhånd tak.
>
> --

Hej Mig, -igen
Her har du kaldet til funktionen:

var
VersionNo : string;

-----

GetBuildInfo( W1,W2,W3,W4);
VersionNo := intToStr(W1) + '.' + intToStr(W2)+ '.'+ intToStr(W3) + '.' +
intToStr(W4) ;

Hilsen Jacob



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

Månedens bedste
Årets bedste
Sidste års bedste