AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Win32/Win64 API (native code) Über Delphi neuen Benutzer anlegen, bestehenden bearbeiten
Thema durchsuchen
Ansicht
Themen-Optionen

Über Delphi neuen Benutzer anlegen, bestehenden bearbeiten

Ein Thema von Meakin · begonnen am 13. Feb 2011 · letzter Beitrag vom 15. Feb 2011
 
Meakin

Registriert seit: 13. Feb 2011
4 Beiträge
 
#6

AW: Über Delphi neuen Benutzer anlegen, bestehenden bearbeiten

  Alt 15. Feb 2011, 16:51
Also. Habe nun folgendes implementiert. Dabei habe ich mich zum einem an Luckies Unit orientiert, zum anderen an MSDN. Syntax ist laut Delphi korrekt.
Ich hätte auch Luckies Unit so nehmen können, doch geht es für mich hier vor allem darum, dies selbst zu lernen und zu verstehen. Ausserdem brauchte ich bei weitem nicht alle Funktionen die dort erstellt worden waren.

Funktion in Delphi setzen
Code:
implementation

{$R *.dfm}

function NetUserAdd(ServerName: lpWStr; Level: DWord; Buf: lpByte; Parm_Err: lpDWord): LongInt; StdCall; External 'NETAPI32.DLL';
Hier binde ich die Funktion aus NETAPI32 ein. Da Name gleich ist habe ich denn nicht hinten angesetzt. Ich verwendete die selben Variablen wie in MDSN (Typen waren Delphi bekannt). Bis auf
lpByte welches ich so angab

Code:
type

  lpByte = pByte;
Nun habe ich die Funktion angewendet:

Code:
    User.usin1_name := 'Nutzer';
    User.usin1_password := 'Password';
    NetUserAdd('localhost', 1, @User, nil);
Dabei wird von User, welcher vom Typ USERINFO_1 das Passwort und der Name gesetzt. Zuvor wurde User nur in den Variablen defininiert, nicht weiter initialisiert. Auch er ist unter type definiert:

Code:
type

  TUserInfo1 = record
    usin1_name: LPWSTR;
    usin1_password: LPWSTR;
    usin1_password_age: DWORD;
    usin1_priv: DWORD;
    usin1_home_dir: LPWSTR;
    usin1_comment: LPWSTR;
    usin1_flags: DWORD;
    usin1_script_path: LPWSTR;
  end;
Soweit funktioniert das ganze auch. Das Programm startet, es tut alles was es machen soll, durchläuft den gesamten Alogrithmus ohne Fehlermeldung. Doch dann sehe ich unter der Benutzerverwaltung: Nichts ist passiert. Kein neuer Benutzer wurde erstellt.
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:32 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz