Betriebssystem erkennen

Born-to-Frag · Beiträge: 1094 Win XP SP2, Win 2000 SP4 Delphi 7, 2k5

Wie kann ich Delpih Betriebssysteme erkennen lassen?

Z.B. soll bei Win2k etwas anderes ausgeführt werden als bei WinXP.

Es würde eigendlich schon reichen, wen man zwischen WinXP und dem Rest differenziert..

greetz
-B2F

uall@ogc · Verfasst: Mo 19.09.05 17:01

www.dsdt.info/tipps/?id=182

google und forensuche hätte bestimmt auch geholfen

_________________
wer andern eine grube gräbt hat ein grubengrabgerät
- oder einfach zu viel zeit

Born-to-Frag · Beiträge: 1094 Win XP SP2, Win 2000 SP4 Delphi 7, 2k5

Mh.. also ich habe jetzt mal angesehen, aber ich habe das immer noch nicht richtig verstanden.

Also ich möchte, dass wenn man auf einen Button drückt, das dann in einer Edit leiste das Betriebssystem erscheint.

Kann mir da vielleicht jemand etwas posten

?

greetz

Heiko · Beiträge: 3169 Erhaltene Danke: 11

Born-to-Frag hat folgendes geschrieben:

Mh.. also ich habe jetzt mal angesehen, aber ich habe das immer noch nicht richtig verstanden.

Also ich möchte, dass wenn man auf einen Button drückt, das dann in einer Edit leiste das Betriebssystem erscheint.

Kann mir da vielleicht jemand etwas posten

?

greetz

Warum was psoten, wenn es bereits etwas einfaches kurzes gibt? Sagew uns ganz einfach was du nicht verstanden hast

. Und das mit dem Edit ist ja so ziemlich einfach mit der funktion, da du nur das ergebnis der Funktion an den edit übergeben musst.

Born-to-Frag · Beiträge: 1094 Win XP SP2, Win 2000 SP4 Delphi 7, 2k5

Heiko hat folgendes geschrieben:

Warum was psoten, wenn es bereits etwas einfaches kurzes gibt? Sagew uns ganz einfach was du nicht verstanden hast

. Und das mit dem Edit ist ja so ziemlich einfach mit der funktion, da du nur das ergebnis der Funktion an den edit übergeben musst.

JA, das ist es ja was ich nicht verstanden habe, wie übergebe ich es an Edit?

greetz

Narses · Verfasst: Mo 19.09.05 18:47

Moin!

markieren

Delphi-Quelltext

1:	Edit1.Text := GetWinVersion;

cu
Narses

Born-to-Frag · Beiträge: 1094 Win XP SP2, Win 2000 SP4 Delphi 7, 2k5

Ups, jo hab es grad gemerkt.. hab mich verschrieben ^^

sry :-[

Heiko · Beiträge: 3169 Erhaltene Danke: 11

Wie meinst du das, dass du dich verschrieben hast? Hier im Forum oder in Delphi bei der Übergabe der Funktion?

matze.de · Verfasst: Mo 19.09.05 19:36

Schau mal bei uns im Projekt Omorphia in diese Datei rein.

mfg matze

_________________
si tacuisses, philosophus mansisses.

Ehemaliges Mitglied Erhaltene Danke: 1

Ich galube, diese: www.luckie-online.de.../WindowsVersion.html liefert etwas genauere Angaben.

Heiko · Beiträge: 3169 Erhaltene Danke: 11

Ich weiß nicht ob die wirklich viel mehr bringt außer mehr Quelltext

. Es hängt sicherlich davon ab, wofür das Programmm gedacht ist, denn meistens ist es nur für die "normalen" Windows gedacht und nicht für die Server-Editionen

.

Ehemaliges Mitglied Erhaltene Danke: 1

Wenn es ein OS Informationstool werden soll... :-?

Marco D. · Verfasst: Mo 19.09.05 20:14 Titel: OS

Vielleicht hilft das hier weiter:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

function GetWinVersion: string;
begin
  result:='Unbekannte Version';
  case Win32Platform of
    1:// 9x-Reihe
      If Win32MajorVersion=4 Then Begin
        Case Win32MajorVersion of
            0: result:='Windows 95';
            10: result:='Windows 98';
            90: result:='Windows Me';
        end;
      end;
  2: // NT-Reihe
     Case Win32MajorVersion of
         3:IF Win32MinorVersion=51 then
              result:='Windows NT 3.51';
         4:If Win32MinorVersion=0 then
             result:='Windows NT 4';
         5:Case Win32MinorVersion of
              0: result:='Windows 2000';
              1: result:='Windows XP';
              2: result:='Windows .NET Server';
           end;
     End;
  end;
  //Win32CSDVersion enthält Informationen zu Servicepacks
  if Win32CSDVersion<>'' then
    result:=result+' '+Win32CSDVersion;
end;

Das hatt nix mit euch zu tun aber ich liebe diesen Smiley das muss mal sein:

:motz:

_________________
Pascal keeps your hand tied. C gives you enough rope to hang yourself. C++ gives you enough rope to shoot yourself in the foot

uall@ogc · Verfasst: Mo 19.09.05 20:19

Koller haste schön aus meinem Link rauskopiert

vielleicht sollte man vorher mal schaun was die anderen gepostet haben :motz:

_________________
wer andern eine grube gräbt hat ein grubengrabgerät
- oder einfach zu viel zeit

BenBE · Verfasst: Mo 19.09.05 22:37

Wenn Du es ganz genau brauchst, kannst Du WindowsVersionEx aus dem Omorphia-Projekt in der Unit OIncProcs.pas verwenden. Dort wird Dir sogar angesagt 2K Pro, Server oder Adv Server, XP Home\Pro und die ganzen Sub-Informationen.

_________________

Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.

Marco D. · Verfasst: Di 20.09.05 11:23 Titel: Win

Hey sorry

Habs aus dem Easy Helper von delphi-Source. Ich hab mir deinen Link gar nicht angeguckt!

Greetz Koller

_________________
Pascal keeps your hand tied. C gives you enough rope to hang yourself. C++ gives you enough rope to shoot yourself in the foot

Born-to-Frag · Beiträge: 1094 Win XP SP2, Win 2000 SP4 Delphi 7, 2k5

Ich hatte mich in Delphi bei der Übergabe verschrieben :oops:

Also Problem gelöst. Danke!!

greetz

Heiko · Beiträge: 3169 Erhaltene Danke: 11

Koller hat folgendes geschrieben:

Hey sorry

Habs aus dem Easy Helper von delphi-Source. Ich hab mir deinen Link gar nicht angeguckt!

Greetz Koller

Das es das gleiche ist hättest du dir denken können, das der EH von delphi-source ist

.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme