Патч для TApplication (помидорами не бросаться!!!) :-)))

← →
Igorek © (2004-08-20 20:19) [0]

procedure TApplication.CreateHandle; ... FHandle := CreateWindow(WindowClass.lpszClassName, PChar(FTitle), WS_POPUP or WS_CAPTION or WS_CLIPSIBLINGS or WS_SYSMENU or WS_MINIMIZEBOX, GetSystemMetrics(SM_CXSCREEN) div 2, GetSystemMetrics(SM_CYSCREEN) div 2, 0, 0, 0, 0, HInstance, nil); if FHandle = 0 then begin MessageBox(PChar("Сannot create handle"), PChar("Error"), 0); Terminate; end;
Потому что:
The CreateWindow function creates an overlapped, pop-up, or child window. It specifies the window class, window title, window

style, and (optionally) the initial position and size of the window. The function also specifies the window"s parent or

owner, if any, and the window"s menu.
...
Return Values
...
If the function fails, the return value is NULL. To get extended error information, call GetLastError.

---
Ессно надо включить папку sources/vcl в каталоги поиска в опциях проекта и сделать ребилд.
:-)

← →
Mim1 © (2004-08-20 23:59) [1]

Забей, вероятность этого мизерная.

← →
Marser © (2004-08-21 00:36) [2]

Игорь Шевченко, ау!
;-)

← →
Gero © (2004-08-21 00:42) [3]

> Забей, вероятность этого мизерная.

Мне кажется, что еще меньше.

← →
reticon © (2004-08-21 00:51) [4]

Marser © (21.08.04 00:36) [2]
подстрекатель :-)

← →
Danilka © (2004-08-21 02:20) [5]

А даже, если и не мизерная, ну увидит пользователь такую дибильную и нечего не значащую для него (и не только для него) надпись, что он сделает?

← →
False_Delirium © (2004-08-21 03:19) [6]

Igorek`а нужно пропатчить, чтобы чувство меры появилось..:)

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

MessageBox это тоже оконная функция, если не создался один хендл, то почему создастся другой? :) А если и он не создастся будем для него тоже выводить окошко, и так бесконечно. :)

The return value is zero if there is not enough memory to create the message box.

> False_Delirium © (21.08.04 03:19) [6]
> Хотя бы с пользой для пользователя реализовал свой бесполезный
> патч. А программист(на кого расчитал твой месседж бокс)
> и сам найдёт подвох, если такое будет случаться систематически.

Ну напишите там для себя "обратитесь к разработчику False_Delirium".

> Igorek`а нужно пропатчить, чтобы чувство меры появилось..:)

А ну, а ну? Что вы имеете ввиду? :-)

> Mim1 © (21.08.04 08:23) [7]
> MessageBox это тоже оконная функция, если не создался один
> хендл, то почему создастся другой? :) А если и он не создастся
> будем для него тоже выводить окошко, и так бесконечно. :)

Да, ты прав.

---
Ладно, это была шютка.

Igorek
я имел в виду, что чувство меры, при котором в каждой строке не нужно писать проверку на ошибки...а делать это только в потенциально критичных участках кода.)

Патч для TApplication (помидорами не бросаться!!!) :-))) Найти похожие ветки