[Kompo] TWindowsVersionsInfo - Kompo zur Windowserkennung

[MagicAndre1981]

ich bin grad dabei die Kompo Delphi 2009 fit zu machen. Könntet ihr mit die D6, D2005, 2006 und D2007 Package-Dateien hochladen? Dann gibts am WE das Update.

[emsländer]

Moin,

bei Delphi 2009 werden zwei Dinge angemeckert:

Delphi-Quellcode:

if (lstrcmpi(osvi.szCSDVersion,'Service Pack 2') = 0) then
(lstrcmpi(osvi.szCSDVersion,'Service Pack 6') = 0) then

Inkompatible Typen: Array und PWideChar.

Gruss

EL

[Die Muhkuh]

Bist heute auf Delphi 2009 - Komponentencheck? *g*

[emsländer]

Zitat:

Zitat von Die Muhkuh

Bist heute auf Delphi 2009 - Komponentencheck? *g*

so in etwa

Ich habe gestern das RAD 2009 ENT installiert und installiere nach und nach die Komponenten und gerate von einem Anfall in den nächsten.

Gruss

EL

[emsländer]

Zitat:

Zitat von MagicAndre1981

ich bin grad dabei die Kompo Delphi 2009 fit zu machen. Könntet ihr mit die D6, D2005, 2006 und D2007 Package-Dateien hochladen? Dann gibts am WE das Update.

Dein Wochenende dauert ganz schön lange :warn: ... bis jetzt in etwa drei Monate - nicht schlecht. :hello: So ein langes WE möchte ich auch einmal haben :cheers:

Gruss

EL

[emsländer]

Salvete Leute

hat jemand dafür noch ein Lösung? (dann bin ich mit meinen Komponenten soweit durch)

Delphi-Quellcode:

if (lstrcmpi(osvi.szCSDVersion,'Service Pack 2') = 0) then 
(lstrcmpi(osvi.szCSDVersion,'Service Pack 6') = 0) then 

Inkompatible Typen: Array und PWideChar.

Gruss

EL

[juergen]

Hallo zusammen,

hmm,ich mach mir schon Gedanken dass ich offensichtlich der einzige bin der nicht weiß wie man das Ganze implementieren muss und vor allem dann aufrufen kann...

Ich habe das Package installiert.
Ich habe die Komponente in der Toolpalette gefunden (unter "System" -> TWindowsVersionInfo)
Diese Komponente habe ich mir auf die Form "geklatscht".
Bis hier also alles i.O.

Was ist aber wvi

Delphi-Quellcode:

wvi := TWindowsVersionInfo.Create(self);

und was bedeutet
"Nach dem Erzeugen einer Instanz"...

Ich weiß mir fehlt hier (leider) Grundwissen, wäre nett wenn mir jemand erklären könnte wie ich das Ganze in meiner eigenen Unit "aufrufen" kann.

Danke schon mal im Voraus!

[Luckie]

Im ersten Posting ist doch ein ausführliches Beispiel dabei:

Delphi-Quellcode:

wvi := TWindowsVersionInfo.Create(self); 

Edit_ComplString.Text :=  wvi.WindowsVersionsString; 
Edit1.Text := wvi.ServicePack; 
Edit2.Text := IntToStr( wvi.MajorVersion ); 
Edit3.Text := IntToStr( wvi.MinorVersion ); 
Edit4.Text := IntToStr( wvi.BuildNumber );

[MagicAndre1981]

sorry, gibt bald ein Update. Code geht alles schon in Delphi 2009 (war eh alles schon drin, musste nur per Compilerswitch richtig compiliert werden). Hab noch ein Propertie isBeta und den Codenamen eingefügt. Dann unterstütze ich nun alle Windows Server 2008 Versionen (Hyper-V, HPC, SBS und EBS) und Windows 7.

[juergen]

@Luckie,
das Beispiel habe ich gesehen, aber ich scheitere vorher.
...wvi.. Ist das eine Variable?
Als was für ein Datentyp muss diese Variable denn deklariert werden?
Ist es dann eine globale Variable oder eine innerhalb einer Procedur zu deklarierende Variable?