Ergebnis der Suchanfrage

• Forum: Win32/Win64 API (native code)
    Delphi
    by Luckie, 29. Jan 2003
  Gute Frage. Auf alle Fälle ging es dann ohne Runtime Error. was auch wichtig war ist das: DOMAIN_GROUP_RID_USERS = $00000201; ohne das legt er den Benutzer nicht an.
  
  Deinen Arm? Was ist mit dem?
• Forum: Win32/Win64 API (native code)
    Delphi
    by Luckie, 29. Jan 2003
  *luckie der vor freude aus dem schreibtsichstuhl springt und vor glückseeligkeit im zimmer rumhüpft*
  
  :bouncing4: :firejump: :bounce1: :bounce2: :hello:
  
  *luckie der außeratem zum schreibtischstuhl zurückkehrt und christian um den hals fällt*
  
  :P :hello: :witch: :stupid:
• Forum: Win32/Win64 API (native code)
    Delphi
    by Luckie, 29. Jan 2003
  Irgendwie glaube ich, dass ich mich im Kreise drehe. Ich bin, glaube ich, wieder bei der Ursprungsversion angekommen:
  
  procedure AddUserProc(sComputer: String);
  var
  ui3 : Pointer; // USER_INFO_3; //
  szBuffer : array of Char;
  s, sUser : String;
  dwNetError : NET_API_STATUS;
  begin
  Sender := VOID;
• Forum: Win32/Win64 API (native code)
    Delphi
    by Luckie, 29. Jan 2003
  Nein, daran liegt es wohl nicht. ich vermute eher, dass ich mit dem Speicher Mist baue.
• Forum: Win32/Win64 API (native code)
    Delphi
    by Luckie, 29. Jan 2003
  Achso. Na dan mal los. Aber ich denke nicht, dass die Fehler die gleiche Ursache haben.
• Forum: Win32/Win64 API (native code)
    Delphi
    by Luckie, 29. Jan 2003
  Hardwarefehler? :shock:
  
  Mein Programm hat nichts mit der Hardware am Hut. Wie soll ich da was nachgehen?
• Forum: Win32/Win64 API (native code)
    Delphi
    by Luckie, 28. Jan 2003
  Den habe ich ganz übersehen:
  216: The image file %1 is valid, but is for a machine type other than the current machine.
  
  Sehr viel weiter hilft mir das aber auch nicht. Eher im Gegenteil.
  
  Und CPU-Fenster. OK, ich weiß, wie es man es auf macht und wie es aussieht, aber meine Assembler-Kenntnisse sind mehr als beschränkt.
  
  Der Benutzer wird auch richtig angelegt. Bis auf die Tatsache, dass...
• Forum: Win32/Win64 API (native code)
    Delphi
    by Luckie, 28. Jan 2003
  Gut dann hat sich das mit shl 1 geklärt.
  
  NetAPIBufferFree ist noch aus dem Copy and paste von ModifyUser übriggeblieben.
  
  Die Jedi Deklaration sieht so aus:
  
  
  PUserInfo3 = ^TUserInfo3;
  {$EXTERNALSYM _USER_INFO_3}
  _USER_INFO_3 = record
• Forum: Win32/Win64 API (native code)
    Delphi
    by Luckie, 28. Jan 2003
  Ja, steckt aber in SysUtils drin. Du verstehen? :wink:
  
  Jetzt bekomme ich aber hier einen RunTimeError:
  
  
  procedure AddUserProc(sComputer: String);
  var
  ui3 : PUSERINFO3; //Pointer;
  szBuffer : array of Char;
  s, sUser : String;
• Forum: Win32/Win64 API (native code)
    Delphi
    by Luckie, 28. Jan 2003
  Es klappt. ich mußte nur Allocmem durch GetMem ersetzen.
  
  :dancer: :dancer2: :bouncing4: :firejump: :bounce1: :bounce2: :P :) :D :hello: :witch: :love: :roteyes: :spin2: :corky: :stupid: :thuimb:
• Forum: Win32/Win64 API (native code)
    Delphi
    by Luckie, 28. Jan 2003
  Das stimmt, aber was spricht dagegen sich das von einem Freund kompilieren zu lassen, der Professional oder höher hat?
• Forum: Win32/Win64 API (native code)
    Delphi
    by Luckie, 28. Jan 2003
  @Sharky: Das kann man ja auch wenn es fertig ist.
  
  @Christian: Ja stimmt. Hast Recht.
• Forum: Win32/Win64 API (native code)
    Delphi
    by Luckie, 28. Jan 2003
  Ich werde mir dan nachher mal ankucken(, ich muß noch etwas von der Nacht nachholen. :wink:) . Wenn es bei dir klappt, aber bei mir nicht, dann war ich zu blöd es einzubauen. :roll:
  
  Stichwort Rechnername: Es geht mir erstmal nur um den lokalen Rechner. Und wenn man die NetUserxxx Funktionen mit nil als Rechnernamen aufruft, wird immer der lokale Rechner genommen. Sollte hier nicht anders...
• Forum: Win32/Win64 API (native code)
    Delphi
    by Luckie, 28. Jan 2003
  So:
  
  GetMem(lgrmi, dwEntries*sizeof(Pointer));
  for i := 0 to dwEntries-1 do
  begin
  Inc(Integer(gui0), sizeof(Pointer));
  PLocalGroupInfo0(lgrmi)^.lgrpi0_name := PWideChar(WideString(sGroupArray));
  end;
  
  dwError := NetLocalGroupAddMembers(nil, PWideChar(WideString(sUser)), 0, lgrmi, dwEntries);
• Forum: Win32/Win64 API (native code)

  Benutzer einer Gruppe zu ordnen

    Delphi
    by Luckie, 28. Jan 2003
  So es geht in die letzte Runde des User-Managers. Wenn das Problem gelöst ist. Kann ich ihn veröffentlichen bzw. als Alpha-Release zum Testen freigeben und dann das große Geld damit machen. :mrgreen:
  
  Es geht jetzt darum einem Benutzer einer Gruppe zu zuordnen. Folgender Code läßt sich prima kompilieren (beide Versionen):
  
  { 1. Version }
  {dwEntries := 0;
  if...