Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2008.06.22;
Скачать: [xml.tar.bz2];

Вниз

Free Pascal на Delphi -"поймать и удержать"   Найти похожие ветки 

 
programmer90   (2008-05-24 22:06) [0]

Здравствуйте уважаемые мастера. Значит я разрабатываю "Интегрированную среду Free Pascal" на Delphi , естесственно используя компилятор от Паскаля, как бы  создаю интерфейс . Согласитесь что для новичка во Free Pascal -e есть много лишнего и для не новичка тоже. Так вот используя SheelAPi прога компилирует содержание  РичЕдит-а в моей проге, вызывая Фришный компилятор.
После компиляции ест. создается  ехе-шник, потом  я его  выполняю , так вот проблема в том что он исчезает быстро, "убегает" так сказать, мне нужно его  "поймать и удержать". Так как компилятор Паскаля насколько я знаю 16-битный аппликешн, поэтому в Windows "убегает" как и все аналогичные апликешны. Сделал с помощью командоной строки но так мне не надо.. . Кстати пришлось проект создавать в РАД Студио 2007 под .NET , потому что он нормально  поддерживает языки.  Заранее всем благодарен.


 
Amoeba ©   (2008-05-25 00:27) [1]


> Значит я разрабатываю "Интегрированную среду Free Pascal"
> на Delphi

Велосипед с квадратными колесами пытаешься смастерить?


> ак как компилятор Паскаля насколько я знаю 16-битный

Это в у Turbo/Borland Pascal  он 16-разрядный. Free Pascal - 32-разрядный.


 
programmer90   (2008-05-25 00:51) [2]

>Велосипед с квадратными колесами пытаешься смастерить?
нет помоему тут колёса тут самые круглые , я спец. подчеркнул что мне надо именно поддержку языков (три языка) и интерфейс более приближенный к Виндовзу. Но хочу сразу сказать синий фон не уйдет!
Забудем про паскаль.
Речь больше не о фри паскале , а  том как через  ShellApi   реализовать вышесказанное, то есть после выполнении 16-бит , и 32-бит мс-досовской программы, окно не уходило , то есть удержать его, причем не важно что за исполняемый файл,  компилятор или еще что-нибудь.
> ак как компилятор Паскаля насколько я знаю 16-битный

Это в у Turbo/Borland Pascal  он 16-разрядный. Free Pascal - 32-разрядный.
Ну эт я конечно сгоряча. :)
Спс за ответ . Я так и думал что  сразу  велосипед вспомнят, но поверьте мне это нужно.
Разве вы не знаете Turbo Pascal на русском языке? Я более чем уверен что знаете, просто мне надо не только на русском, и не только перевод.
Да кстати если про ShellAPI есть какая-нибудь более подробная инфа чем здесь на сайте, то подскажите ссылку плиз.
Заранее спс.


 
Юрий Зотов ©   (2008-05-25 02:37) [3]

Насколько я понял, нужно "удержать" окно консоли? Я это делал так: программа создает свою консоль (AllocConsole) и уже в ней запускает другую программу (CreateProcess), как дочерний процесс с наследуемыми хэндлами всех трех стандартных потоков ввода-вывода (Get/SetStdHadle). Тогда после завершения дочернего процесса консоль остается до тех пор, пока родительский процесс не вызовет FreeConsole.


 
Amoeba ©   (2008-05-25 12:10) [4]


> 32-бит мс-досовской программы

32-битных программ под DOS не бывает. Это консольные (без GUI) приложения под Windows.


> Разве вы не знаете Turbo Pascal на русском языке?

А эта поделка откуда?


> Да кстати если про ShellAPI есть какая-нибудь более подробная
> инфа чем здесь на сайте, то подскажите ссылку плиз.

MSDN


 
programmer90   (2008-05-25 13:54) [5]


> Насколько я понял, нужно "удержать" окно консоли? Я это
> делал так: программа создает свою консоль (AllocConsole)
> и уже в ней запускает другую программу (CreateProcess),
> как дочерний процесс с наследуемыми хэндлами всех трех стандартных
> потоков ввода-вывода (Get/SetStdHadle). Тогда после завершения
> дочернего процесса консоль остается до тех пор, пока родительский
> процесс не вызовет FreeConsole.

Ага абсолютно верно , только если можно поподробнее с ссылкой на инфу плиз.


 
programmer90   (2008-05-25 14:14) [6]


> > Разве вы не знаете Turbo Pascal на русском языке? А эта
> поделка откуда?

Есть в инете  там кароче екзешку под именем turborus.exe надо в каталог проги подсунуть и всё. Просто реализаю перевода мне не понравилась. Сообщение "инвалид числовой формат" -в принципе это информативности  не добавляет :) Если интересно могу прислать на мыло тот русифицированный Турбо Паскаль.
> > 32-бит мс-досовской программы32-битных программ под DOS
> не бывает. Это консольные (без GUI) приложения под Windows.
>

Извините ошибся ,я под ночь  ещё не такое могу написать, ну понятно что 32-битный программы бывают с граф оболочкой(GUI). Когда я это писал я имел виду именно то что он может и 32 битный, но напоминает мне больше мс-досовский аппликейшн.


 
Юрий Зотов ©   (2008-05-25 14:28) [7]

> programmer90   (25.05.08 13:54) [5]

> поподробнее
> с ссылкой на инфу

Если Вы WinAPI хотя бы немного знаете, то по нижеследующим ссылкам и сами все найдете. А если нет, то слишком много писать придется, да и то без базовых знаний вряд ли поможет. Так что в любом случае начинать нужно с материала вот по этим ссылкам:

http://msdn.microsoft.com/en-us/library/ms682073(VS.85).aspx
http://msdn.microsoft.com/en-us/library/ms682425.aspx


 
programmer90   (2008-05-25 19:50) [8]

Юрий Зотов © - Благодарю-с,и не важно что  инфа на англ. Зато английский подучим хорошо :) . Только вот с WinAPI не очень-то знакомая весчь, точнее особо не увлекался. Но это поправимо.
Попытаемся "удержать" это чудо природы:)


 
Юрий Зотов ©   (2008-05-25 21:09) [9]

> programmer90   (25.05.08 19:50) [8]

Будет легче и быстрее, если CreateProcess изучать на русском, по книге Рихтера "Windows для профессионалов". В сети она есть.


 
programmer90   (2008-05-26 18:28) [10]

Юрий Зотов © - скачал,  понравилось , спасибки



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2008.06.22;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.068 c
15-1210238925
@!!ex
2008-05-08 13:28
2008.06.22
Кто не прав.


2-1211923288
Johnnnn
2008-05-28 01:21
2008.06.22
execscript как выполнить JS функцию с параметром function(this)


15-1210696367
Пробегал2...
2008-05-13 20:32
2008.06.22
"-1" vs "NOT(0)"


15-1210274134
-koha
2008-05-08 23:15
2008.06.22
Скрыть машину в локальной сети


3-1200900133
MZ
2008-01-21 10:22
2008.06.22
Тип данных в Firebird





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский