Zitat von
MagicAndre1981:
Update auf Version 1.5
Hallo Andre,
danke für das Update auf Version 1.5. Leider wirft diese Version bei der Ausführung in der
IDE immer eine
Exception, da bei meinem Windows (XP SP3) weder der Regeintrag "CSDBuildNumber" existiert noch die Property "BuildLabEx" gefüllt ist. Damit hält die
IDE beim Start meines Programmes immer an der Exceptionstelle an, was lästig ist. Wird dieses ganze BuildLabEx oder CSDBuild so dringend benötigt?
Delphi-Quellcode:
function GetRevisionFromBuildLabEx(): DWORD;
var
sp : TStrSplitter;
begin
sp := TStrSplitter.Create;
try
try
sp.Execute(BuildLabEx,'.'); // hier ist BuildLabEx = '' bei mir
Result := StrToInt( sp[1] );
except on E: EConvertError do
Result := MAXDWORD;
end;
finally
FreeAndNil(sp);
end;
end;
Begin
Result := MAXDWORD;
bRevFromBuildLabEx := false;
sCSDBuildnumber := '0';
iCSDBuildnumber := 0;
try
sCSDBuildnumber := RegReadString (HKEY_LOCAL_MACHINE,'SOFTWARE\Microsoft\Windows NT\CurrentVersion\',
'CSDBuildNumber');
if sCSDBuildnumber <> '' then // hier ist sCSDBuildnumber = '' bei mir
iCSDBuildnumber := StrToInt( sCSDBuildnumber )
else
Begin
[b] iCSDBuildnumber := GetRevisionFromBuildLabEx;[/b]
bRevFromBuildLabEx := true;
end
except on E: EConvertError do
end;
Danke und Gruß,
Christoph