Einzelnen Beitrag anzeigen

Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#794

Re: NEUE Version 5.1 des XP Usermanagers RELEASE

  Alt 13. Jun 2007, 23:43
Wer kennt denn schon Vista.

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
      s := rsErrorOSUnknown;

    NetApiBufferFree(si);
  end
  else
    s := rsErrorOSUnknown;
  result := s;
end;
Das müsste man hier noch irgendwie integrieren. Welche Major und Minor ID hat denn Vista?
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat