XP Usermanagers 6.1 Open Source

[Mithrandir]

Zitat:

Zitat von Luckie

Und das mit den Symbolen hatten wir schon mal. Das sind ursprünglich mal PNGs gewesen.

Ist ja nun auch schon ewig lange her. Was spricht denn dagegen, nach passenden Vektorgrafiken zu gucken? Die kann man problemlos in der Größe anpassen und dann ins passende Format konvertieren.

[Luckie]

Zitat:

Zitat von jaenicke

Zitat:

Zitat von Luckie

Jupp. Windows 7 wird noch nicht ausgewertet. Muss ich mal gucken, wie ich das hinbekomme, denn das läuft nicht mit der normalen GetVersion Funktion.

Wie kommst du darauf?

Siehe hier:

Delphi-Quellcode:

function GetOS(const Computer: WideString): string;
var
  res               : DWORD;
  s                 : string;
  si                : Pointer;
  Major             : DWORD;
  Minor             : DWORD;
resourcestring
  rsErrorOSUnknown = 'Betriebssystem unbekannt';
begin
  si := nil;
  s := '';
  res := NetServerGetInfo(PWideChar(Computer), 101, @si);
  if res = NERR_Success then
  begin
    Major := PSERVER_INFO_101(si)^.sv101_version_major;
    Minor := PSERVER_INFO_101(si)^.sv101_version_minor;
    if (Major = 4) and (Minor = 0) then
    begin
      s := 'Windows NT 4.0';
    end
    else if (Major = 5) and (Minor = 0) then
    begin
      s := 'Windows 2000';
    end
    else if (Major = 5) and (Minor = 1) then
    begin
      s := 'Windows XP';
    end
    else if (Major = 5) and (Minor = 2) then
    begin
      s := 'Windows 2003 Server Family';
    end
    else if (Major = 6) and (Minor = 0) then
      s := 'Windows Vista'
    else
      s := rsErrorOSUnknown;

    NetApiBufferFree(si);
  end
  else
    s := rsErrorOSUnknown;
  result := s;
end;

Ich müsste also nur noch Windows 7 ergänzen.

@Daniel: Weil ich bisher noch keine gescheiten Grafiken/Symbole gefunden haben, die auch von der Lizenz her verwenden darf ohne groß was dafür bezahlen zu müssen.

[RWarnecke]

Hallo Michael,

der API-Befehl getproductinfo könnte da etwas für Dich sein. Der erkennt alle Versionen von VISTA oder höher und Windows Server 2008 oder höher

[Luckie]

Geht leider nicht:

Zitat:

Minimum supported client Windows Vista

Desweitern ist es nicht netzwerkfähig.

[jaenicke]

Zitat:

Zitat von Luckie

Ich müsste also nur noch Windows 7 ergänzen.

Genau:

Delphi-Quellcode:

    else if (Major = 6) and (Minor = 0) then
      s := 'Windows Vista'
    else if (Major = 6) and (Minor = 1) then
      s := 'Windows 7'
    else
      s := rsErrorOSUnknown;

Zitat:

Zitat von Luckie

@Daniel: Weil ich bisher noch keine gescheiten Grafiken/Symbole gefunden haben, die auch von der Lizenz her verwenden darf ohne groß was dafür bezahlen zu müssen.

Bei OpenClipArt müsste ich mal schauen, ob es da etwas gibt. Die könntest du ja problemlos verwenden (Public Domain).

[RWarnecke]

Zitat:

Zitat von Luckie

Geht leider nicht:

Zitat:

Minimum supported client Windows Vista

Desweitern ist es nicht netzwerkfähig.

Du kannst Ihn aber trotzdem nutzen. Du liest ja die Major und Minor Version aus. Diese übergibts Du an GetProductInfo, dann sollte er doch die richtige Version ausspucken.

[Luckie]

Dann guck dir mal die Rückgabewerte an. Die geben mir nicht das Betriebssystem zurück.

[RWarnecke]

Zitat:

Zitat von Luckie

Dann guck dir mal die Rückgabewerte an. Die geben mir nicht das Betriebssystem zurück.

Du ermittelst doch die Major und Minor Version und durch den Rückgabewert von GetProductInfo kannst Du zwischen VISTA und Server 2008 oder 7 und Server 2008 R2.

Edit: Anderst mache ich es in meinem SystemInfo doch auch nicht.

[Luckie]

Hm, könnte ich mir mal angucken.

[Daniel]

Zitat:

Zitat von Luckie

Der XP-Usermanger bekommt eine eigene Domain: http://www.xpusermanager.de.