AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Windows Version ermitteln

Ein Thema von MagicAndre1981 · begonnen am 6. Feb 2005 · letzter Beitrag vom 23. Feb 2009
Antwort Antwort
Seite 2 von 3     12 3      
Benutzerbild von MagicAndre1981
MagicAndre1981

Registriert seit: 4. Jun 2004
Ort: Nordhausen
2.214 Beiträge
 
Delphi 7 Enterprise
 
#11

Re: Windows Version ermitteln [Update]

  Alt 19. Jan 2006, 17:29
So, ich hab mal ein Update der Erkennungs-Routine der Code-Lib gemacht, um weitere Windows-Versionen (mit Betas) zu erkennen.

Quellen:
Code der unit zum Erkennen von Windows ist im Anhang.

Unterstütze Versionen:
  • Windows Vista
  • Windows Server 2003 (Standard, Web Edition, Enterprise, DataCenter, Standard Edition for Itanium-based Systems, Enterprise Edition for Itanium-based Systems, DataCenter Edition for Itanium-based Systems, Standard x64 Edition, Enterprise x64 Edition, DataCenter x64 Edition)
  • Windows Server 2003 R2
  • Windows XP Prof. x64 Edition
  • Windows XP Prof.
  • Windows XP Home
  • Windows XP Tablet Edition
  • Windows XP Media Center Edition
  • Windows 2000 (Prof., Server, DataCenter, Advanced Server + Betas (Codename NT5.0))
  • Windows NT 4 Server (Server, Enterprise Server, Advanced Server)
  • Windows NT 4 Workstation (mit Unterscheidunf zw. SP6 und SP6a)
  • Windows NT 3.51
  • Windows 95 (A,B,C + Betas (Codename: Chicago, Nashville))
  • Windows 98 (Original, SE + Betas (Codename: Memphis))
  • Windows ME (Original + BETA 1 (Codename: Georgia))

Offene Fragen:
  • Unterscheidung der MCE-Versionen (2002,2004,2005)
  • Erkennung der Windows XP N-Editions

Benutzung:

Delphi-Quellcode:
uses GetWindowsVersion;

Edit1.Text := GetWinVersion;
So, dann happy Windowserkenning

André
Angehängte Dateien
Dateityp: pas getwindowsversion_713.pas (11,6 KB, 219x aufgerufen)
Dateityp: pas windows_fragment_854.pas (4,8 KB, 166x aufgerufen)
André
"A programmer is just a tool which converts caffeine into code", daran wirds wohl liegen, dass ich Abends nie pennen kann

Zitat von Luckie:
Nicht nur dass ihr offtopic geworden seid, jetzt werdet ihr selber im Offtopic noch offtopic
  Mit Zitat antworten Zitat
Benutzerbild von MagicAndre1981
MagicAndre1981

Registriert seit: 4. Jun 2004
Ort: Nordhausen
2.214 Beiträge
 
Delphi 7 Enterprise
 
#12

Re: Windows Version ermitteln

  Alt 29. Aug 2006, 17:05
So, es gibt wieder mal ein Update der Windowserkennungsfunktion.

Neu hinzugekommen ist die Erkennung von:
  • Erkennung der verschiedenen SKUs von Windows Vista
  • Unterscheidung zwischen TabletPC-Edition und TabletPC Edition 2005
  • Unterscheidung zwischen Windows XP Media Center Edition, Windows XP Media Center Edition 2004 und Windows XP Media Center Edition 2005
  • Erkennung von Windows Fundamentals for Legacy PCs

Unterstütze Versionen:
  • Windows Vista (alle SKUs)
  • Windows Server 2003 (Standard, Web Edition, Enterprise, DataCenter, Standard Edition for Itanium-based Systems, Enterprise Edition for Itanium-based Systems, DataCenter Edition for Itanium-based Systems, Standard x64 Edition, Enterprise x64 Edition, DataCenter x64 Edition)
  • Windows Server 2003 R2
  • Windows XP Prof. x64 Edition
  • Windows XP Prof.
  • Windows XP Home
  • Windows XP Tablet Edition und TabletPC Edition 2005
  • Windows Fundamentals for Legacy PCs
  • Windows XP Media Center Edition alle Versionen (2002, 2004, 2005)
  • Windows 2000 (Prof., Server, DataCenter, Advanced Server + Betas (Codename NT5.0))
  • Windows NT 4 Server (Server, Enterprise Server, Advanced Server)
  • Windows NT 4 Workstation (mit Unterscheidunf zw. SP6 und SP6a)
  • Windows NT 3.51
  • Windows 95 (A,B,C + Betas (Codename: Chicago, Nashville))
  • Windows 98 (Original, SE + Betas (Codename: Memphis))
  • Windows ME (Original + BETA 1 (Codename: Georgia))

