функции API

Clarion, Clarion 7

Модератор: Дед Пахом

Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
Ответить
Жданкин Андрей
Новичок
Сообщения: 10
Зарегистрирован: 31 Март 2006, 7:26

функции API

Сообщение Жданкин Андрей »

Как раборают функции API FormatMessage и SetWindowPos

ErrStr &CSTRING
CODE
FormatMessage(0100H+01000H,,GetLastError(),0,ErrStr,0,)

Ничего не выдает

SetWindowPos(Window{PROP:Handle},HWND_TOPMOST,0,0,0,0,SWP_NOSIZE+SWP_NOMOVE)
Не работает под 2000 и XP
Аватара пользователя
Andrew™
SQL профи
Сообщения: 651
Зарегистрирован: 05 Июль 2005, 16:32
Откуда: Москва, Зеленоград

Re: функции API

Сообщение Andrew™ »

Жданкин Андрей писал(а):Как раборают функции API FormatMessage и SetWindowPos

ErrStr &CSTRING
CODE
FormatMessage(0100H+01000H,,GetLastError(),0,ErrStr,0,)

Ничего не выдает

Код: Выделить всё

 IF NOT FormatMessage(|
  FORMAT_MESSAGE_ALLOCATE_BUFFER  + |
   FORMAT_MESSAGE_FROM_SYSTEM  + |
    FORMAT_MESSAGE_IGNORE_INSERTS,,|
      GetLastError(),|
       SELF.Language, class_Result)
  RETURN ''
 END

 lstrcpyn(SELF.Buffer,class_Result,1024)

 LocalFree(class_Result)
                        
 RETURN SELF.Buffer
Жданкин Андрей писал(а): SetWindowPos(Window{PROP:Handle},HWND_TOPMOST,0,0,0,0,SWP_NOSIZE+SWP_NOMOVE)
Не работает под 2000 и XP
всё работает, поиграйси последним параметром

тут дело может быть в другом, не всё корректно перерисовывается,

для этих целей после вызова данной функции заюзай InvalidateRect или стопудовую RedrawWindow
Ответить