Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.06.14;
Скачать: CL | DM;

Вниз

объект Edit1 и командная строка   Найти похожие ветки 

 
Demonix ©   (2005-05-31 23:47) [0]

Доброго времени суток, Мастера Дельфи

Есть объект Edit1, рядом с ним кнопочка "OK"
В поле Edit1 вводится произвольная команда которая выполняется в CMD.exe, как сделать так, чтобы само окошко cmd.exe не запускалось, а весь вывод с него выводился скажем в поле Memo1.
Только вот один аспект, поле Memo1 должно управляться кнопочкой
"Свернуть/Развернуть"
Т.е. даем команду в Edit1, жмем OK автоматически разворачивается поле Memo1, которое расширяет форму (Memo1 находится на форме) и весь вывод командной строки идет в это поле. После отработки команды, нажимаем кнопку "Свернуть/Развернуть" и Memo1 вновь исчезает, возвращая форму в исходное состояние.

Спасибо.


 
PAVIA ©   (2005-06-01 01:09) [1]

Весь код писать не буду, дам подсказку. Перенаправление ввода вывода для этого используй каналы(pipe). Для вызова CMD используй CreateProcess(nil,"cmd"{NiL},Nil,NiL,TRUE,CREATE_NEW_CONSOLE,
                    NiL,NiL,si,pin)


 
Marser ©   (2005-06-01 01:38) [2]

AllocConsole
CreateConsoleScreenBuffer
FillConsoleOutputAttribute
FillConsoleOutputCharacter
FlushConsoleInputBuffer
FreeConsole
GenerateConsoleCtrlEvent
GetConsoleCP
GetConsoleCursorInfo
GetConsoleMode
GetConsoleOutputCP
GetConsoleScreenBufferInfo
GetConsoleTitle
GetLargestConsoleWindowSize
GetNumberOfConsoleInputEvents
GetNumberOfConsoleMouseButtons
GetStdHandle
HandlerRoutine
PeekConsoleInput
ReadConsole
ReadConsoleInput
ReadConsoleOutput
ReadConsoleOutputAttribute
ReadConsoleOutputCharacter
ScrollConsoleScreenBuffer
SetConsoleActiveScreenBuffer
SetConsoleCP
SetConsoleCtrlHandler
SetConsoleCursorInfo
SetConsoleCursorPosition
SetConsoleMode
SetConsoleOutputCP
SetConsoleScreenBufferSize
SetConsoleTextAttribute
SetConsoleTitle
SetConsoleWindowInfo
SetStdHandle
WriteConsole
WriteConsoleInput
WriteConsoleOutput
WriteConsoleOutputAttribute
WriteConsoleOutputCharacter


 
Германн ©   (2005-06-01 01:54) [3]

2 Marser ©   (01.06.05 01:38) [2]
Да. Нравы меняются. Медленно, но упорно.
Раньше написали бы F1.
Или, в лучшем случае - F1 + Console Functions.

Только, имхо, эти ответы равно безполезны. А то что сабж не очень, ну так не отвечай вообще.


 
Marser ©   (2005-06-01 02:02) [4]

Да просто хотел бросить несколько Get.. и Set..., а потом решил запустить всё.
И так часто делается с ToolHelp и коммуникационным API.


 
Demonix ©   (2005-06-01 02:58) [5]

Спасибо всем, додумался :)



Страницы: 1 вся ветка

Текущий архив: 2005.06.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.053 c
11-1099342586
Yasha
2004-11-01 23:56
2005.06.14
SystemDcu Replacement For Delphi 7 system.pas not found


3-1115201790
Shaman_Naydak
2005-05-04 14:16
2005.06.14
Хозяюшке На Заметку (ХНЗ). Баг MSSQL 2000


14-1117021788
Андрей Жук
2005-05-25 15:49
2005.06.14
Вопрос по С++


1-1117510474
FANAT
2005-05-31 07:34
2005.06.14
Как удалить из txt пустую строку? Ъ


4-1114153640
needle
2005-04-22 11:07
2005.06.14
как определить более подробный тип диска