|
 |
Delphi编程基础教程：Window消息大全使用详解 |
2007-06-26 18:43:41 |
|
|
| 消息，就是指Windows发出的一个通知，告诉应用程序某个事情发生了。例如，单击鼠标、改变窗口尺寸、按下键盘上的一个键都会使Windows发送一个消息给应用程序。消息本身是作为一个记录传递给应用程序的，这个记录中包含了消息的类型以及其他信息。例如，对于单击鼠标所产 |
|
|
Delphi实现程序间的数据传递 |
2007-06-26 18:41:46 |
|
|
| 在实际应用中，我们经常需要多个程序相互配合来完成某些特定功能。例如两个应用程序间的同步、互斥；应用程序在起第二份实例时的参数自动传递。要实现这些功能，就必须能实现程序间的数据传递。 有些特殊的高级技术可在不同的程序间传递数据，如剪贴板、动态数据交换以 |
|
|
Delphi 7中快速获取本机IP地址 |
2007-06-26 18:39:41 |
|
|
| 朋友们在用Delphi编程序的时候，常常碰到需要在程序中获取自己的IP地址的情况。在以往的版本中，可以通过编写一段代码或函数实现这一功能。但有了Delphi 7，这个工作可以更简化了。利用控件只需一句代码，就可以非常方便地实现这一功能。 新建一Project1，在form1中添加 |
|
|
Delphi中如何控制Windows任务栏的显示 |
2007-05-20 17:12:26 |
|
|
| 吴淑华 为了更有效地利用显示器的空间，多数程序员都有过这样的经验，即通过Windows任务栏属性对话框，在“任务栏选项”页中将任务栏设置为“自动隐藏”，并且为了在需要任务栏时操作方便，选择任务栏“总在最前”。完成上述设置后，当程序员编辑文档或编写代码时，任 |
|
|
使系统开始按钮失效 |
2007-05-20 17:12:26 |
|
|
| procedure TForm1.Button1Click(Sender: TObject); var Rgn : hRgn; begin {Hide the start button} Rgn := CreateRectRgn(0, 0, 0, 0); SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil), Rgn, true); end; procedure TForm1.Button2C |
|
|
利用系统图象列表 |
2007-05-20 17:12:26 |
|
|
| 假如你需要存取WIN95的系统图象列表，这里给出具体方法。第一个函数将系统图象列表的索引保存到一个特殊类型的文件中： function GetFileIcoIndex(Filename:String):Integer; var Ext: String; ShFileInfo: TSHFILEINFO; begin Ext := filename; ShGetFileInfo(PChar(E |
|
|
Delphi建立键盘鼠标动作纪录与回放 |
2007-05-20 17:12:26 |
|
|
| 很多的教学软件或系统监视软件可以自动记录回放用户的输入文字或点击按钮等操作操作，这个功能的实现是使用 了Windows的Hook函数。 Windows提供API函数SetwindowsHookEx来建立一个Hook，通过这个函数可以将一个程序添加到Hook链中监视Windows 消息，函数语法为： SetWi |
|
|
如何用delphi读取网卡物理号 |
2007-05-20 17:12:25 |
|
|
| unit Main; interface uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Nb, ExtCtrls; type TForm1 = class(TForm) Panel1: TPanel; Memo1: TMemo; Panel2: TPanel; Button1: TButton; procedure Button1Click( |
|
|
避免驱动器A没有准备好错误 |
2007-05-20 17:12:25 |
|
|
| 当你的程序存取A驱动器时，可能会被'Drive Not Ready'系统错误所中断，可以使用下面的函数来测试驱动器，以避免这种情况发生，代码如下： function DiskInDrive(Drive: Char): Boolean; var ErrorMode: word; begin Drive: = UpCase(Drive); if not (Drive in ['A'..'Z |
|
|
如何获得当前系统正在运行的所有程序的名字和CLASS |
2007-05-20 17:12:25 |
|
|
| procedure TForm_main.Button1Click(Sender: TObject); var t:array [0..254] of char; Name:PChar; // 名字 i,j,L,hnow:integer;//／／ 名字的长度 pos:tpoint; begin setlength(intlist,254); i:=0; j:=0; memo1.Lines.clear; Memo1.Lines.Add('序号'+chr(9)+'句柄'+ |
|
|
用Delphi编程得到OS的类型 |
2007-05-20 17:12:25 |
|
|
| unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, CommDlg; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { P |
|
|
Delphi4开发WEBMAIL程序 |
2007-05-20 17:12:24 |
|
|
| 通常，实现WEBMAIL采用mailto.exe的CGI、在HTML文件中写入“ form action=mailto:电子邮箱地址 method=post ”语句或者调用WINDOWS API函数。采用WINDOWS API 和在HTML文件中写入“ form action=mailto:电子邮箱地址 method=post ”语句都要求用户的浏览器装入EXCHANGE |
|
|
QQ2000B刷屏机的源码(Delphi) |
2007-05-20 17:12:23 |
|
|
| -------------------Delphi版的:-------------- program chat2001; uses windows,messages,sysutils; {$R *.RES} const CRLF=#13#10; exename:pchar='刷屏机器人 2001'; var //---------------------- wClass: TWndClass; //窗口类变量 Msg: TMSG; //消息变量 hInst, / |
|
|
利用Delphi实现系统状态栏图标 |
2007-05-20 17:12:22 |
|
|
| 吴淑华 系统状态栏图标是指在Windows桌面系统下边的任务栏右边区域内显示的小图标，通常包括时间和输入法，另外，还会包括一些应用程序，如金山词霸或其它一些杀毒软件等的小图标。通常用鼠标右键点击这些小图标时会弹出菜单，通过选择这些菜单可以灵活地实现程序的各 |
|
|
Delphi中SendMessage使用技巧 |
2007-05-20 17:12:22 |
|
|
| 东南大学 梁云 Windows系统是由消息机制驱动的，每个线程如果建立了一个窗口，则由系统分配一个消息队列用于窗口消息的处理。另外，消息也可以不经过消息队列而利用SendMessage函数直接发送给窗口，窗口过程将处理这个消息，但只有当消息被处理之后，SendMessage才能返 |
|
|
|
|
|
|
|
|
|
联系电话
- :内容合作热线：0551-4211523
- :广告合作热线：0551-4211523
- :给我们提意见
|
|
|
