[Kompo] TWindowsVersionsInfo - Kompo zur Windowserkennung

[hathor]

bds.exe, 10.0.2151.25345
Win xp pro sp2
-------------------------
[Pascal Error] WindowsVersionInfo.pas(1180): E2003 Undeclared identifier: 'IsWindows2008ServerCore'
[Pascal Error] WindowsVersionInfo.pas(1182): E2003 Undeclared identifier: 'Result'
[Pascal Error] WindowsVersionInfo.pas(1182): E2003 Undeclared identifier: 'FWindowsVersion'
[Pascal Error] WindowsVersionInfo.pas(1183): E2003 Undeclared identifier: 'FIsServerCore'
[Pascal Error] WindowsVersionInfo.pas(1186): E2003 Undeclared identifier: 'IsMediaCenterEdition'
[Pascal Error] WindowsVersionInfo.pas(1186): E2029 ';' expected but ':' found
[Pascal Error] WindowsVersionInfo.pas(1188): E2003 Undeclared identifier: 'Result'
[Pascal Error] WindowsVersionInfo.pas(1191): E2003 Undeclared identifier: 'IsServer'
[Pascal Error] WindowsVersionInfo.pas(1193): E2003 Undeclared identifier: 'Result'
[Pascal Error] WindowsVersionInfo.pas(1193): E2003 Undeclared identifier: 'FwProductType'
[Pascal Warning] WindowsVersionInfo.pas(1193): W1023 Comparing signed and unsigned types - widened both operands
[Pascal Warning] WindowsVersionInfo.pas(1194): W1023 Comparing signed and unsigned types - widened both operands
[Pascal Error] WindowsVersionInfo.pas(1197): E2003 Undeclared identifier: 'IsWorkstation'
[Pascal Error] WindowsVersionInfo.pas(1197): E2029 ';' expected but ':' found
[Pascal Error] WindowsVersionInfo.pas(1199): E2003 Undeclared identifier: 'Result'
[Pascal Error] WindowsVersionInfo.pas(1199): E2003 Undeclared identifier: 'FwProductType'
[Pascal Warning] WindowsVersionInfo.pas(1199): W1023 Comparing signed and unsigned types - widened both operands
[Pascal Error] WindowsVersionInfo.pas(1202): E2003 Undeclared identifier: 'IsTabletPCEdition'
[Pascal Error] WindowsVersionInfo.pas(1202): E2029 ';' expected but ':' found
[Pascal Error] WindowsVersionInfo.pas(1204): E2003 Undeclared identifier: 'Result'
[Pascal Fatal Error] Unit1.pas(7): F2063 Could not compile used unit 'WindowsVersionInfo.pas'

Was ist los???

[MagicAndre1981]

Zitat von Mackhack:

Was bedeuten denn die Versionen N, K und KN?

Die K Editions sind spezial Versionen in Korea. Bei der K fehlt der Messenger und bei der KN der Messenger und MediaPlayer. Die N Edition muss in der EU angeboten werden und zwar ohne den Windows Media Player.

@hathor

mon, muss ich mal kucken.

[Mackhack]

Danke Andre fuer die Infos!

Gute arbeit will ich nochmals betonen. War sicherlich ne Menge Arbeit alleine nur das Researching!

[MagicAndre1981]

Update auf Version 1.0.1.

@hathor, dein Problem ist nun weg. Du wolltest die Unit als nonVCL nutzen, da hatte ich eine Compilerdirektive falsch

Zitat von Mackhack:

War sicherlich ne Menge Arbeit alleine nur das Researching!

Das war es

[taktaky]

Hallo MagicAndre1981

ich habe immer noch nicht geschafft ! Ich verwende Delphi 7
was soll ich tun um ein Demo zu erstellen? Ich meine Schritt für Schritt
ich habe die Datei downloadet, drin dteht nur .pas und Komponenten Dateien.
http://www.members.lycos.co.uk/forfo...ndows-info.jpg

Kannst Du ein Demo erstellen? (als exe mit Delphi-Project (.dpr) )
icg möchte keine neue Thema erstellen, da Du hier gut beschrieben hast, aber für mich ist immer noch nicht ganz klar.

Vielen Dank!

Gruß

[SirThornberry]

mir stellt sich eigentlich auch die Frage warum eine Klasse und nicht einfach eine Funktion?
Denn so muss man erst die Klasser erzeugen, dann die einzelnen Funktionen aufrufen (IsMediaCenterEdition etc.) und dann die Objectinstanz wieder freigeben.
Sinnvoller wäre doch eine Funktion welche einen Record füllt (oder zurück gibt) wo man dann im Record einfach die Bools ausliest. Zudem fände ich ein Enum/SetOf schöner als mehrere Funktionen. (lässt sich schöner prüfen)

[MagicAndre1981]

Ich finde Klassen schöner. So ein rumgefummel mit Records ist ist doch bäh

@taktaky

du packst in die Uses WindowsVersionInfo rein und erzeugst dir mit wvi := TWindowsVersionInfo.Create eine Instanz und dann kannst du die Werte abfragen.

[negaH]

aber nicht vergessen dieses erzeugte Objekt wieder freizugeben und nicht vergessen das alles in ein try finally Block zu kapseln damit bei einer Exception dieses Objekt wieder korrekt freigegeben wird.

Naja, warum umständlich wenn's mit einem Record diesen zusätzlichen Aufwand nicht gäbe.

Den Einwand halte ich für korrekt. Auch den Einwand Mengen zu benutzen, so könnte man mit einer einzigsten Abfrage alles wichtige erfragen. Klar, mit der jetzigen Methode fragt man eben mehrere Methoden und Properies als UND Abfrage ab, das sieht ja viel besser aus.

Ich könnte sogar den Einwand nachvollziehen warum man das nicht gleich als globale Variable einmalig beim Programstart initialisert, und gut ist. Klar, sieht immer schöner aus wenn man 100 mal die Version abfragt und das Program dem Hacker jedesmal 1000'ende Abfragen an das System vor die Nase klatscht.

Über Geschmack lässt sich streiten wer Objekte schöner findet statt nach der Funktionalität zu schauen ?!
Wusstest du das Objekte im Grunde nur bessere Records sind ? Wer bäh zu Records sagt muss das dann zwangsläufig auch zu Objekten sagen. Das ist OOP ohne nach deren Wurzeln zu fragen.

Gruß Hagen

[MagicAndre1981]

Zitat von negaH:

aber nicht vergessen dieses erzeugte Objekt wieder freizugeben und nicht vergessen das alles in ein try finally Block zu kapseln damit bei einer Exception dieses Objekt wieder korrekt freigegeben wird.

und wo ist das Problem?

Zitat von negaH:

Über Geschmack lässt sich streiten

deshalb ist hier jetzt Schluss. Wer keine Klasse will soll sie nicht nutzen!!

[Ruediger D]

Hallo,

[quote="MagicAndre1981"]

Zitat von negaH:

aber nicht vergessen dieses erzeugte Objekt wieder freizugeben und nicht vergessen das alles in ein try finally Block zu kapseln damit bei einer Exception dieses Objekt wieder korrekt freigegeben wird.

Das erübrigt sich doch sowieso, wenn ich die Komponente schlicht "aufs Formular klatsche", oder? Weil, explizit erzeuge ich dann doch nichts?

Viele Grüße
Ruediger