Sprachversion des OS herausfinden

[kuba]

Hallo,

weiss jemand wie man mit delphi die Sprachversion des OS herausfinden kann ?

Ausserdem suche ich Informationen zur Gruppe "Administratoren" und "Benutzer", hier benötige ich in "allen möglichen" Sprachen die Namen der Gruppen z.B. administrators, administratoren, administrateurs, administratori, etc.

In der DP habe ich schon die Suchfunktion benutzt, aber leider nichts verwendbares gefunden Sprachversion

kuba

[omata]

Schau doch mal hier, vielleicht hilft es ja weiter.

[kuba]

Hy,

das sieht schon ganz gut aus, um "alle Sprachen" herauszufinden müsste ich jedoch alle OS´s vorliegen haben und ausprobieren. Eine Info zu "allen Sprachen" müsste aber doch irgendwo zu finden sein.

KUBA

[omata]

Dann schau auch mal hier.

[kuba]

Zitat von omata:

Dann schau auch mal hier.

Ja supi, danke !

Fehlen mir jetzt nur noch die Gruppennamen in "allen Sprachen" ...

KUBA

[omata]

Vielleicht hilft das hier.

[kuba]

Hy,

vielen Dank, aber genau dafür benötige ich die Gruppennamen

Ich möchte in meinem Programm die Sprachversion des OS herausfinden:

Delphi-Quellcode:

Function GetSystemLanguage: String;
Var
  Text: Array [0..100] of Char;
Begin
  VerLanguageName (GetSystemDefaultLangID, Text, Length (Text));
  Result := String (Text);
End;

und einem bestimmten Benutzer eine Gruppe zuweisen, z.B. NET LOCALGROUP administratori GRUPPE /ADD
selbstverständlich mit Delphi

Dazu benötige ich die Gruppennamen in allen Sprachen.

KUBA

[omata]

Das war mir schon klar. Aber bist du sicher das du das einem bestimmten Benutzer geben willst? Oder willst du nicht einem Benutzer mit Adminrechten etwas zuweisen? Ermittle doch wer von den Benutzern auf dem System Adminrechte hat und lass den Benutzer entscheiden, welchem Benutzer nun konkret die neuen Einstellungen zugewiesen werden. Oder gib allen Benutzern, die Adminrechte besitzen die neuen Einstellungen.

Schau auch mal hier.

[kuba]

nee, ich hab einen (ganz bestimmten) Benutzer mit "Benutzerrechten", zur Ausführung eines bestimmten Kommandos benötigt dieser Benutzer vorübergehend "Administratorrechte"

Das Programm funktioniert bereits, jedoch nur mit "Deutsch" und "Englisch", um weitere Sprachen zu unterstützen benötige ich die Gruppennamen in "allen Sprachen". Zur Zeit habe ich in die Gruppenzuweisung einfach die Gruppennamen in beiden Sprachen hinterlegt, das ist aber nicht schön ...
Daher will ich in Zukunft erst die Sprachversion des OS herausfinden und dann gleich den richtigen Gruppennamen zuweisen.

Die Zuweisung der Gruppe erfolgt durch einen Windows NT Systemdienst, hier das Programm (Freeware)

KUBA

[Lasse2002]

Und was machst du, wenn du ein englisches System mit deutschem Sprachpack hast, oder wenn die Administratoren-Gruppe umbenannt wurde?

Mein Vorschlag wäre, einfach den Namen der Gruppe von Windows zu erfragen:

Delphi-Quellcode:

function AdminGroupName: string;
const
  SIDAuthNT: SID_IDENTIFIER_AUTHORITY = (value: (0, 0, 0, 0, 0, 5));
var
  pAdminSID: PSID;
  Name, Domain: PChar;
  LenName, LenDomain: Cardinal;
  Use: Cardinal;
  Res: BOOL;
begin
  if AllocateAndInitializeSid(SIDAuthNT, 2, $20, $220, 0, 0, 0, 0, 0, 0, &pAdminSID) then
  try
    Name := nil;
    LenName := 0;
    Domain := nil;
    LenDomain := 0;

    Res := LookupAccountSid(nil, pAdminSID, Name, LenName, Domain, LenDomain, Use);
    if not Res and (GetLastError = 122) then
    begin
      Name := StrAlloc(LenName);
      Domain := StrAlloc(LenDomain);
      Res := LookupAccountSid(nil, pAdminSID, Name, LenName, Domain, LenDomain, Use);
    end;
    if Res then
      Result := Copy(Name, 1, LenName);
    StrDispose(Name);
    StrDispose(Domain);
  finally
    FreeSid(pAdminSID);
  end;
end;