delphi中pchar是一种以空字符(\0)结尾的字符串指针类型,广泛应用于调用windows api函数时的参数传递。
1、 启动Delphi 7集成开发环境,打开默认创建的工程,在Form1窗体上添加一个按钮控件,并将其Name属性设置为Button1。

2、 双击Button1控件,进入OnClick事件处理过程,编写相关逻辑代码。
3、 var
4、 补充说明如下:
5、 使用GetMem为指针pc申请256字节的动态内存空间。
6、 StrBufSize(pc) 函数可返回PChar所指向缓冲区的实际容量(字节数)。
7、 调用Windows API中的GetWindowText函数,用于读取指定窗口句柄对应窗口的标题栏文本。
8、 使用FreeMem释放由pc所指向的堆内存区域,防止内存泄漏。

9、 按F9编译并运行程序,单击Button1后将弹出消息框,显示当前窗体的Caption内容。

10、 接下来采用字符数组方式替代手动内存管理,同样双击Button1进入事件代码,更新后的实现如下:
11、 var
12、 字符数组在栈上自动分配空间,生命周期由作用域控制,无需显式释放。

13、 按F9运行项目,点击按钮后弹出提示框,正确显示当前窗体标题。

14、 进一步扩展功能:获取操作系统所在目录路径。再次双击Button1,替换事件代码如下:
15、 var

16、 按F9启动程序,点击按钮后,对话框将展示当前Windows系统的安装目录(如C:\Windows)。











