Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Выполнение команды через shellexecute [D7, Win2k, WinXP]


Mir ©   (2006-06-23 08:08:00) 

есть стандартная команда "net user loginname {password} /add", которая добавляет пользователя в ОС - нужно ее выполнить и получить результат выполнения команды.  Пробывал через shellexecute - выдает ошибку номер 2.
код:
shellexecute(0,pchar(''),Pchar('net user loginname {password}'),Pchar('/add'),Pchar(''),sh_show).


Fay   (2006-06-25 04:37:00) [1]

NetUserAdd


Dstr   (2006-06-23 09:39:00) [2]

Гыгы,если бы все так отвечали на свои вопросы(включая меня)...


Mir   (2006-06-23 08:33:00) [3]

Все заработало :) Ошибка была в другом.


Mir   (2006-06-23 08:30:00) [4]

Тут меня осинило:
ShellExecute(0,   Pchar('Open'),Pchar('net.exe'),   Pchar('user loginname {password} /add'),   Pchar('C:\Windows'),SW_SHOWNORMAL);
Возращает значение 42, но команда не выполнилась :(

Что нужно указать в 4 параметре?


Mir   (2006-06-23 08:20:00) [5]

Код ошибки обозначает - файл не найден - возможно нужно сделать аналогично  приведенного ниже кода:
"ShellExecute(Application.Handle,   Pchar('Open'),Pchar('C:\Windows\Rundll32.exe'),   Pchar('krnl386.exe,exitkernel'),   Pchar('C:\Windows'),SW_SHOWNORMAL);"  Но какие должны быть 2,3,4 параметры?


Наверх

Титульная страница Поиск, карта сайта Написать письмо