Показать сообщение отдельно
Старый 31.03.2007, 06:09   #12
Platon
Знающий
 
Регистрация: 04.08.2006
Адрес: Россия
Сообщений: 297
Написано 39 полезных сообщений
(для 70 пользователей)
Re: резидентная программа или как?

Нет ничего невозможного
Уберает рамку и заголово и перемещает окно в позицию Px, Py
Function ModifyWindow(Px, Py)
	hWnd = SystemProperty("AppHWND")
	WINAPI_SetWindowLong(hWnd, -16, WINAPI_GetWindowLong(hWnd, -16) Xor (12582912 Or 8388608))
	WINAPI_MoveWindow(HWnd, Px, Py, GraphicsWidth(), GraphicsHeight(), 1)
End Function
можно еще убрать заголовок и рамку вот таким способом:
WINAPI_SetWindowRgn(SystemProperty("AppHWND"), WINAPI_CreateRectRgn(4, 24, GraphicsWidth() + 2, GraphicsHeight() + 22), True)
Обе функции вызывать после Graphics()

В папке userlibs надо создать текстовый файл под именем "Winapi.decls", с таким содержанием:
.lib "user32.dll"
WINAPI_MoveWindow(hWnd%, x%, y%, width%, height%, repaint%):"MoveWindow"
WINAPI_SetWindowLong%(hWnd%, nIndex%, dwNewLong%):"SetWindowLongA"
WINAPI_GetWindowLong%(hWnd%, nIndex%):"GetWindowLongA"
WINAPI_SetWindowRgn%(hWnd%, hRegion%, Redraw%):"SetWindowRgn"
.lib "gdi32.dll"
WINAPI_CreateRectRgn%(x%, y%, x2%, y2%):"CreateRectRgn"
(Offline)
 
Ответить с цитированием