相关分类: Java技术 C/C++ VB delphi
  • 如何监控剪贴板

    在Form1的.h的private加上: void __fastcall ClipboardChanged(TMessage Msg); 在Form1的.h的public加上: BEGIN_MESSAGE_MAP MESSAGE_HANDLER(WM_DRAWCLIPBOARD,TMessage,ClipboardChanged) END_MESSAGE_MAP(TForm) 在Form1的.cpp内加上: void __fastcall TForm1::Cl...

    2008-02-23 05:38:50

  • WindowsNT下Service的编程

    ----此例中原程式使用Delphi编制,老妖将之改成CB版。:D ----WindowsNTServer提供多种功能强大的服务(Service),例如FTP,WWW或远程登录服务,另外常用的数据库服务器也是以Service的形式存在于NTServer上的,如Sybase SQLServer For NT。Service一般在NT启动时自动启动,...

    2008-02-23 05:38:51

  • 让程式在前端显示和最小化时在系统栏里

    程式缩成图标! /*参数说明:hWnd,不用多说了吧? uId,图标排在系统栏中的位置,设为0即可 hIcon,图标 s,鼠标移到图标上要显示的话 */ /*注意:您必须自定义一个窗口消息MYWM_ICON, #define MYWM_ICON (WM_APP 100) 在窗口循环中响应该消息: case MYWM_ICON: switch(lPa...

    2008-02-23 05:38:48

  • 在Windows桌面创建快捷方式

    ---- 老妖注:偶在Windows ADV 2000,C Builder 6.0下编译通过. :D API提供了一个叫做IShellLink的COM接口允许我们创建快捷方式。为在桌面创建快捷方式,我们创建一个IShellLink对象,配置他的属性,然后把这个link保存到desktop目录。 下面的例子代码演示了怎样创建一...

    2008-02-23 05:38:47

  • 使用Windows系统提供的IP控件

    本文是ccrun(老妖)根据偶然间看到的一篇文章略作修改而成。参考资料: 标题:在Delphi中使用IP控件 作者:西安交通大学9649# 刘明华 在些对原作者的无私奉献表示感谢!如欲转载请保留完整版权信息。 假如这篇文章侵犯了您的版权,请来信告诉我们:info@ccrun.com ccrun(...

    2008-02-23 05:38:46

  • 如何在RichEdit中实现上标下标

    近来有好多朋友问如何在RichEdit中实现上标下标,查了好多资料都没找到。今天无意间在Delphi区闲逛,看到一份实现上下标的文章,于是整理成CB语言的贴出来。 以下代码已测试通过。在Form中放置一个RichEdit,两个Button,完整代码如下: //----------------------------...

    2008-02-23 05:38:44

  • BCB中实现动态创建组件

    BCB中实现动态创建组件 ch_builder (原作) (仅供CSDN和ccrun.com使用,其他使用者请和作者联系) BCB中提供了大量的VCL组件,有时难免要在程式中动态创建组件,VCL是用Object Pascal写的,她和C 语言还是存在着一些不同点的,要掌控正确的方法,不防我们先来看一下栈(st...

    2008-02-23 05:38:43

  • 创建一个可调整大小和拖拽的Edit

    创建一个可调整大小和拖拽的Edit //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { //修改此单字符串窗口组件性质,可自由缩放大小 DWORD dwStyle = ::GetWindowLong(Ed...

    2008-02-23 05:38:40

  • 如何在Win9x/2k下建立共享目录

    在Windows中建立一个共享目录,通常是使用NetShareAdd函数.但是在Win2k和Win9x下,这个函数分别是包含在Netapi32.dll和Svrapi.dll中. 那么假如直接在程式中使用Netapi32.lib或Svrapi.lib,在不同的操作系统下运行时会发生很难找到xxx函数的输出错误. 解决的办法就是通过Ge...

    2008-02-23 05:38:42

  • 如何在快速启动栏创建快捷方式

    #define NO_WIN32_LEAN_AND_MEAN #include shlobj.hpp #include vcl.h // 以上三行放在单元文档最开始 //--------------------------------------------------------------------------- struct TShortcutCfg { // 构造函数 TShortcutCfg() { nShowCmd = SW_SHOWNORMAL...

    2008-02-23 05:38:39

2