Как запустить DOS приложение в окне с помощью CreateProcess?

← →
lesa (2002-11-11 18:20) [0]

Как запустить 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:21) [1]

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

← →
Song (2002-11-12 13:32) [2]

А зачем нужен command.com? Без него приложение не запускается?

← →
lesa (2002-11-12 13:58) [3]

Слона то я и не заметил.
Замечательно запускается и без command.com.
Скопировал строку из прошлых проектов.
Спасибо.

Как запустить DOS приложение в окне с помощью CreateProcess? Найти похожие ветки