Forum: Software-Projekte der Mitglieder
by DeddyH,
14. Jan 2009
Kleiner Verbesserungsvorschlag:function CheckWinVer(CompareMode : TCompareMode; CompareWinVer : TWindowsVersions) : Boolean;
var
wvi : TWindowsVersionInfo;
begin
{$IFDEF USE_VCL}
wvi := TWindowsVersionInfo.Create(nil);
{$ELSE}
wvi := TWindowsVersionInfo.Create;
{$ENDIF}
try
Forum: Software-Projekte der Mitglieder
by DeddyH,
4. Jan 2009
Das bedeutet ja, dass wvi vom Typ TWindowsVersionInfo (oder zumindest eines Vorfahren davon) sein muss, sonst würde der Compiler das gar nicht zulassen ;)
Forum: Software-Projekte der Mitglieder
by DeddyH,
4. Jan 2009
Das sieht man doch bereits am Aufruf des Constructors.
var wvi: TWindowsVersionInfo;
begin
wvi := TWindowsVersionInfo.Create(self);
try
Edit_ComplString.Text := wvi.WindowsVersionsString;
Edit1.Text := wvi.ServicePack;
Edit2.Text := IntToStr( wvi.MajorVersion );
Edit3.Text := IntToStr( wvi.MinorVersion );
Edit4.Text := IntToStr( wvi.BuildNumber );
Forum: Software-Projekte der Mitglieder
by DeddyH,
4. Apr 2008
Wenn Du die Kompo "aufs Formular klatschst", musst Du Dich um die Freigabe nicht kümmern.
Forum: Software-Projekte der Mitglieder
by DeddyH,
20. Aug 2007
Liest sich prima, mal schauen, ob das unter D7 auch funzt :thumb: