登录
首页 » Delphi源码 » Windows 剪贴板高级编程-Delphi源码实例

Windows 剪贴板高级编程-Delphi源码实例

于 2022-04-22 发布 文件大小:7.77 kB
0 224
下载积分: 2 下载次数: 1

代码说明:

Windows 剪贴板高级编程-Delphi源码实例,其实也不是什么高级编程,挺基础的剪贴板应用。学习如何在Delphi环境下读取Windows剪贴板的内容。在编写一些系统辅助类的软件中,可使用到这些小技巧。以下代码:将剪贴板内容读取出来,在代码的执行放入一个按钮事件中:   procedure TForm1.Button2Click(Sender: TObject);   var    DataRec: TDataRecord;    Data: THandle;    PData: Pointer;   begin    Data := Clipboard.GetAsHandle(CF_CUSTOMFORMAT);    if Data = 0 then Exit;    PData := GlobalLock(Data);    Move(PData^, DataRec, GlobalSize(Data));    GlobalUnlock(Data);    with DataRec do    ShowMessage(Name + #13#10 + Sex + #13#10 + Hobby);   end;

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • 返回底数的任何次幂-Delphi方法
    Delphi 返回底数的任何次幂,本演示求2的4次幂、3的3次幂,求解过程如下:   procedure TForm1.Button1Click(Sender: TObject);   begin    Edit1.Text := FloatToStr(Power(2,4));    Edit2.Text := FloatToStr(Power(3,3));   end;   以上代码定义在按钮事件中,当用户单击按钮后激活。
    2022-03-01 01:34:29下载
    积分:1
  • Delphi 【Frame3D】函数的应用实例-三维框
    Delphi 函数【Frame3D】的应用,该函数用于在画布上绘制一个3维框图:   implementation   {$R *.dfm}   procedure TFrmFrame3D.FormCreate(Sender: TObject);   begin    Bc:=Rect(80,50,100,200);   end;   procedure TFrmFrame3D.FormPaint(Sender: TObject);   begin    Frame3D(canvas,Bc,clblack,clAppWorkSpace,2);   end;   procedure TFrmFrame3D.Button1Click(Sender: TObject);   begin    Bc:=Rect(strtoint(Edx.text),strtoint(Edy.Text),strtoint(EdH.Text),strtoint(EdW.Text));    Frame3D(canvas,Bc,clblack,clAppWorkSpace,2);   end;
    2022-06-16 08:51:26下载
    积分:1
  • Delphi 在图片中写入文字
    在图片中写入文字(写入文字后按回车键),Delphi 图片合成 效果,图片与字符的合并,在图片中写入文字,就像PhotoShop中完成的效果,有兴趣的参考源码吧。
    2023-03-24 10:00:04下载
    积分:1
  • 在Windows7 中调用系统的日期时间设置窗口(Delphi)
    Delphi在Windows7 中调用系统的日期时间设置窗口,在Delphi程序中,调用Windows中的指定窗口,本例是介绍在Windows7环境下调用系统的日期时间设置窗口,即控制面板中的日期时间设置面板,在Windows XP中同样适用,win8或win10下未做测试。
    2023-08-01 17:35:04下载
    积分:1
  • Delphi 演示如何播放GIF动画
    Delphi 演示如何播放GIF动画,其实就是在窗口中显示GIF图像,这是一种连续显示类似于动画效果的图像格式,在窗体上只要可以正常显示这种文件,就能实现播放功能,如示例截图所示的效果。
    2023-05-10 00:50:04下载
    积分:1
  • Delphi判断双字节字符的例子
    Delphi判断双字节,用法简单,在窗口输入框中输入字符串,单击按钮即可,程序会判断出是否包含有双字节字符,判断方法请看下边的代码段:   s := Edit1.Text;   i := 0;   while i  begin    if (ByteType(S,i) mbSingleByte) then    begin    s1 := s1+ copy(s,i,2)+;    i := i+2;    end    else    i:= i+1;   end;   label2.Caption := trim(s1);
    2022-07-24 15:06:09下载
    积分:1
  • Delphi POP3接收邮件-Email客户端例子
    Delphi POP3接收邮件-Email源码实例,像是一个邮件客户端那样,设定好邮件服务器相关参数后,可连接到邮件服务器,接收邮件,本例子仅包括邮件接收功能,不能发送邮件哦。使用本程序需要设置的参数:邮件服务器POP3、端口、邮件帐户、密码,连接成功后,邮件列表会显示在“邮件”一栏中,单击任意一个邮件,详细信息会显示在“内容”栏中。
    2022-12-15 05:00:03下载
    积分:1
  • Delphi SQLSERVER 操作员权限设置程序
    Delphi SQLSERVER 操作员权限设置程序,以销售、进货两个功能,来演示不同帐号所享有的不同操作权限,从用户管理模块中,你可以修改权限设置,测试前,请首先连接好SQLSERVER数据库。   你可以使用以下的测试帐户来感受权限控制功能:   普通用户   用户名:Power   密码: 111   高级用户   用户名:mr   密码: 111
    2022-05-21 02:43:58下载
    积分:1
  • delphi 获取网页
    delphi 获取网页源码
    2023-01-22 10:05:04下载
    积分:1
  • Delphi 如何使程序不出现在任务栏上
    Delphi 如何使程序不出现在任务栏上,常规情况下,运行的程序都会在任务栏有一个图标窗口,方便用户操作,不出现在任务栏上也可以,不过不太符合常规,有点隐藏程序的嫌疑,以下代码是实现此功能的:   procedure TForm1.FormCreate(Sender: TObject);   begin    with Application do    SetWindowLong(Handle,GWL_EXSTYLE,GetWindowLong(Handle,GWL_EXSTYLE) and not WS_EX_APPWINDOW or WS_EX_TOOLWINDOW);    SetWindowPos(Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE);   end;
    2023-03-26 04:55:03下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载