Delphi模拟键盘控制Caps Lock(keybd_event)
以Caps Lock键举例，其它(VK_NUMLOCK),类同：
判断状态：
方法1
Level: integer;
Level := GetKeyState(VK_CAPITAL);
if Level = 0 then
//没亮
else
//亮了(1)
方法2
KeyState : TKeyBoardState;
GetKeyboardState(KeyState);
if KeyState[VK_CAPITAL] = 0 then
//没亮
else
//亮了(1)
设置状态：
keybd_event(VK_CAPITAL, MapVirtualkey(VK_CAPITAL,0), 0, 0); //Caps Lock键按下
//如需同时按下两键，在中间加上即可
keybd_event(VK_CAPITAL, MapVirtualkey(VK_CAPITAL,0), KEYEVENTF_KEYUP, 0); //Caps Lock键松开
--------------------------------------------------------------------------------
备注：
keybd_event
函数功能：该函数合成一次击键事件。系统可使用这种合成的击键事件来产生WM_KEYUP或WM_KEYDOWN消息，键盘驱动程序的中断处理程序调用keybd_event函数。在Windows NT中该函数己被使用SendInput来替代它。
函数原型；VOID keybd_event（BYTE bVk，BYTE bScan，DWORD dwFlags，DWORD dwExtralnfo）；
参数：
bVk：定义一个虚据拟键码。键码值必须在1～254之间。
bScan:定义该键的硬件扫描码。
dwFlags:定义函数操作的名个方面的一个标志位集。应用程序可使用如下一些预定义常数的组合设置标志位。
KEYEVENTF_EXETENDEDKEY：若指定该值，则扫描码前一个值为OXEO（224）的前缀字节。KEYEVENTF_KEYUP：若指定该值，该键将被释放；若未指定该值，该键交被接下。dwExtralnfo：定义与击键相关的附加的32位值。
返回值：该函数无返回值。
备注：尽管keybd_event传递一个与OEM相关的硬件扫描码给系统，但应用程序不能用此扫描码。系统在内部将扫描码转换成虚拟键码，并且在传送给应用程序前清除键码的UP/down位。应用程序可以摸拟PRINTSCREEN键的按下来获得一个屏幕快照，并把它存放到剪切板中。若要做到这一点，则要将keybd_event的bVk参数置为VK_SNAPSHOT,bScan参数置为0（用以获得�
相关文档：
类的事件
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TMyEvent = procedure of object; //不带参数的过程
TMyEventExt = procedure(AName: string) of object; //带参数的过程
TForm1 = class(TForm)
......
查找另外一个窗口的句柄： handle := FindWindow(nil,PChar('窗口的标题'));//查到窗体句柄
查找子窗体：childHandle := FindWindowEx(handle,0,'子窗体类','子窗体标题');
另外有个枚举子窗体的API，EnumChildWindows(主创体句柄,@回调函数,用户参数);
用这个函数需要自己写一个回调的函数，比如：
function EnumChil ......
技术交流,DH讲解. 这个工具是好早好早以前写的,我这个喜欢在家边看电影边写写代码或者看电子书,所以经常会将网页移到屏幕的左上角或者右上角,而且要置顶.所以就写了这样一个工具,这个工具主要是对句柄的操作,还有就是窗体样式以及几个API的例子,比较基础. 整个文件在 here(Can't Input Chinese:() 下面把代码贴出来,希望 ......
在设计数据库应用程序的时候，经常需要将一些信息从程序中独立出来，以保证程序的可移植性。其中最重要的信息就是数据库的连接参数。
在Delphi中，获得正确的数据库连接参数的方法十分简单，你只需要建立一个数据模块，在其中添加一个ADO Connection,双击之，然后在弹出的窗口中选“Use Connection String”，单 ......
ExtractFileDrive ：返回完整文件名中的驱动器，如"C:"
ExtractFilePath：返回完整文件名中的路径，最后带“/”，如"C:\test\"
ExtractFileDir：返回完整文件名中的路径，最后不带“/” ,如"C:\test"
ExtractFileName:返回完整文件名中的文件名称 (带扩展名)，如"mytest.doc"
ExtractFileExt 返回� ......