Offene Fragen:
  • Erkennung von Windows XP Embedded
  • Erkennung der Windows XP N-Editions

Quellen:
Angehängte Dateien
Dateityp: pas getwindowsversion_206.pas (15,5 KB, 143x aufgerufen)
Dateityp: pas windows_fragment_141.pas (5,0 KB, 145x aufgerufen)
Dateityp: pas wbemscripting_tlb_265.pas (202,0 KB, 166x aufgerufen)
André
"A programmer is just a tool which converts caffeine into code", daran wirds wohl liegen, dass ich Abends nie pennen kann

Zitat von Luckie:
Nicht nur dass ihr offtopic geworden seid, jetzt werdet ihr selber im Offtopic noch offtopic
  Mit Zitat antworten Zitat
Benutzerbild von MagicAndre1981
MagicAndre1981

Registriert seit: 4. Jun 2004
Ort: Nordhausen
2.214 Beiträge
 
Delphi 7 Enterprise
 
#13

Re: Windows Version ermitteln

  Alt 20. Mär 2007, 15:55
Update:

In der neuen Version werden nun die N-Editions von XP (Home-N und Prof-N), WindowsXP 2003 Edition für IA64 und ein paar zusätzliche Betas unterstützt. Auch ein Bug bei der Erkennung von Win95 wurde beseitigt (Thx an Mazel ). Den Support für die K-und KN-Editions hab ich rausgenommen, da der Download von Technet so lahm ist und ich das nicht rechtzeitig testen konnte

Offene Fragen:
  • Erkennung von XP embedded
  • Erkennung von K- und KN Editions


André
Angehängte Dateien
Dateityp: pas getwindowsversion_179.pas (18,4 KB, 147x aufgerufen)
André
"A programmer is just a tool which converts caffeine into code", daran wirds wohl liegen, dass ich Abends nie pennen kann

Zitat von Luckie:
Nicht nur dass ihr offtopic geworden seid, jetzt werdet ihr selber im Offtopic noch offtopic
  Mit Zitat antworten Zitat
Benutzerbild von MagicAndre1981
MagicAndre1981

Registriert seit: 4. Jun 2004
Ort: Nordhausen
2.214 Beiträge
 
Delphi 7 Enterprise
 
#14

Re: Windows Version ermitteln

  Alt 17. Apr 2007, 20:35
So ich mache Fortschritt bei der Windowserkennung. Ich bastel gerade eine Komponente dafür.

Nun hab ich noch eine Frage. Wie lese ich die Revisionsnummer der Windowsversion aus? Ich meine diese Nummer: 6000.16386. Die 6000 ist die Buildnummer, da komm ich ran, nur die andere ist schwieriger zu bekommen. Es gibt die Schlüssel BuildLab und BuildLabEx, aber die werden bei einem Update des Kernels erhöht.

Diese Nummer brauche ich zur Unterscheidung der Longhorn Server Betas (Dez, feb und April CTP, da diese immer Build 6001 sind und sich nur in der Revisionsnummer unterscheiden ).

hat jemand eine Idee?
André
"A programmer is just a tool which converts caffeine into code", daran wirds wohl liegen, dass ich Abends nie pennen kann

Zitat von Luckie:
Nicht nur dass ihr offtopic geworden seid, jetzt werdet ihr selber im Offtopic noch offtopic
  Mit Zitat antworten Zitat
Benutzerbild von RWarnecke
RWarnecke

Registriert seit: 31. Dez 2004
Ort: Stuttgart
4.408 Beiträge
 
Delphi XE8 Enterprise
 
#15

Re: Windows Version ermitteln

  Alt 6. Mai 2007, 16:04
Zitat von MagicAndre1981:
Nun hab ich noch eine Frage. Wie lese ich die Revisionsnummer der Windowsversion aus? Ich meine diese Nummer: 6000.16386. Die 6000 ist die Buildnummer, da komm ich ran, nur die andere ist schwieriger zu bekommen. Es gibt die Schlüssel BuildLab und BuildLabEx, aber die werden bei einem Update des Kernels erhöht.
Warum holste Dir die Nummer nicht aus der Registry ? Ich bastel auch gerade an einer Unit rum, die mir viele Informationen vom Betriebssystem ausliest. Die Nummer steht unter HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion. Meine Unit basiert auf vielen verschiedenen Beiträge hier aus dem Forum.

