//声明:
GetClassName(
hWnd: HWND; {指定窗口句柄}
lpClassName: PChar; {缓冲区}
nMaxCount: Integer {缓冲区大小}
): Integer; {返回类名大小; 失败返回 0}
//测试1: 新建一个工程, 主窗口的类名默认是 TForm1, 用程序获取一下看看
var
ps: array[0..254] of Char;
begin
GetClassName(Handle, ps, 255);
ShowMessage(ps); {TForm1}
end;
//测试2: 看看 "计算器" 窗口的类名(先启动计算器)
var
h: HWND;
ps: array[0..254] of Char;
begin
h := FindWindow(nil, '计算器'); {这句是获取计算器窗口的句柄}
GetClassName(h, ps, 255);
ShowMessage(ps); {SciCalc}
end;
//测试3: 看看记事本窗口的类名(先重新启动记事本):
var
h: HWND;
ps: array[0..254] of Char;
begin
h := FindWindow(nil, '无标题 - 记事本'); {这句是获取记事本窗口的句柄}
GetClassName(h, ps, 255);
ShowMessage(ps); {Notepad}
end; ......
//声明:
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; ......
▼▲Delphi面向对象编程的20条规则(转载)
楼主ZyxIp（绝望中...）2003-09-02 14:28:07 在 Delphi / VCL组件开发及应用 提问
作者简介
Marco Cantu是一个知名的Delphi专家，他曾出版过《精通Delphi》系列丛书，《Delphi开发手册》以及电子书《精通Pascal》(该电子书可在网上免费获得)。他讲授的课题是Delphi基础和高级开发技巧。你可以通过他的网站（www.marcocantu.com）获得更多关于他的信息，你也可以他的公共新闻组和他联系，详情请参见他的网站。
前言
大多数Delphi程序员都像使用Visual Basic 那样使用他们手头上开发工具，而丝毫没有意识到Delphi的强大功能，更谈不上使用这些功能了。(写到这里，编辑惶恐的举起了手，怎么可能呢？)Delphi和Visual Basic不同，Delphi完全建立在面向对象结构上,这不仅影响到VCL的结构，而且影响到使用Delphi开发的每一个程序。
在本文中，我不想涉及到面向对象编程（OOP）的所有理论,只是提出一些简单的经验规则。希望这些规则能够帮助改善你的程序结构。无论你开发的是何种类型的程� ......
Delphi中建议使用的语句
楼主zswang（伴水清清)(专家门诊清洁工）2002-05-15 13:37:54 在 Delphi / VCL组件开发及应用 提问
No.1 判断逻辑类型
var B: Boolean;
begin
B := Boolean(2); //这样只是为了调试//B := True;
if B = True then ShowMessage('B = True'); //不建议//不安全
///////
if B then ShowMessage('B'); //建议//简短
end;
var B: Boolean;
begin
if Edit1.Text = '是' then //不建议//烦琐
B := True
else B := False;
///////
B ......
delphi指针简单入门:
看一个指针用法的例子：
1 var
2 X, Y: Integer; // X and Y 整数类型
3 P: ^Integer; // P 指向整数类型的指针
4 begin
5 X :=17; // 给 X 赋值
6 P := @X; // 把 x的地址赋给p
7 Y := P^; // 取出p所指向的数值赋给y
8 ......
Delphi 能不能从Ring 3进入Ring 0?
楼主skyworld_xm（skyworld）2004-11-19 09:58:55 在 Delphi / Windows SDK/API 提问
Delphi 能不能从Ring 3进入Ring 0?
有例子吗?
多谢. 问题点数：100、回复次数：20Top
1 楼jinjazz（近身剪）回复于 2004-11-19 10:13:27 得分 10
我发现了一篇发表在1999.11.29 b13版的
《令win32应用程序跳入系统层》东南大学 卢威 luwei@126.com
是用vc++嵌汇编做的，
很接近了，可试试
BCB或DELPHI进入Ring0
东南大学卢威1999.12发表在<<计算机世界>>报上的一篇
<<WIN32跳入系统0层>>，原采用VC++编程,现改成C++Builder
供诸位参考,DELPHI类似；
void Ring0Proc() // 在Ring0中执行你自已的代码
{
// .......
......
最新文章 : delphi