Also, ich habe mir jetzt den Rat von Dezipaitor zu Herzen genommen und es mit der
Unit JclWin32 probiert. Ich habe ein Beispielprojekt gemacht. Hier der Code dazu :
Delphi-Quellcode:
procedure TForm10.Button1Click(Sender: TObject);
var
info : Pointer;
parmerr : LPDWORD;
wComment: WideString;
wGroupName: WideString;
nerr: Cardinal;
begin
wComment := Edit2.Text;
wGroupName := Edit1.Text;
parmerr := nil;
GetMem(info,sizeOf(PLOCALGROUP_INFO_1));
PLOCALGROUP_INFO_1(info)^.lgrpi1_comment := PWideChar(wComment);
PLOCALGROUP_INFO_1(info)^.lgrpi1_name := PWideChar(wGroupName);
nerr := NetLocalGroupAdd(PWideChar('.'), 1, @info, parmerr);
if nerr = 0 then
ShowMessage('Gruppe erfolgreich erstellt')
else
ShowMessage('Fehlermeldung : ' + IntToStr(nerr));
end;
Nur leider erhalte ich folgende Fehlermeldung in Zeile 15:
---------------------------
Project12
---------------------------
Zugriffsverletzung bei Adresse 7C9112F1 in Modul 'ntdll.dll'. Lesen von Adresse 0000002E.
---------------------------
OK
---------------------------
Was habe ich denn jetzt nun wieder falsch gemacht ? Bin ich wieder mit der Adressierung drucheinander gekommen ?