EDIT : Als Grundlage zu den ganzen Beiträgen aus hier aus dem Forum, kommt noch die Unit os_info2.pas aus diesem Beitrag hinzu.
Rolf Warnecke
App4Mission
  Mit Zitat antworten Zitat
Benutzerbild von MagicAndre1981
MagicAndre1981

Registriert seit: 4. Jun 2004
Ort: Nordhausen
2.214 Beiträge
 
Delphi 7 Enterprise
 
#16

Re: Windows Version ermitteln

  Alt 6. Mai 2007, 17:56
Zitat von RWarnecke:
Warum holste Dir die Nummer nicht aus der Registry ? Ich bastel auch gerade an einer Unit rum, die mir viele Informationen vom Betriebssystem ausliest. Die Nummer steht unter HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion.
weil die da nirgends steht
André
"A programmer is just a tool which converts caffeine into code", daran wirds wohl liegen, dass ich Abends nie pennen kann

Zitat von Luckie:
Nicht nur dass ihr offtopic geworden seid, jetzt werdet ihr selber im Offtopic noch offtopic
  Mit Zitat antworten Zitat
Benutzerbild von RWarnecke
RWarnecke

Registriert seit: 31. Dez 2004
Ort: Stuttgart
4.408 Beiträge
 
Delphi XE8 Enterprise
 
#17

Re: Windows Version ermitteln

  Alt 6. Mai 2007, 18:15
Verstehe ich da etwas falsch. Du möchtest doch die Build-Nummer haben oder ?

Im angehängten Bild siehst Du einen Auszug aus dem Registrykey HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion von einer Windows Vista Business Installation.
Angehängte Grafiken
Dateityp: bmp buildnummer_296.bmp (300,3 KB, 55x aufgerufen)
Rolf Warnecke
App4Mission
  Mit Zitat antworten Zitat
Benutzerbild von MagicAndre1981
MagicAndre1981

Registriert seit: 4. Jun 2004
Ort: Nordhausen
2.214 Beiträge
 
Delphi 7 Enterprise
 
#18

Re: Windows Version ermitteln

  Alt 6. Mai 2007, 18:23
Zitat von RWarnecke:
Verstehe ich da etwas falsch. Du möchtest doch die Build-Nummer haben oder ?
nöö, die Revisionsnummer, also die 16386 und nicht die 6000
André
"A programmer is just a tool which converts caffeine into code", daran wirds wohl liegen, dass ich Abends nie pennen kann

Zitat von Luckie:
Nicht nur dass ihr offtopic geworden seid, jetzt werdet ihr selber im Offtopic noch offtopic
  Mit Zitat antworten Zitat
Benutzerbild von RWarnecke
RWarnecke

Registriert seit: 31. Dez 2004
Ort: Stuttgart
4.408 Beiträge
 
Delphi XE8 Enterprise
 
#19

Re: Windows Version ermitteln

  Alt 6. Mai 2007, 18:35
Irgendwie stehe ich auf dem Schlauch. Du möchtest die Revisionsnummer haben. Die steht doch in der Zeichenkette drin. Parse die Zeichenkette doch. Dann hast Du die Nummer.

Du kannst doch die Explodefunktion nehmen und gibts immer die zweite Position aus. Damit hast Du doch dann Deine Nummer oder etwa nicht ?
Rolf Warnecke
App4Mission
  Mit Zitat antworten Zitat
Benutzerbild von MagicAndre1981
MagicAndre1981

Registriert seit: 4. Jun 2004
Ort: Nordhausen
2.214 Beiträge
 
Delphi 7 Enterprise
 
#20

Re: Windows Version ermitteln

  Alt 6. Mai 2007, 18:39
die ändert sich bei Updates des Kernels!!!!!!!!

Kuck doch mal mein Bild im Album an. Bei den CTPs für Windows Server 2007 ist das kein Problem, doch für die Beta3 wird es Updates geben. Wenn nun ein Sicherheitsproblem festgestellt wird und ein Update kommt, dann ändert sich der String.

Nun verstanden wo mein Problem ist?
André
"A programmer is just a tool which converts caffeine into code", daran wirds wohl liegen, dass ich Abends nie pennen kann

Zitat von Luckie:
Nicht nur dass ihr offtopic geworden seid, jetzt werdet ihr selber im Offtopic noch offtopic
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 3     12 3      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 16:25 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz