![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 14.06.2011
Сообщений: 10
|
![]()
Здравтсвуйте! Немного пишу на делфи, хочу сделать свой тестировщик олимпиадных задач. Я его только начал делать и передо мной стоит задача откомпилировать паскалевский код.
Функцией ShellExecute запускаю TPC.EXE в параметре ставлю паскалевский файл, который надо откомпилить например aplusb.pas. Все делаю по нажатии кнопки. If ShellExecute(Handle,nil,PChar(Compi ler),PChar(Filename),nil,SW_HIDE)>3 2 then sLabel2.caption:='Compile successfull' else SLabel2.Caption:='Error' компилит неплохо, но консоль открывается почему-то, хотя поидее не должна показываться на экране так как SW_HIDE блочит его. Не могу понять в чем дело. Помогите! пс. хотел сначала сделать с помощью createprocessA но функции скрыть окно не нашел... может не там искал? еще вопросик: как из консоли выцепить результаты компиляции? т.е результаты работы TPC.EXE, которые выводятся в консоль. спасибо за помошь! Последний раз редактировалось Effort; 15.06.2011 в 21:50. Причина: добавление PS |
![]() |
![]() |
![]() |
#2 |
Пользователь
Регистрация: 14.06.2011
Сообщений: 10
|
![]()
разобрался
внизу было WinExec(PAnsiChar(Zapusk),sw_restor e); забыл закомментить удалите тему =) |
![]() |
![]() |
![]() |
Опции темы | Поиск в этой теме |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
НЕ блокирует трафик | Летучий_СкилетиК | Свободное общение | 0 | 07.02.2011 18:56 |
Вывод программы нужен | Vers12344 | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 07.06.2010 23:26 |
Вирус такой, что блокирует все программы, и антивирусник в том числе | Qaliti | Безопасность, Шифрование | 24 | 03.04.2010 17:11 |
Вывод в резидентной части программы | bruk_bond | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 12 | 18.12.2009 11:29 |