1.
//
//Local External Functions或Global Variables中声明
//
Function ulong SetWindowPos(ulong hwnd,ulong hWndInsertAfter,ulong x,ulong y,ulong cx,ulong cy,ulong wFlags) LIBRARY "user32.dll"
Function ULong SetWindowLongA(Long hwnd, Long nIndex, Long dwNewLong) Library 'user32.dll'
Function ULong GetWindowLongA(Long hwnd, Long nIndex) Library 'user32.dll'
2.
//
//置顶
//
SetWindowPos(Handle(This),-1,0,0,0,0,3)
//
//无标题菜单
//
long dwStyle
dwStyle = GetWindowLongA(handle(this), -16)
dwStyle = dwStyle - 12582912
dwStyle = SetWindowLongA(handle(this), -16, dwStyle)
SetWindowPos(handle(this), -2, 0, 0, 0, 0, 39)
参考文献:http://bbs.csdn.net/topics/60386110