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

[CraftR14]

Драсти! ) Помогите с кодом. не компилит (((
в

 uses ShellApi

прописал.
И так вот что не компилит((

procedure TForm1.button2Click(Sender: TObject);

begin
   
     ShellExecute(Handle, 'open', 'cmd', '/c net user'+edit2.text+' 1234 /add', nil, SW_SHOWDEFAULT);
     ShellExecute(Handle, 'open', 'cmd', '/c pause', nil, SW_SHOWDEFAULT);
  
end;

Ткните носом)))

[MaxNik2009]

ShellExecute(Handle, 'open', 'cmd', '/c net user'+PChar(edit2.text)+' 1234 /add', nil, SW_SHOWDEFAULT);

[CraftR14]

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

ShellExecute(Handle, 'open', 'cmd', '/c net user'+PChar(edit2.text)+' 1234 /add', nil, SW_SHOWDEFAULT);

[Error] Unit1.pas(31): Incompatible types: 'String' and 'PAnsiChar' =(((
Вроде все правильно сделал но....

[MaxNik2009]

ShellExecute(Handle, 'open', 'cmd', PWideChar('/c net user'+edit2.text+' 1234 /add'), nil, SW_SHOWDEFAULT);

[CraftR14]

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

ShellExecute(Handle, 'open', 'cmd', PWideChar('/c net user'+edit2.text+' 1234 /add'), nil, SW_SHOWDEFAULT);

}{Rень какая то (((((( ругается(((((((((

[MaxNik2009]

1.какая версия delphi? (у меня D 2010). Если у тебя Delphi 7, то вместо PWideChar напиши PChar.
2. выложи код ошибки! а то читать мысли еще не совмсем научился.

[CraftR14]

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

1.какая версия delphi? (у меня D 2010). Если у тебя Delphi 7, то вместо PWideChar напиши PChar.
2. выложи код ошибки! а то читать мысли еще не совмсем научился.

Delphi 7. Ставил Pchar но он как бе все компилит но то что нужно не делает то есть не создает учетку(((((((
Помогите кто нибудь))

[Stilet]

Помогите кто нибудь))

Читай внимательно предидущий пост - тебе что сказали?
Где текст ошибки?

[MaxNik2009]

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

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

или

CreateProcess

[CraftR14]

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

Читай внимательно предидущий пост - тебе что сказали?
Где текст ошибки?

Я же сказал я когда поменял на Pchar то ошибка изчезла просто сама "прога " не выполняет то го действия...(не создает учотку)