引言： 摘 要：由窗口句柄获得对应可执行文件名
关键字：句柄
类 别：系统控制
下面这个函数将根据窗口句柄参数返回相应程序的可执行文件名和路径。
摘要：若希望在tnotebook或tpagecontrol组件的所有页面上显示某些组件（例如浏览数据库的列表框）时，不需要在在每个页面上重复设置这些组件，只需要首先建立它们，然后再添加tnotebook或tpagecontrol控件，调整它们的大小和位置，用鼠标右键单击tnotebook或tpagecontrol组件，单击弹出菜单中的“send to back”属性，这时最先添加的控件就显示在tnote......
摘要：var
ihandlecount: integer;
plist: array[1..nhkl_list] of hkl;
szimename: array[0..254] of char;
i: integer;
sfound: string;
begin
lstcomposition.items.clear;
ihandlecount := getkeyboard......
由窗口句柄获得对应可执行文件名摘 要:由窗口句柄获得对应可执行文件名
关键字:句柄 【程序编程相关:
[函数]function CheckUr】 【推荐阅读:
TWebBrowser的常见属性和方法
】
类 别:系统控制 【扩展信息:
利用极品五笔刷QB程序原代码
】
下面这个函数将根据窗口句柄参数返回相应程序的可执行文件名与路径.
function getappname(hwindow: hwnd): string;
var
h : hmodule;
begin
setlength(result, 100);
h:=getclasslong(hwindow, gcl_hmodule);
getmodulefilename(h, pchar(result), 100);
end;
用法: showmessage(getappname(findwindow(notepad.exe, nil)));
摘要：其实把属性编辑器等引用designeditors的部分，如属性编辑器的声明、实现以及属性编辑器的注册另写一个单元就行了。
下面是一个简单的例子
unit nwdicttreeviewreg;
interface
uses
windows, messages, sysutils, classes, graphics, controls, forms, dialogs,
comc......
