Отправлено: 29.01.08 13:59. Заголовок: Новая версия Расширенного релиза библиотеки MiniGUI (часть III)

Начало темы находится здесь, а теперь

АНОНС * АНОНС * АНОНС * АНОНС * АНОНС

Готовится к опубликованию новая сборка №48, которая выйдет в конце недели.
Если у Вас есть интересные наработки для включения в новый релиз, то сейчас самое удобное время для их отправки мне

Кратко, что нового:

- исправление обнаруженных ошибок и неточностей кода;
- новый класс HEADERIMAGE для Grid и Browse;
- свойство Address в Hyperlink может теперь открывать папку или файл на диске;
- добавлен NOTABSTOP класс для Browse;
- поддержка пользовательских компонентов (заимствована из оффициального релиза);
- расширения и исправления в библиотеках TsBrowse и PropGrid;
- обновлены сборки Харбор и HMGS-IDE;
- новые и обновленные старые примеры (как обычно ).

 Отправлено: 23.09.08 20:37. Заголовок: А я ошибку нашел в M..

А я ошибку нашел в MPMC, логическую

WinFolder := WinFolder + If ( Right ( WinFolder , 1 ) != '\' , '\' , '' )
EnvironmentFile := MemoRead ( WinFolder + 'mpm.ini' )

If Empty ( EnvironmentFile )
SaveEnvironment ( WinFolder )
EndIf
---------> забыли наново загрузить файл
For i := 1 To MLCount ( EnvironmentFile )

 Отправлено: 23.09.08 21:13. Заголовок: Петр пишет: я ошибк..

Петр пишет:

цитата:

я ошибку нашел в MPMC

Спасибо! По-видимому, д.б. так

цитата:

... WinFolder += If ( Right ( WinFolder , 1 ) != '\' , '\' , '' ) EnvironmentFile := MemoRead ( WinFolder + 'mpm.ini' ) If Empty ( EnvironmentFile ) SaveEnvironment ( WinFolder ) EnvironmentFile := MemoRead ( WinFolder + 'mpm.ini' ) EndIf For i := 1 To MLCount ( EnvironmentFile ) ...

 Отправлено: 23.09.08 22:16. Заголовок: gfilatov пишет: Спа..

gfilatov пишет:

цитата:

Спасибо! По-видимому, д.б. так

Угу.
И еще надо было ж додуматься проводить, чуть ли не в каждой строке проверки на вхождение "\" ! Вместо того. чтобы сделать это раз и в одном месте.

А вообще для себя я решил переписать эту утилиту - вещь довольно полезная, когда самому не хочется писать make файлы.
Вот части кода

цитата:

FUNCTION SaveWorkSpace( cFile ) LOCAL hIni := {=>}, lResult := FALSE // hIni[ "MAIN" ] := {=>} hIni[ "MAIN" ][ "BCCFOLDER" ] := "F:\BORLAND\BCC55" hIni[ "MAIN" ][ "MINIGUIFOLDER" ] := "C:\MINIGUI" hIni[ "MAIN" ][ "HARBOURFOLDER" ] := "C:\MINIGUI\HARBOUR" hIni[ "MAIN" ][ "PROGRAMEDITOR" ] := "NOTEPAD.EXE" hIni[ "DEBUG" ] := {=>} hIni[ "DEBUG" ][ "DEBUGACTIVE" ] := iif( lDebugActive, "YES", "NO" ) hIni[ "COMPILERS" ] := {=>} hIni[ "COMPILERS" ][ "CC_SUPORTED" ] := "bcc|dmc|msvc|owatcom|pocc" hIni[ "COMPILERS" ][ "HB_SUPORTED" ] := "harbour|xharbour" hIni[ "BCC" ] := {=>} hIni[ "DMC" ] := {=>} hIni[ "MSVC" ] := {=>} hIni[ "OWATCOM" ] := {=>} hIni[ "POCC" ] := {=>} ... IF hb_IniWrite( cFile, hIni, "#Generated file; don't touch", "#end of " + cFile ) lResult := TRUE ENDIF // RETURN lResult

[quote]`

цитата:

FUNCTION CheckParam( aParams ) LOCAL nLen := Len( aParams ), nIndex, nBadIndex LOCAL cValidParam := "-? -C -D -H -L /? /C /D /H /L" LOCAL cRealParam := "", cTemp LOCAL lResult := FALSE PUBLIC lDebugActive := FALSE, lCleanActive := FALSE, lShowHelp := FALSE PUBLIC lShowLogo := TRUE // IF nLen == 0 .OR. nLen > MAX_PARAM ShowUsage() ELSEIF nLen == 1 lResult := TRUE SWITCH Upper( aParams[1] ) CASE "-?" CASE "/?" CASE "-H" CASE "/H" lShowHelp := TRUE EXIT ENDSWITCH ELSE FOR nIndex := 2 TO nLen cTemp := UPPER( aParams[nIndex] ) lResult := ( cTemp $ cValidParam ) IF lResult cRealParam += cTemp ELSE nBadIndex := nIndex EXIT ENDIF NEXT IF (lResult) IF "-D" $ cRealParam lDebugActive := TRUE ELSEIF "/D" $ cRealParam lDebugActive := TRUE ENDIF ..

 Отправлено: 23.09.08 22:32. Заголовок: Т.е. поддержка неско..

Т.е. поддержка нескольких компиляторов, в идеале всех для которых реализована поддержка Harbour + MiniGUI.
Отказ от жестко зашитых алгоритмов, все данные должны находиться в ini файле - хочу использовать семейство hb_Ini* функций.

Еще какие фичи -
- возможность использования не только глобального mpm.ini, но и локальных конфигурационных файлов
- возможность указания в командной строке параметров в произвольном порядке, например
mpmc -c myprog1.mpm -ulocalini.mpm myprog2.mpm /D /tbcc
- обязательная проверка файла проекта на целосность (имеется ввиду все ли файлы, папки существуют.), странно, что этого не сделали раньше;
- работа сразу с несколькими проектами;
- возможность включения в проект не только .prg но и .c файлов.
- может еще что-то полезного вспомню - придумаю
+
к этому конвертер для переноса файлов из старого формата проекта в новый.

 Отправлено: 24.09.08 10:55. Заголовок: Петр пишет: чуть ли..

Петр пишет:

цитата:

чуть ли не в каждой строке проверки на вхождение "\" ! Вместо того. чтобы сделать это раз и в одном месте.

Так было сделано автором утилиты еще в 2003 году

Петр пишет:

цитата:

я решил переписать эту утилиту

Если у Вас будет желание, пришлите мне финальный вариант для включения в расширенный релиз библиотеки.
Сам я практически не использую консольный вариант, поскольку есть графический MPM, переписанный практически с нуля Кевином Кармоди

 Отправлено: 26.09.08 01:16. Заголовок: Скачал версию : Har..

Скачал версию : Harbour MiniGUI 1.5 Extended Edition (Build 56) - 2008.09.09
При установке антивирус Avast! версия 4.8 Home Edition VPS 080925-0, 25.09.2008
выдает сообщение о трояне C:\MiniGUI\SAMPLES\Applications\FREE_MEMORY\Memory.exe
Троян: Win32:Oliga [Trj]
Так вопрос: это глюк антивируса или на самом деле там троян сидит ?
у кого-нибудь что-то похожее было ?
EXE-шник я , конечно, удалил и перекомпилировал пример заново
но все-таки любопытно

 Отправлено: 26.09.08 10:48. Заголовок: Andrey_IV пишет: вы..

Andrey_IV пишет:

цитата:

выдает сообщение о трояне C:\MiniGUI\SAMPLES\Applications\FREE_MEMORY\Memory.exe

Нет там никакого трояна!
Проверено DrWeb и антивирусом Касперского, которым я доверяю

 Отправлено: 29.09.08 23:59. Заголовок: к вопросу о "пол..

к вопросу о "пользующихся" компилятором/библиотекой (извиняюсь, не мог отозваться раньше):

Сам пользуюсь все более активно (в конторе достаточно старых задачек, которые намного проще "чуть подлудить", переводя с Клиппера на Харбор, а в некоторых случаях, оставив "математику", прилепить ГУИ - чем делать с ноля на чем-то "вижуалистом") - и наши "тетки" все более завистливо поглядывают в мою сторону :)

Также нашим сидящим в области в больницах программерам "показал пальцем" на это дело (а у многих тоже достаточно самописных "приблуд", связанных с возней с ДБФками и писаных на Фокспре-Клиппере, которые тоже неохота "с ноля" перерисовывать) - и человек 8-10 (как минимум) сказали "Опа! Интересно, интересно... тээкс... пошел разбираться - это практически то, что мне и надо" :)

В школе у дочки (как-то писал про их "информатичку") эта "информатичка" тоже звонила про то, что "разбирается" и "вот если б еще русскую доку..." - а так тоже была сильно порадована количеству и разноообразию примеров, да и простоте (если не сказать - изяществу) решения многих вопросов (особо впечатлил "практически Total Commander с величиной исходника в 60 кбайт!.." - FileMan Григория).

Так что "совращение" идет :)

 Отправлено: 30.09.08 10:44. Заголовок: Здравствуйте, Григор..

Здравствуйте, Григорий,

Такой вопрос, создается окно в IDE:

Function Main

Load Window Test
Center Window Test
Activate Window Test

Return

Function MyTest()
MsgBox(Str(Test:Width))
Return 1

На вызов MyTest() выдает:

Variable does not exist: TEST

Собственно, а как обращаться то к окну? И второе, как получить его Handle?

Спасибо.

Спирин Сергей.

 Отправлено: 30.09.08 11:17. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

а как обращаться то к окну?

Sergey Spirin
В библиотеке MiniGUI принята VB-подобная нотация (для разделения объектов используется точка):

Test.Width

Sergey Spirin пишет:

цитата:

как получить его Handle?

Надо воспользоваться такой функцией:

GetFormHandle ('Test')

 Отправлено: 30.09.08 11:43. Заголовок: Опубликован 57-й релиз Расширенной версии библиотеки MiniGUI

Новый релиз библиотеки выложил по адресу:

http://minigui.mylivepage.ru/file/?fileid=6019

а также, как обычно, на сервере http://hmgextended.com по адресу:

http://hmgextended.com/files/CONTRIB/hmg-1.5-57-setup.zip

Что нового:

- исправление обнаруженных ошибок и неточностей кода;
- новый класс PALETTE в команде DEFINE WINDOW;
- поправлен Си-код для успешной сборки библиотеки под бесплатными компиляторами BCC 5.82 и Pelles C 4.50
- синхронизация с изменениями в официальной версии HMG выпусков 2.6.5-2.6.6;
- исправления в библиотеке PropertySheet;
- обновлены сборки Харбора (до версии 1.0.1 final) и HMGS-IDE;
- новые и обновленные старые примеры (как обычно ).

Большое спасибо всем откликнувшимся на мой призыв!
Желаю удачи в программировании!

 Отправлено: 01.10.08 10:53. Заголовок: gfilatov пишет: Над..

gfilatov пишет:

цитата:

Надо воспользоваться такой функцией: GetFormHandle ('Test')

Ok. Спасибо.

Следующий вопрос, похоже окна в MiniGUI в разных ситуациях перехватывают нажатия Enter и Escape, и потом уже решают, что с ними делать, можно ли регулировать эту ситуацию? Объясню, что я делаю.

Я сел, наконец, за давнишний свой "должок" в Фасте - множественный предпросмотр. В том числе, рассматриваю возможность встраиваемого предпросмотра в юзерское окно. С консольным приложением это проблематично из-за специфики консоли, решил делать только для GUI. Для тестов и дальнейшей демки выбор пал, конечно, на MiniGUI

Встраивая предпросмотр, подумал, почему бы не встроить, например, Grid, да и другое, уже не в контексте Фата. Просто, можно сделать хорошие компоненты для MiniGIU .

Сделал набросок для грида:

http://www.paritetsoft.ru/downloads/TMP_PICT/GRID.zip

Это тест, в начале нажать - File-Open. Лучше смотреть на Win2000 и выше.

Проблема пока только с "непонятным" поведением Enter-Escape.

Такая вот идея, в принципе можно ее реализовать.

 Отправлено: 02.10.08 00:05. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

Проблема пока только с "непонятным" поведением Enter-Escape

Проверил с просто окнами. При немодальном окне та же проблема. Enter-Escape окно не получает, вся остальная клавиатура и мышка без проблем. Проблемы нет только в модальном режиме, но это и понятно, в модальности вся диспетчеризация производится только дельфийским кодом...

Григорий, есть ли какие-то мысли по этому поводу?

 Отправлено: 02.10.08 00:48. Заголовок: Сделал то же самое п..

Сделал то же самое под Xailer. Enter-Escape работают....

Очевидно, что где-то в коде MiniGUI мессаги глушатся.

 Отправлено: 03.10.08 02:11. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

Очевидно, что где-то в коде MiniGUI мессаги глушатся.

Пришлось немного поизучать исходники MiniGUI. Собственно, мест, связанных с диспетчеризацией сообщений, как и следовало ожидать, немного. Но именно в них и кроется причина столь несовместимого со стандартом WinAPI поведения.

Модуль c_windows.c:

 
 if( !IsWindow(GetActiveWindow()) || !IsDialogMessage(GetActiveWindow(), &Msg) ) 
          { 
             TranslateMessage( &Msg );  
             DispatchMessage( &Msg );   
          } 
 

??? Это относится, естественно, к условию под if:

if( !IsWindow(GetActiveWindow()) || !IsDialogMessage(GetActiveWindow(), &Msg) )

Во-первых, левая часть - это, практически, гарантированный False. Как может быть handle "просроченным", если он получен здесь и сейчас? В этом можно убедиться, если отбросить правую часть. Любой пример придется снимать диспетчером задач.

Фактически, все идет через правую часть, где и содержится "засада".

В большинстве случаев IsDialogMessage просто вернет False и мы уходим на диспетчеризацию. Вообще говоря IsDialogMessage используется ТОЛЬКО для WinAPI-диалогов FileOpen, FileClose и т.п. Но в MSDN упомянуто, что может работать и с обычными окнами, в этом и засада. Дочерние окна эта функция начинает воспринимать как "свой" диалог, а для диалога Enter-Escape это и есть DialogMessages Производится "особенная" обработка с посылкой DM_GETDEFID and DM_SETDEFID messages и т.д.

Резюм. Все это условие (if( !IsWindow(GetActiveWindow()) || !IsDialogMessage(GetActiveWindow(), &Msg) )
) необходимо выкидывать. Левое безболезненно. Правое, практически, тоже, но:

IsDialogMessage надо бы использовать, но ТОЛЬКО в случае, если активное окно РЕАЛЬНО является WinApi-диалогом. Так, например, делается в Delphi (эти диалоги "пасутся" объектом Application).

Григорий, жду от вас какой-то реакции, да и вообще, хотелось бы об этом поговорить с Вами поподробнее.

 Отправлено: 03.10.08 13:09. Заголовок: Sergey Spirin пишет:..

Sergey Spirin пишет:

цитата:

Все это условие (if( !IsWindow(GetActiveWindow()) || !IsDialogMessage(GetActiveWindow(), &Msg) ) ) необходимо выкидывать.

Т.е. записать так:

цитата:

HB_FUNC( _DOMESSAGELOOP ) { MSG Msg; while( GetMessage(&Msg, NULL, 0, 0) ) { TranslateMessage( &Msg ); DispatchMessage( &Msg ); } return; }

Sergey Spirin пишет:

цитата:

IsDialogMessage надо бы использовать, но ТОЛЬКО в случае, если активное окно РЕАЛЬНО является WinApi-диалогом

Как именно это можно сделать - т.е. определить, что активное окно РЕАЛЬНО является WinApi-диалогом?
Каково Ваше предложение применительно к MiniGUI?

Sergey Spirin пишет:

цитата:

хотелось бы об этом поговорить с Вами поподробнее

Мой почтовый адрес Вам известен

 Отправлено: 03.10.08 17:30. Заголовок: Опубликован релиз 57а

Новый релиз библиотеки выложил по адресу:

http://minigui.mylivepage.ru/file/?fileid=6025

а также, как обычно, на сервере http://hmgextended.com по адресу:

http://hmgextended.com/files/CONTRIB/hmg-1.5-57a-setup.zip

Что нового:

- исправление ошибок, связанных с изменениями в псевдо-ООП коде, которые были внесены в 57-й сборке.

Жду Ваших замечаний

 Отправлено: 03.10.08 19:53. Заголовок: gfilatov пишет: Т.е..

gfilatov пишет:

цитата:

Т.е. записать так: цитата: HB_FUNC( _DOMESSAGELOOP ) { MSG Msg; while( GetMessage(&Msg, NULL, 0, 0) ) { TranslateMessage( &Msg ); DispatchMessage( &Msg ); } return; }

Да. Думаю, что с вероятностью 99,9999% это ничем не грозит. Оставшаяся доля - это оставшееся на диалоги. WinApi - диалоги - это диалоги созданные функциями типа CreateDialog(), CreateDialogIndirect() и т.п. По большому счету эти функции остались для совместимоcти еще со времен Win 2.00-3.11. Сегодня мало кто будет разрабатывать форму в редакторе ресурсов, а именно этого эти фунуции требуют. Традиционно FileOpen, FileSave - диалоги такого типа, но они модальные, то есть проблемы здесь нет.

Единственная проблемка - это создание пользовательского немодального диалога с юзерскими кнопками. MiniGUI позволяет создавать эти диалоги (c_dialog.c и h_dialog.prg). На prg уровне функция _DefineDialog(). Однако, естественно, нигде более это не используется вообще. Ни в исходниках, ни в примерах.

Определить "в лоб" что это диалог такого типа увы нельзя. Дельфи, например для этого использует такой прием:

 
 function TApplication.IsDlgMsg(var Msg: TMsg): Boolean; 
 begin 
   Result := False; 
   if FDialogHandle <> 0 then 
     Result := IsDialogMessage(FDialogHandle, Msg); 
 end; 
 

Установка же значения FDialogHandle производится в хуке этого диалога:

function FindReplaceWndProc(Wnd: HWND; Msg, WParam, LParam: Longint): Longint; stdcall; 
  
   function CallDefWndProc: Longint; 
   begin 
     Result := CallWindowProc(Pointer(GetProp(Wnd, 
       MakeIntAtom(WndProcPtrAtom))), Wnd, Msg, WParam, LParam); 
   end; 
  
 begin 
   case Msg of 
     WM_DESTROY: 
       if Application.DialogHandle = Wnd then Application.DialogHandle := 0; 
     WM_NCACTIVATE: 
       if WParam <> 0 then 
       begin 
         if Application.DialogHandle = 0 then Application.DialogHandle := Wnd; 
       end else 
       begin 
         if Application.DialogHandle = Wnd then Application.DialogHandle := 0; 
       end; 
     WM_NCDESTROY: 
       begin 
         Result := CallDefWndProc; 
         RemoveProp(Wnd, MakeIntAtom(WndProcPtrAtom)); 
         Exit; 
       end; 
    end; 
    Result := CallDefWndProc; 
 end;

Я вот думаю, стоит ли "заморачиваться" и делать что-то аналогичноe, или просто "забить", так как по-большому счету не нужно....

Аналог хука у вас - это DialogProc() вызываемый из HMG_DlgProc()


gfilatov пишет:

цитата:

Мой почтовый адрес Вам известен

Ok. Про "компонентyю" идею напишу мылом.

 Отправлено: 05.10.08 21:29. Заголовок: gfilatov пишет: Сам..

gfilatov пишет:

цитата:

Сам я практически не использую консольный вариант, поскольку есть графический MPM, переписанный практически с нуля Кевином Кармоди

mpmbuild C-версия

#include <windows.h> 
  
 #if !defined( INVALID_FILE_ATTRIBUTES ) 
    #define INVALID_FILE_ATTRIBUTES     ( ( DWORD ) -1 ) 
 #endif 
 #if !defined( FILE_ATTRIBUTE_DEVICE ) 
    #define FILE_ATTRIBUTE_DEVICE       0x00000040 
 #endif 
  
 char * _getenv( const char * ); 
 char * xstrcpy( char *, const char *, ... ); 
 BOOL   fsFileExists( const char * ); 
 BOOL   strEmpty( const char *, DWORD ); 
 int        WaitRun( char *, WORD ); 
  
 #define MPMB_NOLOCFILE    -101 
 #define MPMB_NOLOCREAD    -102 
 #define MPMB_NOBUILDFILE  -103 
  
 int PASCAL WinMain( HINSTANCE inst, HINSTANCE previnst, LPSTR cmdline, 
                     int cmdshow ) 
 { 
    DWORD dwResult; 
    char * szTmpFolder = _getenv( (const char*) "TEMP" ); 
    char * szLocFile; 
    HANDLE handle; 
    DWORD dwSize, dwNumberOfBytesRead; 
    char cBuildFile[MAX_PATH] = {0}; 
  
    szLocFile = xstrcpy( NULL, szTmpFolder, (const char*) "\\", (const char*) "_MpmBuild.txt", NULL ); 
  
    if( !fsFileExists( szLocFile ) )  
    { 
       dwResult = MPMB_NOLOCFILE; 
       goto end; 
    } 
  
    handle = CreateFile( szLocFile, GENERIC_READ, FILE_SHARE_READ, NULL, OPEN_EXISTING,  (DWORD) NULL, NULL ); 
  
    if ( handle == 0 ) 
    { 
       dwResult = MPMB_NOLOCREAD; 
       goto end; 
    } 
     
    dwSize = GetFileSize( handle, NULL ); 
    if ( dwSize == 0xFFFFFFFF ) 
    { 
       dwResult = MPMB_NOLOCREAD; 
       CloseHandle( handle ); 
       goto end; 
    } 
  
    ReadFile( handle, cBuildFile, ( dwSize <= MAX_PATH ) ? dwSize : MAX_PATH, &dwNumberOfBytesRead, NULL );	 
    CloseHandle( handle ); 
   
    if ( strEmpty( cBuildFile, dwNumberOfBytesRead ) ) 
    { 
       dwResult = MPMB_NOLOCREAD; 
       goto end; 
    } 
  
    if( !fsFileExists( cBuildFile ) )  
    { 
       dwResult = MPMB_NOBUILDFILE; 
       goto end; 
    } 
  
    DeleteFile( szLocFile ); 
  
    dwResult = WaitRun( cBuildFile, 0 ); 
  
 end: 
    if ( szTmpFolder ) free( (void *) szTmpFolder ); 
    if ( szLocFile   ) free( (void *) szLocFile ); 
  
    return dwResult; 
 } 
  
 /* 
 */ 
 char * _getenv( const char * pszName ) 
 { 
    DWORD size = GetEnvironmentVariableA( pszName, NULL, 0 ); 
    char * pszBuffer = NULL; 
  
    if( size != 0 ) 
    { 
       pszBuffer = (char *) malloc( size ); 
       GetEnvironmentVariableA( pszName, pszBuffer, size ); 
    } 
  
    return pszBuffer; 
 } 
  
 /* 
 */ 
 BOOL fsFileExists( const char * szFileName ) 
 { 
    DWORD dwAttr; 
    BOOL  bExist; 
  
    dwAttr = GetFileAttributesA( szFileName ); 
  
    bExist = ( dwAttr != INVALID_FILE_ATTRIBUTES ) && 
             ( dwAttr & ( FILE_ATTRIBUTE_DIRECTORY | 
                          FILE_ATTRIBUTE_DEVICE ) ) == 0; 
    return bExist; 
 } 
  
 /* 
 */ 
 BOOL strEmpty( const char * szText, ULONG ulLen ) 
 { 
    while( ulLen-- ) 
    { 
       char c = szText[ ulLen ]; 
  
       if( !isspace(c) ) 
          return FALSE; 
    } 
  
    return TRUE; 
 } 
  
 /* 
 */ 
 char * xstrcpy( char * szDest, const char * szSrc, ... ) 
 { 
    char * szResult; 
    va_list va; 
  
    if( szDest == NULL ) 
    { 
       const char * szSrcPtr = szSrc; 
       ULONG ulSize = 1; 
       va_start( va, szSrc ); 
       while( szSrcPtr ) 
       { 
          ulSize += strlen( szSrcPtr ); 
          szSrcPtr = va_arg( va, char * ); 
       } 
       va_end( va ); 
       szDest = ( char * ) malloc ( ulSize ); 
    } 
    szResult = szDest; 
  
    va_start( va, szSrc ); 
    while( szSrc ) 
    { 
       while( *szSrc ) 
          *szDest++ = *szSrc++; 
       szSrc = va_arg( va, char * ); 
    } 
    *szDest = '\0'; 
    va_end( va ); 
  
    return szResult; 
 } 
  
 /* 
 */ 
 int    WaitRun( char * cFile, WORD wShow ) 
 { 
    DWORD               dwExitCode; 
    STARTUPINFO         stInfo = {0}; 
    PROCESS_INFORMATION prInfo; 
    BOOL                bResult; 
  
    stInfo.cb = sizeof( stInfo ); 
    stInfo.dwFlags = STARTF_USESHOWWINDOW; 
    stInfo.wShowWindow = wShow; 
  
    bResult = CreateProcess( NULL, cFile, NULL, NULL, TRUE, CREATE_NEW_CONSOLE | NORMAL_PRIORITY_CLASS, NULL, NULL, &stInfo, &prInfo ); 
    if( !bResult ) 
       return (DWORD) -1L; 
  
    WaitForSingleObject( prInfo.hProcess, INFINITE ); 
    GetExitCodeProcess( prInfo.hProcess, &dwExitCode ); 
  
    CloseHandle( prInfo.hThread ); 
    CloseHandle( prInfo.hProcess ); 
  
    return dwExitCode; 
 } 
 

 Отправлено: 05.10.08 21:44. Заголовок: Компилируем bcc32 -..

Компилируем

цитата:

bcc32 -5 -6 -G -tW -tWR -q -w-8057 mpmbuild.c -laa -lGn -lTpe -q -lx

Размер бинарника

 
 при использовании bcc32 (5.5.1)         8192 bytes 
 при использовании msvc (13.10.3077) 5120 bytes 
 оригинальная версия bcc32 (5.5.1)      993 Kb