Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   alle Windows Versionen von 95 bis Vista auslesen (https://www.delphipraxis.net/98347-alle-windows-versionen-von-95-bis-vista-auslesen.html)

taktaky 25. Aug 2007 20:10


alle Windows Versionen von 95 bis Vista auslesen
 
Hallo

hier ist der Code, mit dem wird die Windows Version angezeigt aber bis Windows XP

http://www.swissdelphicenter.ch/de/showcode.php?id=316

Nun haben wir auch Windows Vista. Wer hat einen Code bis Windows Vista?

Oder Wer kann den Code oben erweitern, indem er Windows Vista mit dem Code auch angezeigt wird?

Gruß

Bernhard Geyer 25. Aug 2007 20:43

Re: alle Windows Versionen von 95 bis Vista auslesen
 
Da fällt mir spontan Jedi Code Library oder jede halbs größere Komponentensammlung ein. Ich denke in der CodeLib wird auch was Rumfliegen und wenn die neuesten Beiträge dir anzeigen läst bekommst du was hyperaktuelles unter dem Titel " [Kompo] TWIndowsVersionsInfo - Kompo zur Windowserkennung"

semo 25. Aug 2007 21:01

Re: alle Windows Versionen von 95 bis Vista auslesen
 
aktueller thread hier in der dp :-)
http://www.delphipraxis.net/internal...t.php?t=116695


[edit=Matze]"www." hinzugefügt (und deine sid entfernt), da ohne "www" keine Cookies gesetzt/ausgelesen werden und man somit nicht eingeloggt ist. Mfg, Matze[/edit]

taktaky 25. Aug 2007 22:31

Re: alle Windows Versionen von 95 bis Vista auslesen
 
Zitat:

Zitat von computer-glossar.de
aktueller thread hier in der dp :-)
http://www.delphipraxis.net/internal...t.php?t=116695

dort steht nur Kommentare und kein Code !


[edit=Matze]Gleiche Änderungen wie im vorigen Beitrag durchgeführt. Mfg, Matze[/edit]

BUG 25. Aug 2007 22:37

Re: alle Windows Versionen von 95 bis Vista auslesen
 
Zitat:

Zitat von taktaky
dort steht nur Kommentare und kein Code !

Ich hab's mir nicht runtergeladen, aber eventuell ist die Komponente im Anhang :gruebel: :mrgreen:

MfG,
Bug

semo 26. Aug 2007 00:55

Re: alle Windows Versionen von 95 bis Vista auslesen
 
gerade in den letzten tagen habe ich ein paar themen dazu gesehen.
bediene dich bitte einmal der forensuche.

MagicAndre1981 26. Aug 2007 14:23

Re: alle Windows Versionen von 95 bis Vista auslesen
 
Zitat:

Zitat von taktaky
dort steht nur Kommentare und kein Code !

Junge :wall: Lad den Anhang runter :wall:

taktaky 28. Aug 2007 09:04

Re: alle Windows Versionen von 95 bis Vista auslesen
 
Zitat:

Junge :wall: Lad den Anhang runter :wall:
Ja schon die Komponenten runtergedownloadet und sie über Component, neu Component, .. istalliert
aber es fehlt der Demo oder Delphi-Project (.dpr)

http://www.delphipraxis.net/internal...=768824#768824

Gruß

SirThornberry 28. Aug 2007 09:12

Re: alle Windows Versionen von 95 bis Vista auslesen
 
du musst da überhaupt nichts installieren. Binde die unit einfach in dein Projekt ein, erzeuge eine Instanz der Klasse und frage die Properties und funktionen der Instanz ab.

DP-Maintenance 29. Aug 2007 09:12

DP-Maintenance
 
Dieses Thema wurde von "Matze" von "Programmieren allgemein" nach "Windows API / MS.NET Framework API" verschoben.
Delphi-Frage

kriedel 29. Aug 2007 10:40

Re: alle Windows Versionen von 95 bis Vista auslesen
 
Ich hatte kürzlich das gleiche Problem.
Einfach den Code von www.swissdelphicenter.ch/de/showcode.php?id=316 etwas modifizieren:

Delphi-Quellcode:
{operating system (OS)constants }
const
  cOsUnknown = -1;
  cOsWin95 = 0;
  cOsWin98 = 1;
  cOsWin98SE = 2;
  cOsWinME = 3;
  cOsWinNT = 4;
  cOsWin2000 = 5;
  cOsXP = 6;
  cOsVista = 7;
In der Funktion GetOperatingSystem den Codeabschnitt bei VER_PLATFORM_WIN32_NT: erweitern:

Delphi-Quellcode:
VER_PLATFORM_WIN32_NT: { Windows NT/2000 }
        begin
          if majorVer <= 4 then
            Result := cOsWinNT
          else if (majorVer = 5) and (minorVer = 0) then
            Result := cOsWin2000
          else if (majorVer = 5) and (minorVer = 1) then
            Result := cOsXP
          else if (majorVer = 6) then
            Result := cOsVista
          else
            Result := cOsUnknown;
        end;
Abhängig vom Betriebssystem wird dann von der Funktion eine Zahl geliefert, die man beliebig weiter auswerten kann. Für Windows 95-Me den Code so lassen.
Die abzufragenden Werte für majorVer und minorVer kann man der msdn entnehmen: msdn2.microsoft.com/en-us/library/ms724834.aspx

MagicAndre1981 29. Aug 2007 17:04

Re: alle Windows Versionen von 95 bis Vista auslesen
 
ähm ja. Wofür mache ich mir die Mühe alle Versionen bis ins Detail zu unterscheiden. Schau dir meine Version doch an, da ist ALLES drin. mehr findest du nirgends im Web!

negaH 29. Aug 2007 17:35

Re: alle Windows Versionen von 95 bis Vista auslesen
 
Was ist mit Win3.09 Beta Release ?

finde ich nicht in deinem Source ;(

Gruß Hagen

MagicAndre1981 29. Aug 2007 18:59

Re: alle Windows Versionen von 95 bis Vista auslesen
 
och menno, alle Betas hab ich nicht drin. Und Win3.1 ist einfach zu alt :tongue:


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:49 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