cmd.exe - Общие вопросы Delphi

UnD)eaD)Snake · 29.09.2007, 17:40

нужно программно, скрытно от пользователя открыть cmd.exe, вписать строку, нажать ввод и закрыть cmd

Noor · 29.09.2007, 17:51

а что вводить то нужно ?

UnD)eaD)Snake · 29.09.2007, 18:32

Cacls D:\123 /D User <\tmp

Noor · 29.09.2007, 21:21

http://www.programmersforum.ru/showthread.php?t=1091
тебе нужно что то похожее на
ShellExecute(Handle, nil, 'cmd.exe', '/c '+{Путь к твоей проге}, nil, SW_SHOW);

UnD)eaD)Snake · 29.09.2007, 22:34

Работает, только там спрашивается ответить y/n т.е. "продолжить ?" как вписать в следующую строчку "y" ?

Noor · 29.09.2007, 22:57

допиши в конце эти ключи /s /q

UnD)eaD)Snake · 30.09.2007, 09:58

Цитата:

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

допиши в конце эти ключи /s /q

неработает

Noor · 30.09.2007, 11:06

что выдает ?
покажи код ....

UnD)eaD)Snake · 30.09.2007, 12:57

Так неработает:
ShellExecute(Handle, nil, 'cmd.exe', '/c '+'Cacls D:\123 /D User /s /q', nil, SW_SHOW);
Так работает, только нужно нажать Y:
ShellExecute(Handle, nil, 'cmd.exe', '/c '+'Cacls D:\123 /D User', nil, SW_SHOW);

Noor · 30.09.2007, 14:09

Даже не знаю почему оно не работает. Я вот писал скрытую очистку дискеты

ShellExecute(Handle, nil, 'cmd.exe', '/c '+'RD a: /S /Q', nil, SW_HIDE);

никаких проблем небыло !!!

29.09.2007, 17:40	#1
UnD)eaD)Snake Форумчанин Подтвердите свой е-майл Регистрация: 07.07.2007 Сообщений: 241	cmd.exe нужно программно, скрытно от пользователя открыть cmd.exe, вписать строку, нажать ввод и закрыть cmd

29.09.2007, 17:51	#2
Noor Участник клуба Регистрация: 01.11.2006 Сообщений: 1,051	а что вводить то нужно ?

29.09.2007, 18:32	#3
UnD)eaD)Snake Форумчанин Подтвердите свой е-майл Регистрация: 07.07.2007 Сообщений: 241	Cacls D:\123 /D User <\tmp

29.09.2007, 21:21	#4
Noor Участник клуба Регистрация: 01.11.2006 Сообщений: 1,051	http://www.programmersforum.ru/showthread.php?t=1091 тебе нужно что то похожее на ShellExecute(Handle, nil, 'cmd.exe', '/c '+{Путь к твоей проге}, nil, SW_SHOW);

29.09.2007, 22:34	#5
UnD)eaD)Snake Форумчанин Подтвердите свой е-майл Регистрация: 07.07.2007 Сообщений: 241	Работает, только там спрашивается ответить y/n т.е. "продолжить ?" как вписать в следующую строчку "y" ?

29.09.2007, 22:57	#6
Noor Участник клуба Регистрация: 01.11.2006 Сообщений: 1,051	допиши в конце эти ключи /s /q

30.09.2007, 11:06	#8
Noor Участник клуба Регистрация: 01.11.2006 Сообщений: 1,051	что выдает ? покажи код ....

30.09.2007, 12:57	#9
UnD)eaD)Snake Форумчанин Подтвердите свой е-майл Регистрация: 07.07.2007 Сообщений: 241	Так неработает: ShellExecute(Handle, nil, 'cmd.exe', '/c '+'Cacls D:\123 /D User /s /q', nil, SW_SHOW); Так работает, только нужно нажать Y: ShellExecute(Handle, nil, 'cmd.exe', '/c '+'Cacls D:\123 /D User', nil, SW_SHOW);

30.09.2007, 14:09	#10
Noor Участник клуба Регистрация: 01.11.2006 Сообщений: 1,051	Даже не знаю почему оно не работает. Я вот писал скрытую очистку дискеты ShellExecute(Handle, nil, 'cmd.exe', '/c '+'RD a: /S /Q', nil, SW_HIDE); никаких проблем небыло !!!