XP Usermanagers 6.1 Open Source

[jmit]

Hallo,

Zitat von Luckie:

Nein, er hat keine Resetfunktion. Aber wenn du ihn einfach nur startest und nichts machst, passiert auchnichts. Du musst also was gemacht haben. wenn du mir sagst, was du gemacht hast, kann man dir eventuell helfen. Allerdings mit einem kaputten Adminkoto wird das schwer werden.

Da ist es dann doch von Vorteil, wenn man einen weiteren Administrator-Account hat.


Gruß Jörg

[Luckie]

Hallo,
könntet ihr mir mit mal bitte den Gefallen tun und den Usermanager unter Windows 7 32-Bit testen? Am besten in einer VM, falls was passiert. Solltet ihr ihn auf euren Live-System testen, übernehme ich keinerlei Verantwortung.

Vielen Dank schon mal.

[mirage228]

Zitat von Luckie:

Hallo,
könntet ihr mir mit mal bitte den Gefallen tun und den Usermanager unter Windows 7 32-Bit testen? Am besten in einer VM, falls was passiert. Solltet ihr ihn auf euren Live-System testen, übernehme ich keinerlei Verantwortung.

Vielen Dank schon mal.

Moin,

Irgendwas spezielles oder alles?
Also das Programm (Ver 5.1 full) erzeugt beim Start einen UAC-Prompt, so wie ich das sehe wird alles korrekt ausgelesen dann. Die Statusleiste meldet aber noch "Betriebssytem: Unbekannt".
Auch bei der Gruppenverwaltung scheinen alle Gruppen ausgelesen zu werden.
Testweise habe ich mal an meinem Profil die Angabe "vollständiger Name" ergänzt, das ging auf jeden Fall problemlos.

Ist es eigentlich gewollt, das man das Fenster nicht vergrößern kann? Außerdem sehen die Symbol in der Toolbar und das Programmsymbol in der Win7 Taskleiste etwas verschwommen aus...

Viele Grüße

[Luckie]

Am liebesten alles.

Zitat:

Die Statusleiste meldet aber noch "Betriebssytem: Unbekannt".

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.

Zitat:

Ist es eigentlich gewollt, das man das Fenster nicht vergrößern kann? Außerdem sehen die Symbol in der Toolbar und das Programmsymbol in der Win7 Taskleiste etwas verschwommen aus...

Wäre das Vergrößern denn notwendig? Und das mit den Symbolen hatten wir schon mal. Das sind ursprünglich mal PNGs gewesen.

Danke schon mal für deine Mühe.

[jaenicke]

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? Vista und Server 2008 sind Version 6.0, Windows 7 und Server 2008 R2 sind 6.1, das funktioniert ganz normal.
Falsch sind diese Werte (wie auch unter XP und Vista) nur, wenn der Kompatibilitätsmodus aktiviert wird.

Ob es 64-Bit ist, bekommt man ja mit IsWow64Process heraus, auch die Edition lässt sich herausfinden.

Wenn man auch das Verfälschen durch den Kompatibilitätsmodus abfangen will, böte sich WMI z.B. an, das in jedem Fall die korrekten Ergebnisse liefert. Ansonsten gibt es da auch noch eine undokumentierte Funktion, von der ich allerdings abraten würde.

[Mithrandir]

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 von jaenicke:

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 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 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).