NetLocalGroupAdd funktioniert nicht

[RWarnecke]

Zitat von Dezipaitor:

Die Befehle gibts doch schon alle in Windows.pas ?

Zitat von RWarnecke:

Hallo zusammen,

ich möchte mir ein paar Befehle aus dem MSDN Library in einer Unit zusammenschreiben. Nur irgendwie komme ich nicht ganz damit zurecht das in Delphi zuschreiben.
Hier meine Übersetzung :

Das hat schon jemand getan. Dabei kam das hier raus: http://jedi-apilib.sourceforge.net/

Wenn du Unicodeparameter verwendest, dann musst du NetLocalGroupAddW verwenden.

Das ist ja auch richtig so, nur ich mache irgendwo noch einen Fehler in der Anwendung. Um es vielleicht besser zu verstehen, wollte ich das ganze selber machen. Denn das hier erworbene Wissen kann ich ja auch auf andere API's anwenden.

Zitat von Apollonius:

Ich denke, dass für info vielleicht vor dem Zugriff Speicher alloziert werden sollte.

Ich habe das ganze jetzt mal so umgeschrieben :

Delphi-Quellcode:

function AddGroups(wServer, wGroupName, wComment : String;):DWORD;
var
  info           : ^PLOCALGROUP_INFO_1;
  wTempComment   : WideString;
  wTempGroupName : WideString;
  wTempServer    : WideString;
  parmerr: DWORD;
begin
  wTempComment := wComment;
  wTempGroupName := wGroupName;
  wTempServer := wServer;
  parmerr := 0;
  GetMem(info,sizeOf(info));
  info^.lgrpi1_comment := PWideChar(wTempComment);
  info^.lgrpi1_name := PWideChar(wTempGroupName);
  result := NetLocalGroupAdd (PWideChar(wTempServer), 1, @info, parmerr);
end;

Nur leider bekomme ich immer noch die EAccessViolation in der Zeile 14. Das heißt also wenn ich Speicher alloziere mit GetMem hilft mir auch nicht weiter.