登录
首页 » Delphi源码 » Delphi 监控剪贴板的文字内容

Delphi 监控剪贴板的文字内容

于 2022-01-22 发布 文件大小:5.98 kB
0 212
下载积分: 2 下载次数: 1

代码说明:

Delphi 监控剪贴板的文字内容,这个监控程序可以监控复制到剪切板的文字信息,图片暂时不能监控到,具体的监控实现如下:   NextformHwnd:HWND;//观察链中下一个窗口句柄   procedure WMDrawClipBoard(var AMessage:TMessage);message WM_DRAWCLIPBOARD;   //处理WM_DRAWCLIPBOARD消息过程    { Public declarations }   //将WM_DRAWCLIPBOARD消息传递到下一个观察链中的窗口   SendMessage(NextformHwnd,AMessage.Msg,AMessage.WParam,AMessage.LParam);   //查询剪贴板中特定格式的数据内容   if (Clipboard.HasFormat(CF_TEXT) or Clipboard.HasFormat(CF_OEMTEXT)) then   begin    //处理剪贴板中内容    memo1.Lines.Clear;    memo1.Lines.Add(Clipboard.asText);   end;

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

发表评论

0 个回复

  • 获取windows System目录路径-Delphi示例
    Delphi获取windows System目录路径,这个比较简单,觉得没啥用,只是可以练习一下GetSystemDirectory函数如何使用,下面分享出核心的代码,完整代码需要您下载哦:   begin    GetMem(SysDir,255);    GetSystemDirectory(SysDir,255);    Edit1.Text := SysDir;   end;
    2022-03-18 16:21:27下载
    积分:1
  • Delphi 播放指定avi-mid-wav文件
    Delphi 播放指定avi-mid-wav文件,这几种都是音频格式,因此这个可以说是播放音频文件的例子,控制面板中包括了常用的播放控制按钮,在此基础上,可写出一个Delphi音乐播放器,当然本源码比较早了,适合学习一些简单的Delphi音频编程技巧。   procedure TForm1.N2Click(Sender: TObject);   begin    if OpenDialog1.Execute then    begin    with MediaPlayer1 do    begin    Filename := OpenDialog1.FileName ;    Open;    DisPlayrect := Rect(1,1,Panel2.Width ,Panel2.Height );    Notify := true;    end;    end;   end;
    2023-05-08 02:15:02下载
    积分:1
  • Delphi 进程通讯的实现实例
    这是一个Delphi利用自定义消息实现的进程内部通讯的例子,附上了完整的源码,运行的效果如图所示。   本程序作者:王毅 , 陈立亮 , 刘蓉,在Windows2000环境下用Delphi6.0调试通过。   本例子中主控程序采用FindWindow()函数找寻底层工作程序,从而实现通讯。底层工作程序在调试时请先生成可执行文件,然后关闭Delphi编辑器,运行可执行文件进行调试。如果不关闭Delphi编辑器,底层工作程序窗口在处于最小化时将无法正常工作,因为FindWindow()返回的是Delphi编辑器中该窗口的句柄。
    2022-07-04 09:38:31下载
    积分:1
  • 使用Delphi 制作无闪烁的动画效果
    使用Delphi 制作无闪烁的动画效果,如何实现不闪烁的动画呢?这个例子或许能找到一些答案:部分代码如下:   var    x,i: Integer;    dir,run: Boolean;   begin    b := TBitMap.Create;    b.Width := AnimWindow.Width;    b.Height := 32;    b.Canvas.Pen.Color := clBtnFace;    b.Canvas.Brush.Color := clBtnFace;    b.Canvas.Rectangle(0,0,AnimWindow.Width,32);    run := True;    dir := False;    x := 0;    while run do    for i := 0 to AnimWindow.ImageList1.Count-1 do    begin    b.Canvas.Rectangle(0,0,AnimWindow.Width,32);    AnimWindow.ImageList1.Draw(b.Canvas,x,0,i);    Synchronize(DrawAnimPic);    Sleep(AnimWindow.SpinEdit1.Value);    if (x = 0) or (x = 300) then dir := not dir;    if dir then Inc(x) else Dec(x);    end;    b.Free;   end;
    2023-03-22 21:40:04下载
    积分:1
  • 形象的电子表-Delphi程序
    Delphi编写制作一款形象的电子表(钟表)效果,模拟时钟,界面方面做成了圆形,看不见窗口的边框,像是透明的窗口,各个指针会走动,关于各个指针的移动及计算方法,有兴趣可参考:   vh := Hour/12.0*2*Pi;   vm := Min/60.0*2*Pi;   vs := Sec/60.0*2*Pi;   with Canvas do   begin    Pen.Width:=4;    Pen.Color := clBlack;    MoveTo(60,60);    LineTo(60+Round(25*Sin(vh)),60-Round(25*Cos(vh)));    Pen.Width:=2;    Pen.Color := clBlack;    MoveTo(60,60);    LineTo(60+Round(45*Sin(vm)),60-Round(45*Cos(vm)));    Pen.Width:=1;    Pen.Color := clRed;    MoveTo(60,60);    LineTo(60+Round(55*Sin(vs)),60-Round(55*Cos(vs)));   end;   窗体方面:这个圆盘窗口要是能移动就好了,不支持右键菜单,也不能关闭,关闭窗口需要按键盘上的ALT+F4。
    2022-01-27 12:29:32下载
    积分:1
  • Delphi 简单获取Windows时间的例子
    简单获取Windows时间-Delphi源代码,改时间的小程序,在Windows自带的时间管理中也可完成系统时间的修改,这个只是一个帮助了解Windows与Delphi编程的例子,如何通过Delphi的程序来修改Windows时间,大致就是这样实现的。可参见以下源码:   procedure TForm1.Button1Click(Sender: TObject);   var    Dtimer : TSystemTime;    hh,Ghh : Integer;   begin    hh := StrToInt(Trim(Edit4.Text));    if hh < 8 then    Ghh := 16 + hh    else    Ghh := hh - 8;    with Dtimer do    begin    wYear:=StrToInt(Edit1.Text);    wMonth:=StrToInt(Edit2.Text);    wDay:=StrToInt(Edit3.Text);    wHour:=Ghh;    wMinute:=StrToInt(Edit5.Text);    wSecond:=StrToInt(Edit6.Text);    end;    SetSystemTime(Dtimer);   end;
    2022-07-09 18:55:23下载
    积分:1
  • Delphi 浏览性能数据库
    Delphi 浏览性能数据库,选择单个、本地的计数器,显示选择计数器的信息。
    2023-01-12 15:25:04下载
    积分:1
  • Delphi 将字符串中的任意字符转换成大写
    Delphi 将字符串中的任意字符转换成大写,可将给定一串字符中指定的字符转换成大写,如示例运行效果所示,将字符串中的所有l字符变成大写的L。
    2022-04-23 13:34:26下载
    积分:1
  • Delphi实现动态的窗口标题栏文字
    Delphi实现动态的窗口标题栏文字,让标题栏文字滚动,有以下动态变化形式:标题左循环,标题左右移动,停靠右端,设置移动时间间隔,每隔多少毫秒移动一个字等。可以在标题上设置一些醒目的内容,再使用本效果,吸引使用者的注意,是一种很不错的提醒方式。
    2022-01-27 16:11:55下载
    积分:1
  • Delphi控制电脑蜂鸣器或扬声器发声音
    Delphi控制电脑蜂鸣器或扬声器发声音,有些称之为喇叭,不过测试发现,这个是优先机箱蜂鸣器发出声音,或没装蜂鸣器,则会从音箱中发声音,实现的代码很简单,以下代码即可实现:   procedure TForm1.Button1Click(Sender: TObject);   var    i,j : integer;   begin    for i := 1000 to 2000 do    begin    j := i;    windows.Beep(1000,3000);    end;   end;
    2022-02-05 03:44:28下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载