| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как запустить DOS приложение в окне с помощью CreateProcess?
lesa © (2002-11-11 18:20:00)Как запустить DOS приложение в окне с помощью CreateProcess?
Причем без эффекта мигания (сначала приложение запускается на
весь экран,и лишь потом сворачивается в нужное окно).
Какие параметры еще надо задать?
Одинаково ли это будет работать под WIN95 и под WIN NT?
procedure dosapp(name_app:string);
var
si:Tstartupinfo;
p:Tprocessinformation;
begin
FillChar( Si, SizeOf( Si ) , 0 );
with Si do
begin
cb := SizeOf( Si);
dwFlags := startf_useshowwindow or startf_UsecountChars;
dwXCountchars:=80;
dwYCountchars:=25;
wShowWindow := SW_shownormal;
end;
Createprocess(nil,pchar("command.com /c "+name_app),nil,nil,False,create_default_error_mode,nil,nil,si,p);
Waitforsingleobject(p.hProcess,infinite);
end;
lesa (2002-11-12 13:58:00) [1]Слона то я и не заметил.
Замечательно запускается и без command.com.
Скопировал строку из прошлых проектов.
Спасибо.
Song (2002-11-12 13:32:00) [2]А зачем нужен command.com? Без него приложение не запускается?
lesa (2002-11-12 13:21:00) [3]Хотя бы обругали,что ли за очевидность вопроса.
А может все-таки кто нибудь ответит.
| |
