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

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

эмулятор командной строки

forex ©   (2007-01-05 12:54:00) 

Уважаемые форумчане помогите мне!
Нужно написать прогу, которая бы являлась
эмулятором командной строки.
Тоесть, например, я в коде программы пишу строку "calc" и запускается калькулятор.

---

forex   (2007-01-05 13:58:00) [1]

Спасибо за помощь!

---

SergGG   (2007-01-05 13:36:00) [2]

работает на 100%


function CMDLines(cmdL:PChar):BOOL;
var  pi:PROCESS_INFORMATION;
 si:STARTUPINFO;
begin
 FillChar(si, Sizeof(si), #0);
 si.cb := Sizeof(StartupInfo);
 si.dwFlags := STARTF_USESHOWWINDOW;
 si.wShowWindow := SW_NORMAL;
 Result:=CreateProcess(nil,cmdL,nil,nil,true,CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,nil,nil,si,pi);
end;


---

Anatoly Podgoretsky   (2007-01-05 13:27:00) [3]

> forex  (05.01.2007 13:23:03)  [3]

0

---

forex   (2007-01-05 13:23:00) [4]

Делаю:

program1;
usesshellapi;
begin
ShellExecute(?,'calc.exe');
end.

Вместо знака вопроса что нужно вставить?

---

Anatoly Podgoretsky   (2007-01-05 13:10:00) [5]

> forex  (05.01.2007 12:54:00)  [0]

ShellExecute

---

Правильный Вася   (2007-01-05 13:08:00) [6]

ShellExecute( 'cmd.exe'

---

Наверх