关注
分享
AttaBoy
这个作者很懒，什么都没留下…
展开
-
如何得到本机的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 · 1194 阅读 · 0 评论 -
美化你的文字
想玩点文字横向拉宽的特效吗？很简单，你不需要去计算什么 Width + 1 之类的象素值，只需调用一个 API 函数，就可以搞定！她就是——SetTextCharacterExtra() 这个函数的作用是改变字符串中各字符的间隔大小。想去开 API Viewer 了吗？且慢！API Viewer 中对此函数的声明有问题！！！怎么搞的？不知道，问微软去吧。 API Viewer原创 2001-05-30 19:39:00 · 2968 阅读 · 0 评论 -
在菜单中加入图标
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 阅读 · 0 评论 -
在状态栏中加入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 · 1048 阅读 · 0 评论 -
移动没有标题的窗体
我们一般是用鼠标按住窗口的标题栏，然后移动窗口，当窗口没有标题栏时，我们可以用下面的方法来移动窗口： 在 BAS 文件中声明：Declare Function ReleaseCapture Lib "user32" () As LongDeclare Function SendMessage Lib "user32" _Alias "SendMessageA" (原创 2000-12-10 14:07:00 · 1160 阅读 · 0 评论