Создание учётной записи

[CraftR14]

Сообщение от MaxNik2009

пробуй "дедовским" способом

WinExec(PChar('/c net user'+edit2.text+' 1234 /add'), sw_showNormal);

или

CreateProcess

Короч хз что делать))
посмотри те мож где то в другом месте ошибка? )

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShellAPI, StdCtrls,;

type
  TForm1 = class(TForm)
    button2: TButton;
    edit2: TEdit;
    procedure button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.button2Click(Sender: TObject);
begin
       //ShellExecute(Handle, 'open', 'cmd', PChar('/c net user'+edit2.text+' 1234 /add'), nil, SW_SHOWDEFAULT);
    WinExec(PChar('/c net user'+edit2.text+' 1234 /add'), sw_showNormal);
   
      end;

end.

[MaxNik2009]

WinExec(PChar('net user {тут пробел забыл}'+edit2.text+' 1234 /add'), sw_showNormal);// подправил должно работать

[CraftR14]

Сообщение от MaxNik2009

WinExec(PChar('net user {тут пробел забыл}'+edit2.text+' 1234 /add'), sw_showNormal);// подправил должно работать

Goood )) спасибо тебе! )

Весы не забуду нажать не беспокойся))