- 博客(4)
- 收藏
- 关注
原创 如何得到本机的ip地址!
program get_ip;uses winsock,sysutils;VAR ch : ARRAY[1..32] OF Char; i : Integer; WSData: TWSAData; MyHost: PHostEnt;begin IF WSAstartup(2,wsdata) BEGIN Writeln(cant start Winsock: Err
2000-12-10 14:11:00
1192
原创 移动没有标题的窗体
我们一般是用鼠标按住窗口的标题栏,然后移动窗口,当窗口没有标题栏时,我们可以用下面的方法来移动窗口: 在 BAS 文件中声明:Declare Function ReleaseCapture Lib "user32" () As LongDeclare Function SendMessage Lib "user32" _Alias "SendMessageA" (
2000-12-10 14:07:00
1159
原创 在状态栏中加入BitMap
在一个AppWizard应用的状态条中加入一个新的方块,在Mainfrm.cpp中加入下列语句 //Mainfrm.cppstatic UINT indicators[] ={ ID_SEPARATOR, // status line indicator ID_INDICATOR_BITMAP, // BITMAP状态条 ID_INDICATOR_CAPS,
2000-12-10 13:51:00
1047
原创 在菜单中加入图标
API函数声明Option ExplicitPrivate Declare Function GetMenu Lib "user32"(Byval hwnd As Long) _ As Long 取得窗口的菜单句柄,hwnd是窗口的句柄 Private Declare Function GetSubMenu Lib "user32"(Byval hM
2000-12-10 13:35:00
1478
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人