![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как запустить досовское приложение в полноэкранном режиме.
Kviz © (2003-07-13 15:19:00)
Здравствуйте, дамы и господа.
Как запустить досовское приложение в полноэкранном режиме. Думал что так можно, но! WinExec("C:\dis\1.exe",
SW_SHOWMAXIMIZED);
Может его нужно запустить с параметром.
Kviz (2003-07-14 17:44:00) [1]
Невмоготу :(
Marser (2003-07-14 01:15:00) [2]
Английский F1 совсем невмоготу чтоли?
Kviz (2003-07-13 23:46:00) [3]
Вот ответ, теперь пожалуйста кто-нибудь объясните что я сделал, и где
можно, кроме Рихтера, почитать параметры функции на русском и
желательно с разбором для Delphi, на крайняк можно C.
procedure TForm1.Button1Click(Sender: TObject);
var
StartInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
begin
ZeroMemory(@StartInfo, SizeOf(StartInfo));
StartInfo.cb := SizeOf(StartInfo);
if CreateProcess(nil, PChar("c:\bp\bin\bp.exe"), nil, nil, False, 0, nil, nil, StartInfo, ProcessInfo) then ;
end;
Большое спасибо Song.
Song (2003-07-13 21:31:00) [4]
См. CreateProcess()