DELPHI GetWindowText 获取窗口标题
//声明:
GetWindowText(
hWnd: HWND; {窗口句柄}
lpString: PChar; {接收文本的缓冲区的指针}
nMaxCount: Integer {指定缓冲区大小, 其中包含NULL字符; 如果文本超出，会被被截断}
): Integer; {返回字符个数, 不包括中断的空字符; 如果标题为空或句柄无效, 则返回零}
//举例:
var
arr: array[0..254] of Char;
begin
GetWindowText(Handle, @arr, SizeOf(arr));
ShowMessage(arr); {Form1}
end;
//标题文本个数:
var
arr: array[0..254] of Char;
num: Integer;
begin
num := GetWindowText(Handle, arr, SizeOf(arr));
ShowMessage(IntToStr(num)); {5}
end;
相关文档：
1，规范简介
本规范主要规定Delphi源程序在书写过程中所应遵循的规则及注意事项。编写该规范的目的是使公司软件开发人员的源代码书写习惯保持一致。这样做可以使每一个组员都可以理解其它组员的代码，以便于源代码的二次开发记忆系统的维护。
2，一般格式规范
2.1 缩进
缩进就是在当源程序的级改变时为增� ......
//加一下按钮，加一个对话框就OK啦
procedure TForm1.Button1Click(Sender: TObject);
var
S: String;
begin
if OpenDialog1.Execute then
begin
s := OpenDialog1.FileName;
WinExec( PChar(s), SW_NORMAL);
end;
end;
----------------------- ......
一、Dll建立
（一）DLL项目的建立
library mydll;
uses
base in 'base.pas';
exports
Triple name 'Tr';
{$R *.res}
begin
end.
（二）函数单元
unit base;
interface
uses windows;
function Triple(N:integer):integer;stdcall;
......
本书融合了在Windows下利用Delphi 7.0开发应用程序的理论和实践，全面而深入地介绍了利用Delphi 7.0开发应用程序的常用方法和技巧。内容包括用户界面设计、图形图像编程、文件管理、多媒体技术、系统控制、网络和数据库编程以及游戏制作等内容。 详细阅读突破Delphi 7.0编程实例五十讲，来自IT电子图书馆 ......
