自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(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 1087

原创 移动没有标题的窗体

    我们一般是用鼠标按住窗口的标题栏,然后移动窗口,当窗口没有标题栏时,我们可以用下面的方法来移动窗口: 在 BAS 文件中声明:Declare Function ReleaseCapture Lib "user32" () As LongDeclare Function SendMessage Lib "user32" _Alias "SendMessageA" (

2000-12-10 14:07:00 1086

原创 在状态栏中加入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 977

原创 在菜单中加入图标

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 1378

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除