Delphi 获取句柄 sendmessage
查找另外一个窗口的句柄： handle := FindWindow(nil,PChar('窗口的标题'));//查到窗体句柄
查找子窗体：childHandle := FindWindowEx(handle,0,'子窗体类','子窗体标题');
另外有个枚举子窗体的API，EnumChildWindows(主创体句柄,@回调函数,用户参数);
用这个函数需要自己写一个回调的函数，比如：
function EnumChildProc(ahWND:HWND; param:LPARAM):boolean; stdcall;
sendmessage(handle,message,wl,rl)
unit Unit1;
interface
uses Windows, Messages,Tlhelp32, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
var a,b:PAnsiChar;
h:HWND;
begin
h:= FindWindow(nil,'abc.txt -
相关文档：
方法一：
直接弹出UDL对话框:
use
ADOConed;
EditConnectionString(ADOQuery1);
方法二：
⑴、右键---新建---文本文档，重命名为 connSet.udl 。
⑵、双击打开 connSet.udl 按提示操作配置数据库，选择本地或远程数据库，配置好后退出。
⑶、使用Delphi 控件TADOConnection连接代码：
在Form ......
一、 网络布局
一台中心SQL服务器（简称：中心服务器），多台分布在不同地域的SQL服务器（简称：本地服务器），各个本地服务器和中心服务器都能通过internet实现网络互连。
二、所用语言及数据库：Delphi +Sql
二、 通信要求
每台本地服务� ......
名称 类型 说明
--------------------------------------------------------- ......
技术交流,DH讲解. 最近和肥鸟交流了下关于字符串方面的知识,而这篇文章是很久以前写的,现在发出来吧. 我们写两段代码来对比下:
第一个用Copy函数:
procedure TForm1.Button1Click(Sender: TObject);
var
a,c:Cardinal;
n:Integer;
D:Double;
i:Integer;
b:string;
begin
c:=0; ......
1、先用Const 定义一个常量，例如 const WM_MyMessage=WM_USER+$200;
2、在要实现的unit中定义一个私有方法
procedure doMyMessage(var msg:TMessage);message WM_MyMessage;
3、实现这个私有方法
procedure TForm1.doMyMessage(var msg:TMessage);
begin
//
if msg. ......
